Translate


EnglishFrenchGermanySpainItalianNetherlandsRussian
PortugueseJapaneseKoreanArabicChinese SimplifiedCroatianDanish

Belajar VB 6.0 Headline Animator

12 Januari 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 komentar:

BeKaBe mengatakan...

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

raihan221 mengatakan...

terimakasih ya buat infonya

Abdul Wahab Hasibuan mengatakan...

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 mengatakan...

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

Anonim mengatakan...

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 mengatakan...

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

Soengging respati naba mengatakan...

Tq info ny..

 
>