Visual Basic 6 - Font proprietà

Forum - Visual Basic 6 - Font proprietà

Ultra Phonic 2 (Ex-Member)
Pro

Messaggi: 181
Iscritto: 15/09/2008

Postato alle 19:46
Mercoledì, 08/10/2008

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:

Codice sorgente - presumibilmente Visual Basic 6

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

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

Codice sorgente - presumibilmente Visual Basic 6

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

Ma non mi andava, poi ho provato:

Codice sorgente - presumibilmente VB.NET

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à

Codice sorgente - presumibilmente VB.NET

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...

Ultima modifica effettuata da Ultra Phonic 2 il 08/10/2008 alle 19:48

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 19:56
Mercoledì, 08/10/2008

Per il primo problema fai così

Codice sorgente - presumibilmente VB.NET

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 :-|

Ultra Phonic 2 (Ex-Member)
Pro

Messaggi: 181
Iscritto: 15/09/2008

Postato alle 19:58
Mercoledì, 08/10/2008

ho trovato la soluzione a tutto...
Grazie Grg

:k:

topic locked :ot:

Ultima modifica effettuata da Ultra Phonic 2 il 08/10/2008 alle 20:06