Memanipulasi Kontrol TextBox di Visual Basic.NET

TextBox merupakan kontrol untuk form yang sangat penting karena disinilah sebuah Aplikasi yang kita buat dapat bisa berinteraksi dengan user yang dapat menghasilkan ouput, contohnya input nama, alamat, angka dan semuanya itu melibatkan TextBox.

Untuk itu dalam artikel kali Admin akan berbagi cara memanipulasi kontrol TextBox di VB.NET.

 Dalam artikel kali ini kita akan mulai dari pengertian, properti penting, event yang sering dipakai, sampai contoh kode yang bisa langsung Anda praktikkan. Cocok buat pemula maupun yang sudah pernah ngoding vb.net tapi ingin lebih rapi dan optimal.

Manipulasi TextBox di VB.NET

Mengenal Kontrol TextBox di VB.NET

Apa Itu TextBox?

TextBox adalah kontrol input yang memungkinkan pengguna memasukkan teks ke dalam aplikasi. Di vb.net, textbox sering digunakan untuk:

• Input data pengguna
• Menampilkan teks hasil proses
• Validasi data
• Form login atau registrasi dll

Untuk memanipulasi TextBox ini kita bisa menggunakan Properties dari TextBox itu sendiri dan bisa juga dari kode, tapi dalam artikel ini saya akan memanipulasi lewat kode dengan tujuan untuk lebih melatih kita dalam membuat kode sendiri tanpa tergantung dari properties.

Berikut dibawah ini adalah beberapa kode untuk memanipulasi TextBox :

1. Membatasi banyaknya karakter

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

        'Pembatasan input karakter

        If TextBox1.TextLength > 10 Then

            MsgBox("Minimal karakter 10", vbCritical, "Salah")

            TextBox1.Focus()

            Exit Sub

        End If

    End Sub

Keterangan :

Angka 10 pada kode adalah banyaknya karakter yang diinput, jika lebih dari 10 maka muncul pesan

2. Memasuka semua huruf Kapital (huruf Besar)

Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged

        TextBox2.CharacterCasing = CharacterCasing.Upper

    End Sub

Keterangan :

Ketika Anda menginput karakter atau huruf maka otomatis huruf menjadi besar semua meskipun capslock Anda di non aktifkan.

Untuk merubah huruf kecil atau normal kembali ubah .upper menjadi .lower atau .normal untuk menormalkan kembali

3. Input masukan harus Angka

    Private Sub TextBox3_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox3.KeyPress

        If Not Char.IsDigit(e.KeyChar) AndAlso Not Char.IsControl(e.KeyChar) Then

            e.Handled = True

            MsgBox("Harus angka")

        End If

    End Sub

keterangan :

ketika Anda memasukan input huruf atau karakter maka kan muncul pesan dan sebaliknya jika Anda input Angka sesai yanh diharapkan maka valid tidak ada pesan kesalahan.

4. TextBox tidak boleh kosong

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        If String.IsNullOrWhiteSpace(TextBox4.Text) Then

            MessageBox.Show("TextBox tidak boleh kosong")

            TextBox4.Focus()

        Else

            MsgBox("valid")

        End If

    End Sub

Keterangan :

jika Anda menekan tombol atau Button2 dengan TextBox kosong tanpa input, maka muncul pesan, jika ada inputan itu akan normal

5. Menambah baris baru di TextBox

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Dim baris() As String = TextBox1.Lines

        TextBox5.AppendText("Baris baru" & Environment.NewLine)

    End Sub

Keterangan :

Untuk menggunakan kode ini TextBox di set menjadi Multiline:True dan ScrollBar:Vertical

Ketika tombol ditekan maka akan masuk kata Baris baru kemudian ditekan lagi muncul kata Baris baru dibawahnya.

6. TextBox hanya boleh angka, titik (.) dan Backspace

Private Sub TextBox6_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox6.KeyPress

        ' Izinkan angka, titik, dan backspace

        If Not Char.IsDigit(e.KeyChar) AndAlso

           e.KeyChar <> "." AndAlso

           Not Char.IsControl(e.KeyChar) Then

            e.Handled = True

            MessageBox.Show("Hanya boleh angka dan titik")

            Exit Sub

        End If

        ' Cegah titik lebih dari satu

        If e.KeyChar = "." AndAlso TextBox6.Text.Contains(".") Then

            e.Handled = True

            MessageBox.Show("Titik hanya boleh satu")

        End If

    End Sub

