12 January 2009

Mencari TextBox Kosong Dengan Perulangan

Untuk mengetahui textbox sudah diisi atau belum bisa dilakukan dengan beberapa cara, antara lain dengan menggunakan perintah "IF...THEN", namun bila kita menggunakan perintah ini kita diharuskan menulis code program yang cukup banyak, dan itu menjadi tidak efektif.

Ada cara lain yang menurut saya lebih efektif ketimbang kita menggunakan perintah "IF" yaitu dengan memanfaatkan perintah perulangan, perulangan yang saya maksud disini adalah perulangan dengan menggunakan "FOR .... NEXT"

Berikut adalah perintahnya yang saya masukkan ke dalam sebuh presedur:

Private Sub CekTextBoxKosong()
Dim ctrAs Control

For Each ctr In Me.Controls
   If TypeOf ctr Is TextBox Then
      If ctr.Text= vbNullString Then
         MsgBox "Textbox ini kosong"

         ctr.SetFocus

         Exit Sub

      End If

  End If
Next ctr

End Sub


Berikut ini penjelasan ringkas tentang code di atas:

Perulangan dilakukan terhadap variabel ctr dimana ctradalah sebuah kontrol yang terdapat pada form dimana code ini ditulis ( In Me.Controls).

Kemudian jika tipe dari ctr adalah textbox maka proram akan mengecek apakah ctr(TextBox) ada isinya atau tidak, jika masih kosong yang dalam visual basic kita bisa menggunakan vbNullString maka akan muncul kotak pesan dan akan langsung mengeset focus ke textbox yang kosong tersebut dan akan langsung menghentikan prosedur ini dengan perintah Exit Sub.

Dan perulangan akan terus berlanjut dengan adanya perintah Next.

7 comments:

BeKaBe said...

Nice Article.
Wah.., sayang ya tidak pakai Shout Box....
Nanti webBognya pakai Shout Box, biar lebih rame.

raihan221 said...

terimakasih ya buat infonya

Abdul Wahab Hasibuan said...

keren jg,,,
kl gw bleh usul tlong tmplin cntoh system yg ud berjaln donk,, gw pgen bljr dr itu,, bleh g?kl bs lbh bnyak ya,,, thx sblm'a...
kl mw ngsi gw msukan k-mail gw aj y,,,
wahab378@yahoo.co.id

Muis said...

Thanks.... ya tas info na..,,,,

Anonymous said...

kk aku gak paham.... soal nya aku gak kenal apa itu visual basic... coba ada gambar... pasti bisa di ingat.... kk ada link gambar n cara pemula belajar visual basic

ma2dxl said...

makasi buat komentar dan usulannya, smoga bs menjadi bahan perbaikan buat saya.

Unknown said...

Tq info ny..

 
>