[VB6] combo e font

[marcio_hack]

Salve sto facendo un piccolo text editor,ho messo un combo con i nomi dei font,ma come faccio ogni volta che viene scrollato il combo ( e viene cambiato il font) ad applicarlo al text? (ho provato Combo1_Change() ma funziona solo quano il valore cambia da tastiera) inoltre come faccio a far apparire il primo font come primo text del combo invece di farlo rimanere bianco?

codice:

Private Sub Combo1_Change()
  On Error Resume Next
  Text1.Font = Combo1.Text
End Sub



Private Sub Form_Load()
Dim i, a
  For i = 0 To Screen.FontCount - 1
    Combo1.AddItem Screen.Fonts(i)
  Next
  For a = 1 To 50
    If a = 1 Then
      Combo2.Text = "0"
    End If
    Combo2.AddItem a
  Next

End Sub

[MMarzia]

ricorda di includere il codice nel tag [*CODE] codice [*/CODE] (senza asterischi)

[Sypher]

fallo sul clik anzichè sull'onchange!

[marcio_hack]

sul click non va bene perchè quando clicchi c'è ancora il testo vecchio,poi cambi,rilasci e il font non viene cambiato !

[Sypher]

così a me funziona bene

Private Sub Combo1_Click()
  On Error Resume Next
  Text1.Font = Combo1.Text
End Sub



Private Sub Form_Load()
Dim i, a
  For i = 0 To Screen.FontCount - 1
    Combo1.AddItem Screen.Fonts(i)
  Next
End Sub

[Sypher]

per settare il primo elemento aggiungi la riga dopo il ciclo con cui hai caricato il combo

Combo1.ListIndex = 0

[marcio_hack]

E' vero funziona,grazie

[Sypher]

Originariamente inviato da marcio_hack
E' vero funziona,grazie

:sexpulp: