Aiuto codici commondialog visual basic 6.0

[gattominr of gaara]

Ho un Problemino, non sò che codici mettere per il ShowFont del Common Dialog di Visual basic 6.0.

Io ho:
ComandoTesto: Text1
Commnd button : Command6
CMDialog : CommonDialog1

Che cod devo mettere nel command button per avere una cosa così:


Rispondete, è urgente.

[LukeProgrammer]

Per VB6 al momento non ho possibilità di provare a risolvere il tuo problema, ma ho fatto un test con VB.NET 2008 (standard edition) e il risultato è circa come lo vuoi tu.

Ho realizzato un form (form1) con 1 textbox multiline (textbox1) , 2 button (btnFont; btnColor), 1 FontDialog (FontDialog1) e 1 ColorDialog (ColorDialog1).
Questo è il codice che ho usato per far cambiare colore e font alla textbox:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFont.Click
        FontDialog1.Font = TextBox1.Font
        FontDialog1.ShowDialog()
        TextBox1.Font = FontDialog1.Font
    End Sub

    Private Sub btnColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnColor.Click
        ColorDialog1.Color = TextBox1.ForeColor
        ColorDialog1.ShowDialog()
        TextBox1.ForeColor = ColorDialog1.Color
    End Sub
End Class

Spero ti sia stato utile.
Ciao

****************************
LukeProgrammer

[morganhk]

In questo VB.NET e VB6 sono praticamente identici