Keterangan :

Dengan kode ini Anda cuma bisa menginput angka, spasi dan titik

Kode ini biasanya digunakan untuk bilangan yang mengandung pecahan seperti 2.5

7. TextBox untuk validasi E-mail

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim email As String = TextBox7.Text.Trim()

        ' Abaikan cue banner

        If email = "" OrElse email = "Masukkan email" Then

            MessageBox.Show("Email tidak boleh kosong")

            Exit Sub

        End If

        Try

            Dim m As New System.Net.Mail.MailAddress(email)

            MessageBox.Show("Email valid")

        Catch

            MessageBox.Show("Email tidak valid")

        End Try

    End Sub

Keterangan :

Kode diatas adalah untuk mengecek penulisan email yang benar.

8. Mengosongkan semua Textbox

Private Sub ClearTextBox(parent As Control)

        For Each ctrl As Control In parent.Controls

            If TypeOf ctrl Is System.Windows.Forms.TextBox Then

                CType(ctrl, System.Windows.Forms.TextBox).Clear()

            ElseIf ctrl.Controls.Count > 0 Then

                ClearTextBox(ctrl)

            End If

        Next

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button4.Click

        ClearTextBox(Me)

    End Sub

Keterangan :

Dengan kode ini bila Button1 ditekan maka semua TextBox yang ada di Form dikosongkan, dengan kode ini kita tidak bisa pilih-pilih TextBox yang mana yang akan kita kosongkan.

9. Menyembunyikan dan menampilkan Password dengan CheckBox

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

        TextBox1.UseSystemPasswordChar = True

        CheckBox1.Checked = False

    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked Then

            ' Tampilkan password

            TextBox1.UseSystemPasswordChar = False

        Else

            ' Sembunyikan password

            TextBox1.UseSystemPasswordChar = True

        End If

    End Sub

Keterangan :

Ketika awal ditampilkan dilayar password tersembunyi namun ketika di CheckBox, passwor akan tampil dan sebaliknya jika CheckBox dihilangkan maka akan di sembunyikan.

10. Meng-Aktifkan dan Me-Nonaktifkan TextBox dengan CheckBox

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

        TextBox8.ReadOnly = False

        CheckBox1.Checked = False

    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked Then

            ' TextBox dikunci (tidak bisa diketik)

            TextBox8.ReadOnly = True

        Else

            ' TextBox normal

            TextBox8.ReadOnly = False

        End If

    End Sub

Keterangan :

Ketika CheckBox di checklist TextBox akan nonaktif tidak bisa diketik dan di edit dan sebaliknya

11. Penekanan tombol Enter untuk pindah langsung ke TextBox yang di tuju

Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown

        If e.KeyCode = Keys.Enter Then

            e.SuppressKeyPress = True

            TextBox3.Focus()

        End If

    End Sub

Keterangan :

Jika di TextBox1 di tekan Enter maka kursor akan pindah ke TextBox3

Jika menggunakan tekan Enter TextBox JANGAN di set Multiline:True

12. Penekanan tombol Down (panah bawah) untuk pindah langsung ke TextBox yang di tuju

 Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown

        If e.KeyCode = Keys.Down Then

            e.SuppressKeyPress = True

            TextBox3.Focus()

        End If

    End Sub

Keterangan :

Jika di TextBox1 di tekan tombol Down maka kursor akan pindah ke TextBox3

Lebih dianjurkan menggunakan cara ini lebih stabil

Catatan:

Semua kode ditas sudah di uji coba dan berjalan sesuai yang diharapkan

Itulah kira-kira beberapa cara untuk memanipulasi Textbox yang saya rangkum, sebenarnya masih banyak lagi terutama di properties tapi inilah cara yang paling kita butuhkan nanti saat membuat program.

Penutup: Saatnya Praktik dan Eksplorasi

Kontrol textbox di vb.net memang terlihat sederhana, tapi kalau dimanipulasi dengan benar, dampaknya besar untuk kualitas aplikasi. Dengan memahami properti, event, dan teknik validasi, kamu bisa membuat aplikasi desktop yang lebih profesional dan nyaman digunakan.

Sekarang giliran kamu! Coba praktikkan contoh kode di atas, eksperimen dengan berbagai properti textbox, dan kembangkan aplikasi versimu sendiri. Kalau kamu merasa artikel ini bermanfaat, jangan ragu untuk bookmark atau bagikan ke teman sesama pejuang vb.net. Selamat ngoding! 🚀