Gak kerasa udah mau sahur tapi tetep mau posting tentang Tutorial Bahasa Pemrogramman Visual Basic yaitu Sentence case Karakter di Visual Basic atau biasa kita sebut Huruf Besar otomatis di awal kata ... Sebelumnya saya pernah posting tentang tentang Letak Mouse Sumbu X dan Y ok langsung aja gan ane kasih tutorial ya ....
Pertama anda siapkan 1 Form, 1 Text Box kemudian tambahkan 1 Module
kemudian copy kan syntax ini kedalam Module :
Public Function tCase(ByVal str As String, ByRef KeyAscii As Integer)
If str = "" Then
KeyAscii = Asc(UCase(Chr(KeyAscii)))
ElseIf Right(str, 1) = " " Then
KeyAscii = Asc(UCase(Chr(KeyAscii)))
KeyAscii = Asc(LCase(Chr(KeyAscii)))
End If
End Function
If str = "" Then
KeyAscii = Asc(UCase(Chr(KeyAscii)))
ElseIf Right(str, 1) = " " Then
KeyAscii = Asc(UCase(Chr(KeyAscii)))
KeyAscii = Asc(LCase(Chr(KeyAscii)))
End If
End Function
1 komentar:
Click here for komentarWah belum pernah itu nemuin secara otomatis,, ydah OK gan
Silhakan memberi Komentar, Kritik, atau Saran ConversionConversion EmoticonEmoticon