1. Buatlah form dengan 1 text, 1 label, dan 2 command, rubah text pada Command1 menjadi Huruf Besar, dan Command2 menjadi Huruf Kecil, lihat gambar dibawah:
2. Masukkan kode dibawah ini:
Private Sub Command1_Click()Maka ketika diketikkan sesuatu pada text1 dan diklik Huruf Besar hasilnya seperti gambar dibawah ini:
Label1 = UCase(Text1)
End Sub
Private Sub Command2_Click()
Label1 = LCase(Text1)
End Sub
Private Sub Text1_Click()
Text1 = ""
End Sub
0 comments:
Speak up your mind
Tell us what you're thinking... !