Skrip Supaya Huruf Yang Diinput Pada ButtonBox Otomatis Menjadi Huruf Besar ~ Tutorial Gambas

Public Sub ButtonBox1_KeyPress()

With Key

If .Code <> .BackSpace And .Code <> .Del And .Code <> .Left And .Code <> .Right And .Code <> .Tab And .Code <> .BackTab And Not .Control Then

If .Text Like "[a-z]" Then

Stop Event

TksBx.Editor.Insert(UCase(.Text))

Endif

Endif

End With

End