Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: commondialog ongelma

julius_88 [12.01.2004 21:02:47]

#

'on tommonen koodi, miten pystyy määrittää et se tallentaa sen koodi.text sinne txt tiedostoon?

Private Sub Command1_Click()

CommonDialog1.Filter = "Kaikki (*.*)|*.*|Tekstit (*.txt)|*.txt"
CommonDialog1.FilterIndex = 2
CommonDialog1.Action = 2
End Sub

Jasmin [12.01.2004 21:08:05]

# 

'valittavat tiedostopäätteet
   CommonDialog.Filter = "Tekstitiedostot (*.txt)|*.txt|Kaikki tiedostot (*.*)|*.*"
   'ikkunan otsikko
   CommonDialog.DialogTitle = "Tallenna tiedosto"
   'näytetään tallennusikkuna
   CommonDialog.ShowSave
   'jos tiedoston nimi ei ole tyhjä (painettu Peruuta)
   If CommonDialog.FileName <> "" Then
       'jos tiedosto on jo olemassa
       If Dir(CommonDialog.FileName) <> "" Then
           'jos käyttäjä ei halua tallentaa päälle...
           If MsgBox("Tiedosto on jo olemassa. Haluatko tallentaa päälle?", vbYesNo) = vbNo Then
               '...poistutaan aliohjelmasta
               Exit Sub
           End If
       End If
       'tallennetaan teksti tiedostoon
       Open CommonDialog.FileName For Output As #1
       Print #1, Text1.Text
       Close #1
   End If

Tuo tuossa oli antin tekemä koodinpätkä

julius_88 [12.01.2004 21:12:52]

#

Ok, kiitos:)

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta