PROPERTIES PADA VB.NET 2008

Berikut saya bagikan beberapa properties yang sering digunakan dalam pembuatan program, Untuk mempermudah pembelajaran tentang properties ini saya menggunakan sebuah program sederhana seperti berikut :

buatlah form dengan tampilan seperti berikut :

Atur propertiesnya seperti berikut :

 Untuk mengetikan kode program dibawah ini, double klik pada button yang akan di tuliskan kode nya,.
*** tulisan yang tebal berarti otomatis dari program itu sendiri, dan tidak perlu diketik manual.
Public Class FRM_PROPERTIES
    Private Sub BTNLOCK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLOCK.Click
        TXTADDRES.ReadOnly = True
        TXTPASS.ReadOnly = True
        TXTUSER.ReadOnly = True
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btbunlok.Click
        TXTADDRES.ReadOnly = False
        TXTPASS.ReadOnly = False
        TXTUSER.ReadOnly = False
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenabled.Click
        TXTADDRES.Enabled = True
        TXTPASS.Enabled = True
        TXTUSER.Enabled = True
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndisabled.Click        TXTADDRES.Enabled = False
        TXTPASS.Enabled = False
        TXTUSER.Enabled = False
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnforecolor.Click
        TXTADDRES.ForeColor = Color.Red
        TXTPASS.ForeColor = Color.Red
        TXTUSER.ForeColor = Color.Red
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        TXTUSER.Focus()
        TXTADDRES.AppendText("CVB")
    End Sub

    Private Sub btnbackclor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbackclor.Click        TXTADDRES.BackColor = Color.Blue
        TXTPASS.BackColor = Color.Blue
        TXTUSER.BackColor = Color.Blue
    End Sub
    Private Sub btnhide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhide.Click        TXTADDRES.Visible = True
        TXTUSER.Visible = True
        TXTPASS.Visible = True
    End Sub

    Private Sub btnshow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnshow.Click        TXTADDRES.Visible = False
        TXTUSER.Visible = False
        TXTPASS.Visible = False
    End Sub
    Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click        TXTADDRES.Text = ""
        TXTPASS.Text = ""
        TXTUSER.Text = ""
    End Sub

    Private Sub btnclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclose.Click        Dim PESAN As String
        PESAN = MsgBox("KELUAR ? ", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "PENTING")
        If PESAN = vbYes Then
            Close()
        End If
    End Sub
End Class


Sedikit saya akan menjelaskan tentang perbedaan dari fungsi-fungsi properties diatas,

properties locked dan unlocked : berfungsi untuk menonaktifkan dan mengaktifkan textbox tetapi masih bisa di klik atau d scroll untuk membaca nya, atau dengan kata lain hanya bisa dibaca...

properties enable dan disable : berfungsi untuk mematikan dan mengaktikan textbox. Perbedaan antara locked/unlocked dan enable disable yaitu juka pada locked tadi textbox mash bisa di scroll tapi g bisa diisi text lagi, tetapi kalau di enable dan disable maka textbox benar-benar tidak bisa di utak atik lagi ...

properties forecolor dn backcolor: perbedaan antara kedua properties yaitu jika fore color berfungsi untuk memberi warna pada text nya sedangkan beckcolor berfungsi memberi warna pada background nya

sedangkan hide dan show berfungsi untuk menyembunyikan text dan menampilkan text...
eh satu lagi hampir lupa, append itu untuk menambahkan text ke dalam textbox...

Baru segitu pengetahuan saya tentang properties pada vb.net 2008, semoga bermanfaat....

terimakasih atas kunjungan ke blog saya ini,,,,,,,,