Membuat User Control Menggunakan VB .NET

Sekarang saya mencoba membuat Tutorial Membuat User Control pada ruang lingkup sempit menggunakan VB .NET. Maksud dari "ruang lingkup sempit" adalah program-program dalam satu solution, artinya user control tersebut (.pdb) berada  dalam satu proyek dengan form.Sebelumnya saya minta maaf karena tidak dapat menampilkan gambar karena koneksi yang tidak mumpuni, jadi terpaksa saya hanya memberikan runtunan (sequence) saja.

Berikut runtunan (sequence) untuk pembuatan User Control Menggunakan VB .NET.

- Buka Program Visual Studio anda, melalui menu StartUp atau desktop sama saja, lalu pilih project type VB .NET dan kemudian pilih Templates Windows Application.

- Isikan nama projectnya misalnya UserControlNumerik

- Kemudian aktifkan template User Control dengan klik pada menu Project dan pilih Add User Control dan bisa juga menggunakan cara lain dengan klik kana solution explorer dan klik Add User Control.

- Kemudian jika cara anda benar maka akan muncul jendela baru yang bertitel Add New Item - UserControlNumerik. Ketikkan nama User Control pada kotak isian Name (Silahkan isi nama menurut apa yang anda sukai, untuk contoh ini, saya memberi nama Numerik). Klik tombol Open untuk menutup jendela Add New Item atau tekan tombol enter.

- Selanjutnya akan muncul sebuah form kosong, lalu tempatkan sebuah textbox. Ganti nama textbox tersebut menjadi txtNumerik dan ganti juga isi dari properties textbox dengan angka nol. Buat perataan kanan agar saat digunakan inputannya langsung rata kanan. Kecilkan ukuran form sehingga sesuai ukuran dengan txtNumerik.

- Lakukan klik ganda pada textbox yang telah dibuat untuk membuat event TextChanged. Nilai ASCII dari angka (data numerik) adalah 48 untuk NOL sampai 57 untuk SEMBILAN. Kode lain yang bisa diterima adalah 8 yaitu Backspace. Ketikkan kode-kode berikut ini :

Public Class Numerik
     Inherits System.Windows.Forms.Form Protected Overrides Sub onkeypress(ByVal e As _ System.Windows.Forms.KeyPressEventArgs)
          Select Case Asc(e.KeyChar)
               Case 48 To 57 'nilai angka 0 s/d 9
                    e.Handled = False
               Case 8 'nilai backspace
                    e.Handled = False
               Case Else
                    e.Handled = True
           End Select
      End Sub


Public Overrides Property Text() As String
      Get
               Return MyBase.Text
      End Get
      Set(ByVal Value As String)
            Dim a As Integer
            For a = 1 To Value.Length
            
                     If Asc(Mid(Value, a, 1)) >= 48 And Asc(Mid(Value, a, 1)) <= 57 Then
                            MyBase.Text = Value
                            If a = Value.Length Then
                                  Exit Property
                            End If
                      Else
                            MyBase.Text = ""
                            Exit Property                     
                      End If
            Next

            If Value = Nothing Then
                 MyBase.Text = Value
                 Exit Property
            End If
     End Set
  End Property
End Class

- Kemudian setelah kode ditulis semua silahkan Build Project dengan cara klik kanan Solution Explorer --> Build atau pilih Menu Build --> Build.

Happy Coding