Tutorial Gambas2 & Gambas3, Tutorial Memindahkan Fokus Jika isi TextBox Sudah Maksimal

Tutorial kali ini Memindahkan Fokus Jika isi TextBox Sudah Maksimal, cara kerjannya adalah sewaktu anda mengisikan/merubah nilai pada TextBox dan isi dari textBox sudah mencapai batas maksimal maka secara otomatis fokus akan berpindah ke control selanjutnya.

Berikut ini adalah langkah-langkah untuk mencoba tutorial ini.

1. Buat project baru

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

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

'-------------------------------------------------------------------------------------------------------------------------------
'Author  : Zainudin Ahmad
'Site    : GambasPI.blogspot.co.id
'Title   : Memindahkan Fokus Jika isi TextBox Sudah Maksimal  (for gambas2 & gambas3)
'-------------------------------------------------------------------------------------------------------------------------------

Public Sub Form_Open()

  'Anda bisa melakukan hal ini di Property BOX
  'Set panjang maksimal karakter textBox
  TextBox1.MaxLength = 5
  TextBox2.MaxLength = 3
  TextBox3.MaxLength = 8
  'Bersihkan TextBox
  TextBox1.Clear()
  TextBox2.Clear()
  TextBox3.Clear()
 
  Me.Center()

End

Public Sub TextBox1_Change()
  'jika isi textBox1 sudah mencapai angka maksimal maka akan berpindah ke textBox2
  If Len(Last.Text) = Last.MaxLength Then TextBox2.SetFocus()

End

Public Sub TextBox2_Change()
  'jika isi textBox2 sudah mencapai angka maksimal maka akan berpindah ke textBox3
   If Len(Last.Text) = Last.MaxLength Then TextBox3.SetFocus()

End

Public Sub TextBox3_Change()
  'jika isi textBox3 sudah mencapai angka maksimal maka akan berpindah ke Button1
   If Len(Last.Text) = Last.MaxLength Then Button1.SetFocus()

End

'jika button1 terkena fokus maka text button1 akan berubah
Public Sub Button1_GotFocus()
 
  Button1.Text = "Saya Kena Fokus"

End

'jika button1 kehilangan fokus maka text button1 akan berubah
Public Sub Button1_LostFocus()

  Button1.Text = "Saya kehilangan Fokus !!"

End

'Jika button di klik maka semua isi textBox akan di bersihkan/hapus
Public Sub Button1_Click()
 
  TextBox1.Clear()
  TextBox2.Clear()
  TextBox3.Clear()

End

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


SELAMAT MENCOBA

Artikel Terkait :