Tutorial Gambas2 & Gambas3, Menambahkan Item ListBox dari TextBox

Tutorial kali ini menambahkan item ListBox dari TextBox, cara kerjannya adalah pertama anda harus mengisi item(dari TextBox) yang akan di tambahkan setelah itu anda dapat menekan tombol Tambah untuk melakukan proses penambahan item, anda juga dapat membersihkan isi ListBox dengan menekan tombol Bersihkan List.

Berikut ini adalah langkah-langkah untuk mencoba tutorial ini.

1. Buat project baru

2. Tambahkan/masukkan kontrol berikut ini kedalam form
  • 1 TextBox
  • 2 Button
  • 1 ListBox
  • 1 Label
     Disain tampilanya seperti gambar di bawah ini


3. Ketikan kode berikut di kode editor
' Gambas class file

'-------------------------------------------------------------------------------------------------------------------------------
'Author  : Zainudin Ahmad
'Site    : GambasPI.blogspot.co.id
'Title   : Tutorial Memasukkan/menambahkan item ListBox dari TextBox  (for gambas2 & gambas3)
'-------------------------------------------------------------------------------------------------------------------------------
Public Sub Form_Open()

  Me.Center()
  Button1.Text = "Tambah"
  Button2.Text = "Bersihkan List"
  Label1.Text = "Item Baru :"

End

'Menambahkan Item jika item tersebut beluma ada
Public Sub Button1_Click()
 
  Dim sItem As String

  sItem = Trim(TextBox1.Text)
 
  If sItem = "" Then
    Message.Info("Ketik Item yg ingin anda masukkan terlebih dahulu !!!")
    TextBox1.SetFocus
    Return
  Endif
 
  If ListBox1.Count = 0 Then
    ListBox1.Add(sItem)
    TextBox1.Text = ""

  'pencarian berisfat CaseSensitif (Huruf Besar dan Kecil Berbeda)
  'Jadi kata "Abc" berbeda dengan "abc"
  Else If ListBox1.Find(sItem) = -1 Then
    ListBox1.Add(sItem)                
    TextBox1.Text = ""
  
  Else
    Message.Info("Item " & sItem & " sudah ada")
  
  Endif

End


'Membersihkan/Mengosongkan semua item di List
Public Sub Button2_Click()

  ListBox1.Clear()

End

4. Coba anda jalankan/run (tekan F5) , tampilanya akan terlihat seperti di bawah ini.

SELAMAT MENCOBA

Artikel Terkait :