(Textbox) Awal Huruf Otomatis Kapital (VB6)

Halo sobat, baru bisa posting kembali setelah kemarin ada kesibukan yang tidak sempat membuka blog sendiri. Pada postingan kali ini saya akan meneruskan untuk utak-atik textbox dengan mudah dan simpel. Namun, cara yang akan saya bahas kali ini biasanya berkaitan dengan pengisian CIF (Customer Information File), Mengisi data Master dsb dan dapat mengurangi resiko kesalahan ketik pada pengisian nama orang.

Caranya :

Tambahkan 1 Form : Form1 (Default)

Tambahkan 1 Textbox : Text1 (Default)

Letakkan Textbox pada Form1, kurang lebih tampilan seperti dibawah ini

Double klik pada textbox (Text1) lalu masukkan script berikut ini 

Dim a As Integer
a = Text1.SelStart
Text1.Text = StrConv(Text1.Text, vbProperCase)
Text1.SelStart = a

sehingga script pada text1 seperti ini

Private Sub Text1_Change()
     Dim a As Integer
     a = Text1.SelStart
     Text1.Text = StrConv(Text1.Text, vbProperCase)
     Text1.SelStart = a
End Sub

Semoga Bermanfaat ...

share this article to: Facebook Twitter Google+ Linkedin Technorati Digg

Posted by Admin (Ade Setiadi), Published at 9:48:00 AM and have 0 comments