Tutorial VB : Auto SmartCase

Sudah lama saya tidak bergelut dengan VB (Visual Basic). Kali ini saya akan menjelaskan mengenai Auto SmartCase, sekaligus sambil mengingat-ingat tentang apa yang saya pelajari dulu ketika kuliah. Bisa dibilang Auto SmartCase adalah prosedur untuk mengubah huruf kecil menjadi huruf besar secara otomatis sesuai dengan aturan penulisan, contohnya huruf kecil di awal kata, huruf kecil setelah spasi/titik.
Hapus// PUBLIC PROCEDURE
Sub goSmartCase(TextBoxName As Control, KeyAscii As Integer)
On Error Resume Next
If Mid(TextBoxName.Text, TextBoxName.SelStart, 1) = " " Or _
Mid(TextBoxName.Text, TextBoxName.SelStart,1) = "." _
Or Mid(TextBoxName.Text, TextBoxName.SelStart, 1) = "" Or _
Mid(TextBoxName.Text,TextBoxName.SelStart, 1) = "(" _
Or Mid(TextBoxName.Text, TextBoxName.SelStart, 1) = "{" Or _
Mid(TextBoxName.Text,TextBoxName.SelStart, 1) = "[" _
Or Mid(TextBoxName.Text, TextBoxName.SelStart, 1) = "/" Then
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Else
KeyAscii = Asc(LCase(Chr(KeyAscii)))
End If
End Sub
Hapus// HOW TO USE
Private Sub Text1_KeyPress(KeyAscii As Integer)
goSmartCase Text1, KeyAscii
End Sub

Berlangganan update artikel terbaru via email:

2 Komentar untuk "Tutorial VB : Auto SmartCase"

  1. wah.. ini dia, artikel yang bagus dan bermanfaat... thanks bro..

    BalasHapus
    Balasan
    1. Ok, sama-sama djiesoft ... senang rasanya, artikel dari saya dapat membantu Anda. :)

      Hapus

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel