Fungsi & Event Controls Visual Basic .Net - VI [ ListBox ]

 

ListBox

Buat tampilan seperti gambar diatas, lalu setting properties :

 Isikan sintax pada form_load dan klik button

Private Sub Form_Load()

ListBox1.Items.Add("Matematika") 

ListBox1.Items.Add("Fisika") 

ListBox1.Items.Add("Bahasa") 

ListBox1.Items.Add("Sejarah") 

ListBox1.Items.Add("Komputer")

End Sub

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

Dim pesan As String 

Dim i As Integer 

pesan = "" 

For i = 1 To ListBox1.SelectedItems.Count 

pesan = pesan + ListBox1.SelectedItems.Item(i - 1) + vbCrLf 

Next 

TextBox1.Text = pesan

End Sub

Jalankan tekn F5, maka layoutnya :

Kemudian pilih mata pelajaran yang mau didaftar, lalu  klik Tampilkan, untuk melihat hasilnya :

Fungsi & Event Controls Visual Basic .Net - V [ CheckBox ]

CheckBox

Buat tampilan seperti gambar diatas, lalu isikan pada properties  :

Tampilan setelah disetting properties :

Sintax :

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

TextBox1.Text = "" 

If CheckBox1.Checked = True Then 

TextBox1.Text = TextBox1.Text & CheckBox1.Text & vbCrLf 

End If 

If CheckBox2.Checked = True Then 

TextBox1.Text = TextBox1.Text & CheckBox2.Text & vbCrLf 

End If 

If CheckBox3.Checked = True Then 

TextBox1.Text = TextBox1.Text & CheckBox3.Text & vbCrLf 

End If 

If CheckBox4.Checked = True Then 

TextBox1.Text = TextBox1.Text & CheckBox4.Text & vbCrLf 

End If 

If CheckBox5.Checked = True Then 

TextBox1.Text = TextBox1.Text & CheckBox5.Text & vbCrLf 

End If

End Sub

Jalankan tekan F5, lalu klik Tampilkan, maka hasilnya seperti gambar :

Fungsi & Event Controls Visual Basic .Net - IV [ RadioButton ]

RadioButton

Sintax :

Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton1.CheckedChanged

        TextBox1.Text = "Merah"

 End Sub

Private Sub RadioButton2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton2.CheckedChanged

        TextBox1.Text = "Hijau"

End Sub

Jalankan tekan F5, lalu klik salah satu radiobutton tersebut, misal dipilih radiobutton hijau maka hasilnya seperti dibawah gambar :

Fungsi & Event Controls Visual Basic .Net - III [ Button ]

Button

Isikan Properties seperti dibawah ini :

Jika dijalankan akan menampilkan layout seperti dibawah :

Untuk proses pada button masukan code sintax di event klik button tersebut :

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

          Dim x As Integer

Dim y As Integer

Dim hasil As Integer

x = txtangka1.Text

y = txtangka2.Text

'untuk penjumlahan

hasil = x + y

MessageBox.Show("Hasil penjumlahan : " & hasil & "")

End Sub

Jalankan tekan F5, lalu klik Proses, maka akan ditampilkan hasilnya seperti dibawah ini

Fungsi & Event Controls Visual Basic .Net - II [ Textbox ]

 

Textbox

Pada kesempatan ini akan dibahas tentang validasi textbox yaitu : 

1. Validasi Multiline

Validasi Multiline digunakan untuk setting textbox biar jumlah kerakter jadi multiline. Biasa digunakan untuk field alamat, keterangan note atau yang memerlukan penulisan yang panjang.

Ubah properties multiline menjadi True pada textbox tersebut

maka textbox akan menjadi seperti dibawah tampilan design :

2. Validasi Hanya Angka

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress 

Dim keyascii As Short = Asc(e.KeyChar) 

If (e.KeyChar Like "[0-9]" OrElse keyascii = Keys.Back) Then 

keyascii = 0 Else e.Handled = CBool(keyascii) 

End If 

End Sub

3. Validasi Hanya Huruf

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress 

Dim keyascii As Short = Asc(e.KeyChar) 

If (e.KeyChar Like "[a-z]" OrElse keyascii = Keys.Back) Then 

keyascii = 0 Else e.Handled = CBool(keyascii) 

End If 

End Sub

pada validari dibawah dari nomor 4 - 10,  sintak didalam pada Form Load

4. Validasi Hanya Huruf Kapital (Huruf Besar)

TextBox1.CharacterCasing = CharacterCasing.Upper

5. Validasi Hanya Huruf Kecil

TextBox1.CharacterCasing = CharacterCasing.Lower

6. Validasi Maksimal Karakter

TextBox1.MaxLength = 10

7. Validasi Posisi Karakter

TextBox1.TextAlign = HorizontalAlignment.Right

8. Validasi Format Mata Uang Rupiah

TextBox1.Text = FormatCurrency(TextBox1.Text)

9. Validasi Password Char

TextBox1.PasswordChar = "*"

10. Validasi Read Only

TextBox1.ReadOnly = True 'atau TextBox1.Enabled = False

 

Source secara lengkap di Form_load :

Private Sub Form_Load()

' menjadi huruf besar

TextBox1.CharacterCasing = CharacterCasing.Upper

' menjadi huruf kecil

TextBox1.CharacterCasing = CharacterCasing.Lower

' membatasi karakter input 10 maksimal

TextBox1.MaxLength = 10

' membuat rata posisi text, bisa left, center

TextBox1.TextAlign = HorizontalAlignment.Right

'membuat format mata yang

TextBox1.Text = FormatCurrency(TextBox1.Text)

' bisa digunakan untuk pengisian password

TextBox1.PasswordChar = "*"

' hanya bisa dibaca tidak bisa diubah

TextBox1.ReadOnly = True 'atau TextBox1.Enabled = False

End Sub

Fungsi & Event Controls Visual Basic .Net - I [ Label ]

 

Label

Untuk melakukan pengaturan pada label ada 2 cara yaitu :

1. Properties :

Name : nama Label,  nama ini harus unik dan tidak boleh sama dengan nama Label yang lain.
Alignment : untuk mengatur perataan text pada Label,  rata kanan, rata kiri atau rata tengah.
BackColor : memberi warna pada backgroud Label.
BackStyle : 
Berisi 2 Pilihan:

- Opaque:  dengan background Label berwarna.
- Transparent: dengan backgroud transparan ( tanpa warna )

Caption : keterangan pada Label.  
Font : jenis dan ukuran Font untuk Label.
ForeColor : untuk memberi warna pada Label.
Height : untuk mengatur tinggi Label.
Left : untuk mengatur jarak Label dari kiri Form.
ToolTipText : tooltip ketika Cursor berada diatas Label.
Top : untuk mengatur jarak Label dari atas pada Form.
Width : untuk mengatur lebar Label

2. Sintax atau coding 

Private Sub Form_Load()

Label1.Alignment = 2

Label1.BackColor = vbRed

Label1.Caption = "Control Label"

Label1.Font = "Times New Roman"

Label1.FontSize = 16

Label1.FontBold = True

Label1.ForeColor = vbYellow

End Sub

bisa juga bisa dengan coding seperti dibawah ini ; 

Private Sub Form_Load()

With Label1

.Alignment = 2

.BackColor = vbRed

.Caption = "Control Label"

.Font = "Times New Roman"

.FontSize = 16

.FontBold = True

.ForeColor = vbYellow

End With

End Sub

Jalankan bisa tekan F5 atau klik tanda start warna hijau

Hasil tampilan saat dijalankan 

Cara Install Frameword .NET

Berikut adalah cara menginstall Framework .NET :

1. Download  FrameWork  .NET 4.5.2 Offline

Ukuran File kurang lebih: 66.8 MB

Minimal System Operasi Windows :
- Windows Vista SP2
- Windows 7 SP1
- Windows 8
- Windows 8.1
- Windows Server 2008 SP2
- Windows Server 2008 R2 SP1
- Windows Server 2012
- Windows Server 2012 R2

Microsoft.Net FrameWork 4.5.2 diatas sudah termasuk pelengkap dari :
- Microsoft .NET Framework 4
- Microsoft .NET Framework 4.5
- Microsoft .NET Framework 4.5.1

2. Install Microsoft.Net FrameWork 4.5.2 Offline

Klik File download-an tersebut, lalu centang I have read and accept the license terms, kemudian klik install

3. Tunggu proses installasi selesai

4. Klik Finish, kemudian restart laptop/komputer

Untuk mencek hasil install  : Start> - Control Panel - Program and Features ( Windows 10 )  

Maka akan ditampilkan semua program yang terinstall