Mencegah Karakter Huruf Masuk Ke Textbox

Mencegah Karakter Huruf Masuk Ke Textbox

Double klik textbox , lalu ganti evant menjadi keypress.
Masukkan Koding di bawah ini :

        If Not Char.IsNumber(e.KeyChar) And Not Char.IsControl(e.KeyChar) Then
            e.Handled = True
            'Show messagebox indicating error
            MessageBox.Show("Text ini hanya untuk nomor", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End If

Semua Koding :

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Not Char.IsNumber(e.KeyChar) And Not Char.IsControl(e.KeyChar) Then
            e.Handled = True
            'Show messagebox indicating error
            MessageBox.Show("Text ini hanya untuk nomor", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End If
    End Sub

Semoga bermanfaat

By: thoestone On 11:32 AM

Continue Reading

Membuat Pencarian Data Pada TextBox ( Otomatis Menampilkan Data Dari Database Ke Object Di VB.Net )

Membuat Pencarian Data Pada TextBox ( Otomatis Menampilkan Data Dari Database Ke Object Di VB.Net )

Sebelum melanjutkan membuat pencarian data harap baca terlebih dahulu mengenai :
- Koneksi ke database
- Membuatt database

Bagi yang udah paham langsung aja .

Pada gambar di atas pada textbox ID ADM saya double klik lalu pastikan pada EVENT "TextChanged"

Copas kode di bawah ini :

Try
            Using Conn As New SqlConnection(dinas_penduduukan_pencatatan_sipil.My.Settings.db1ConnectionString)
                Conn.Open()
                Using sql As New SqlClient.SqlCommand("Select * from adm where id_adm='" & TextBox1.Text & "'", Conn)
                    Using dr As SqlClient.SqlDataReader = sql.ExecuteReader()

                        Using dt As New DataTable
                            dt.Load(dr)
                            If dt.Rows.Count <> 1 Then
                                TextBox2.Text = ""
                                TextBox3.Text = ""
                                ComboBox1.Text = ""
                                Button1.Enabled = True
                                Button3.Enabled = False
                                Button4.Enabled = False
                            Else
                                Dim row As DataRow = dt.Rows(0)
                                TextBox2.Text = row(1)
                                ComboBox1.Text = row(2)
                                DateTimePicker1.Value = row(3)
                                TextBox3.Text = row(4)
                                Button1.Enabled = False
                                Button3.Enabled = True
                                Button4.Enabled = False
                            End If
                        End Using
                    End Using
                End Using
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Terima kasih 

semoga bermanfaat

By: thoestone On 11:58 AM

Continue Reading