open,save

open,save

offline
  • Pridružio: 03 Apr 2006
  • Poruke: 5

napravio sa m program slican notepad-u u VB. i napravio menije file, edit format, help.
zanima me kako mogu da sacuvavam file-ove i otvaram ih u txt format, i ovo sa fontom u format meniju. hvala
ovo sam nasao na netu ali mi nepomaze

mycity.rs/must-login.png



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Na formu stavis jedan Common Dialog i text box (rekao si da imas faile/open i file/save)

Ovo stavis u kod koji se izvrsava kada kliknes na open:

CommonDialog1.DialogTitle = "Otvori" CommonDialog1.InitDir = "C:\" CommonDialog1.Filter = "Sve (*.*)|*.*|Text (*.txt)|*.txt|" CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As #1 Text1.Text = Input(LOF(1), 1) Close #1


A kada zelis da snimis neki fajl stavi ovo:


CommonDialog1.CancelError = True CommonDialog1.DialogTitle = "Snimi" CommonDialog1.InitDir = "C:\" CommonDialog1.Filter = "Sve (*.*)|*.*|Text (*.txt)|*.txt|" CommonDialog1.ShowSave If CommonDialog1.FileName <> "" Then Open CommonDialog1.FileName For Output As #1 Print #1, Text1.Text End If Close #1

btw. Odavno nisam radio u VB-u pa mozda ima koja greska Bebee Dol



Ko je trenutno na forumu
 

Ukupno su 966 korisnika na forumu :: 29 registrovanih, 3 sakrivenih i 934 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: Andrija357, Bickoooo, bojan_t, colji, DeerHunter, Dorcolac, dragoljub11987, dule10savic, elenemste, Georgius, gorval, Karla, Klecaviks, kybonacci, mean_machine, mercedesamg, Metanoja, mile33, Neutral-M, nikoladim, Oscar, ostoja, Parker, Posmatrac77OKB, ruma, Simon simonović, Tvrtko I, vaso1, vathra