Keskustelu: Ohjelmointikysymykset: VB6: RTF tallennus

Miten tuommonen teksti tallennetaan? Minulla on CommonDialog , jonka nimi on CD ja RichTextBox, jonka nimi on RTB. Nykyyään on näin (miten se ei siis toimi):

Avaus

Private Sub mnuAvaa_Click()
CD.Filter = "UPK (*.upk)|*.upk"
CD.FilterIndex = 2
CD.Action = 1
frmTeksti.RTB.TextRTF = CD.FileName
End Sub

ja Tallentaminen:

Private Sub mnuTallenna_Click()
CD.Filter = "UPK (*.upk)|*.upk"
CD.FilterIndex = 2
CD.Action = 2
frmTeksti.RTB.TextRTF = CD.FileName
End Sub

Laitat noiden upk:n tilalle RTF.

eikö muka omaa tiedostopäätettä saa käyttää?

Noniin ongelma ratkesi. Aikaisemmista aiheista ("Tallennusongelma")

Ite mä pistäsin näin tallentamisen:

'tallennus
cd.filter = "TXT (*.txt)|*.txt"
cd.showsave
rtb.savefile cd.filename, 1

Avaamisen pistäsin samalla tavalla paitsi että cd.showopen ja rtb.loadfile cd.filename