VB6 Formto Carattere

[binbum]

Salve a tutti!
Vorrei dare la possibilità all'interno di un'applicazione in VB6 di poter scrivere all'interno dei campi testo in vari modi...cioè in grassetto,corsivo,in vari font,insomma come meglio desidera l'utente!
Esiste tale possibilità di farlo?esiste uno script?
Grazie 1000

[binbum]

Cioè esiste un'imposta carattere?
Devo cercare un riferimento?

[Luciano79]

Si, nelle proprietà del TextBox trovi FontName, FontSize... Le puoi gestire in 2 modi: o una proprietà alla volta (Un option per il bold, un text per la dimensione...) o utilizzando CommondDialog (devi includere fra gli oggetti "Microsoft Common Dialog Control") che prevede la gestione dei font utilizzando la classica maschera di Windows.

[giano118]

prova questo codice

Private Sub Combo1_Click()
If Combo1.ListIndex = 0 Then
Label1.FontSize = "8"
Label1.Refresh
End If
If Combo1.ListIndex = 1 Then
Label1.FontSize = "10"
Label1.Refresh
End If

If Combo1.ListIndex = 2 Then
Label1.FontSize = "12"
Label1.Refresh
End If

If Combo1.ListIndex = 3 Then
Label1.FontSize = "14"
Label1.Refresh
End If

If Combo1.ListIndex = 4 Then
Label1.FontSize = "16"
Label1.Refresh
End If

If Combo1.ListIndex = 5 Then
Label1.FontSize = "18"
Label1.Refresh
End If
End Sub

Private Sub Command1_Click()
Label1.FontBold = True
Label1.Refresh
End Sub

Private Sub Command2_Click()
Label1.FontUnderline = True
Label1.Refresh
End Sub

Private Sub Command3_Click()
Label1.FontStrikethru = True
Label1.Refresh

End Sub

Private Sub Command4_Click()
Label1.FontItalic = True
Label1.Refresh

End Sub

Private Sub Form_Load()

j = 8
For i = 0 To 5
Combo1.AddItem (j)
j = j + 2
Next i

End Sub

ciao
fammi sapere

Originariamente inviato da binbum
Salve a tutti!
Vorrei dare la possibilità all'interno di un'applicazione in VB6 di poter scrivere all'interno dei campi testo in vari modi...cioè in grassetto,corsivo,in vari font,insomma come meglio desidera l'utente!
Esiste tale possibilità di farlo?esiste uno script?
Grazie 1000

[binbum]

Grazie giano118 ma ho fatto questo script e mi funziona:

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComCtlLib.Button)
On Error Resume Next
Select Case Button.Key
Case "Bold"
For Each Controllo In Form1.Controls
If TypeOf Controllo Is TextBox Then
Controllo.FontBold = True
End If
Next Controllo
Case "Italic"
For Each Controllo In Form1.Controls
If TypeOf Controllo Is TextBox Then
Controllo.FontItalic = True
End If
Next Controllo
Case "Strike Through"
For Each Controllo In Form1.Controls
If TypeOf Controllo Is TextBox Then
Controllo.FontStrikethru = True
End If
Next Controllo
Case "Underline"
For Each Controllo In Form1.Controls
If TypeOf Controllo Is TextBox Then
Controllo.FontUnderline = True
End If
Next Controllo
Case "Undo"
For Each Controllo In Form1.Controls
If TypeOf Controllo Is TextBox Then
Controllo.FontStrikethru = False
Controllo.FontUnderline = False
Controllo.FontItalic = False
Controllo.FontBold = False
End If
Next Controllo
End Select
End Sub


Provalo...Ciao

[xegallo]

usa i tag code (leggi il regolamento)

[binbum]

Mi scuso con tutti..sono molto distratto
Scusate....