Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: VB6: Common Dialog

Lord Juha [12.10.2002 16:00:47]

#

Juup eli tämä käsittelee Common dialogin open save font ja color toimintoja...

HUOM. laita common dialog1 nimeksi: CommonDialog ilman 1:stä

OPEN

Private Sub cmdAvaus_Click()
CommonDialog.Filter = "Kaikki (*.*)|*.*|Tekstit (*.txt)|*.txt"
CommonDialog.FilterIndex = 2
CommonDialog.Action = 1
txtAvaus = CommonDialog.filename
End Sub

SAVE

Private Sub cmdTallennus_Click()
CommonDialog.Filter = "Kaikki (*.*)|*.*|Tekstit (*.txt)|*.txt"
CommonDialog.FilterIndex = 2
CommonDialog.Action = 2
txtTallennus = CommonDialog.filename
End Sub

FONTTI

Private Sub cmdFontti_Click()
CommonDialog.Flags = &H3&
CommonDialog.Action = 4
txtFontti.Font = CommonDialog.FontName
txtFontti.FontSize = CommonDialog.FontSize
End Sub

VÄRI

Private Sub cmdVari_Click()
CommonDialog.Action = 3
variShape.BackColor = CommonDialog.Color
End Sub

Quirzo [05.01.2006 18:42:38]

#

Tuon commondialog.action tilalla voi olla myös
commondialog.showsave = tallennus
commondialog.showload = lataus
commondialog.showfont = fontti
commondialog.showprinter = tulostin
commondialog.showhelp = helppi tiedosto (.hlp)

Tulostamista ja helppitiedostoa ei tuossa olekkaan...

moptim [23.07.2006 08:09:29]

#

Tämä olisi muutamaa kymmentä merkkiä lyhyempi:

Private Sub cmdAvaus_Click()
  With Commondialog
    .Filter = "Kaikki (*.*)|*.*|Tekstit (*.txt)|*.txt"
    .FilterIndex =
    .Action = 1
    txtAvaus = .Filename
  End With
End Sub

Ja ainakin minun VB:stä löytyy New Project -valikosta vaihtoehto VB Application Wizard aka teksturi. Siitä voi tutkia hyvin teksturin, MDIFormin ja CommonDialogin toimintaa.

Vastaus

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

Tietoa sivustosta