Visual Basic 6 - Font proprietà

Ciao ragazzi
Ho 7 btn di cui: 1=Arial; 2=Times New Roman; 3=Grassetto; 4=Corsivo; 5=Sottolineato; 6=Normale; 7= Grassetto Corsivo

Poi ho un text1 (multiline) e vorrei che cliccando ogni pulsante di quelli cambi aspetto il testo dentro.

Ho Provato:

Private Sub arial_Click()
text1.font = Arial
End sub

lo stesso con times...
Ma non mi va.
Poi ho provato gli stili:

Private sub corsivo_click()
text1.font = Italic
end sub

Ma non mi andava, poi ho provato:

Private Sub arial_click()
text1.font.arial
end sub
Private sub corsivo click()
text1.font.italic
end sub

Ma MI dice "valore di property non valido"
mi potete aiutare?

poi in una list ho i numeri da 8 a 72(standard font)
e con la proprietà

Private sub list1_click()
list1.list (list1.listindex)
Select Case
Case "8"
text1.fontsize = 8
Case "9"
text1.fontsize = 9
...'ecc
...'ecc
end select 
end sub

Grazie e ciao

P.S.
il select della list1 non l'ho ancora provato...

Per il primo problema fai così

Private Sub Command1_Click()
Text1.FontName = "arial"
End Sub

tra le virgolette mettici il nome del font ke vuoi...

Per il secondo probl nn l'ho capito

ho trovato la soluzione a tutto...
Grazie Grg



topic locked