Private Sub txt_GotFocus(Index As Integer)
Dim i As Integer, tmp As String
'rendo tramite il focus del controllo txtbox
'la label con il carattere fontbold e ad ogni
'cambio di focus converto il carattere da
'minuscolo in maiuscolo
For i = 0 To lbl.Count - 1
lbl(i).FontBold = False
temp = txt(i).Text
txt(i).Text = UCase$(temp)
Next i
lbl(Index).FontBold = True
End Sub
Il codice funziona bene fino a quando non decido di inserire un'altro frame con un controllo comboBox.
Quando arrivo all'ultimo controllo testo e tramite il tab mi sposto sul controllo comboBox rimane la label dell'ultimo controllo con la proprietà fontBold = true
ho provato a mettere dopo next i questa riga di codice:
if cmb.setfocus = true then lbl(index).fontbold=false
ma non funge.
Per farlo funzionare devo scrivere del codice nella routine gotfocus del controllo cmb
Private Sub cmbModPag_GotFocus()
Dim i As Integer
For i = 0 To lbl.Count - 1
lbl(i).FontBold = False
Next i
End Sub
Qualcuno sa darmi una spiegazione?
Grazie
Rispondi quotando
