Keskustelu: Ohjelmointikysymykset: VB6: commondialog

Mites tolla nyt tehdään ne avaa ja tallenna painikkeet, kun tarvis saada avattua textboxiin teksti tiedostoja ja sit taas tallennettua ne.

Muistaakseni:

CommonDialog1.Action=1 Avaa
CommonDialog1.Action=2 Tallenna

Valittu tiedostonimi tallentuu CommonDialog1.FileName-muuttujaan.

Tuossapa tuli muuten hyvä opasidea. Voisin tehdä jos on aikaa.

no ei toi paljoo auttonu kun pitää sekin jotenkin määrittää että se aukee just siihen textboxiin.

No tässä vähän parempi. Formilla pitää olla TextBox (Text1), CommandButton (Command1) ja CommonDialogControl (CommonDialog1). En ole testannut, joten saattaa olla virheitä.

Sub Command1_Click
  CommonDialog1.Action=1
  Open CommonDialog1.Filename For Input As #1
  Do Until Eof(1)
    Input #1,teksti
    Text1=Text1+teksti
  Loop
  Close #1
End Sub

Se toimi, kiitoksia.

Niin tai toimii se näinkin:
CommonDialog1.ShowOpen, mutta toi toki avaa sen avaamis ikkunan, että jos se ei ollu tarkotus, ni sitten :)