open,save

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

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

[Link mogu videti samo ulogovani korisnici]

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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