User Control merupakan fasilitas yang disediakan oleh Visual Basic .NET untuk membuat control sendiri sesuai dengan kebutuhan.

Fungsi User Control    :
-  membuat tampilan / antar muka di form.
co. control yang sering digunakn yaitu  : TextBox, Label, Button, dsb
-  dapat memproses data
-  menerima inputan user
-  bereaksi terhadap event atau melakukan fungsi lain yang menghubungkan antara user dan aplikasi

Contoh codingnya    :
Imports JAM_DIGITAL
Public Class Form2
Inherits System.Windows. Forms. Form
Dim JAM As New JAM_DIGITAL.UserControl1
Private Sub Form2_Load(Byval sender as……..)
Handles MyBase.Load
JAM. Top = 35
JAM. Left = 170
Me.Controls.Add (JAM)
End Sub
End Class

fungsinya   

Mampu menampilkan grid didalamnya serta mampu menampung berbagai tipe data selain teks.

Misalnya    : tipe bitmap, selain itu listview juga mampu menampilkan data lebih dari satu kolom dibandingkan listbox.

Tambah data di listview

Buat dulu form gambar pada form – load

listview1.view :view details

listview1.columns.Add(“Kode”,75,_HorisontalAlignment.center)

 listview1.columns.Add(“Nama”,100,HorisontalAlignment.Left)

 listview1.columns.Add(“Satuan”,100,HorisontalAlignment.Left)

 diButton tambah

Dim xList As New listview Item (TextBox.text)

xlist.subitems.Add(textbox2.text)

xlist.subitems.Add(textbox3.text)

listview1.items.add(xlist)

button hapus

Try

Listview1.Items.Remove(listview1.focusedItem)

Catch ex As Exception

MessageBox.Show(“Gagal dihapus!!!”)

End Try

(Dalam pembuatan listview tentukan dulu kolom yang akan ditampilkan serta tipe dari listview itu sendiri (grid,normal atau menggunakan image dengan imagelist) kemudian inisialisasi obyek listview item sebelum mengisikan data didalam listview tersebut!!) 

Merupakan kontrol yang terletak di bagian atas form yang terdiri dari serangkaian tombol-tombol yang berbentuk button atau drop-down menu.

Fungsi    : untuk melakukan tugas tertentu yang sangat efektif karena dapat mempersingkat pemakai program dalam melakukan pekerjaan yang penting dan sering dilakukan.

Langkah-langkah penggunaan :

1. Aktifkan proyek baru sehingga terbentuk sebuah form.
2. Lakukan double klik pada kontrol ToolBar pada ToolBox & secara otomatis kontrol toolbar ditempatkan pada bagian atas form.
3. Atur properti ImageList dengan nilai ImageList.
4. Tambahkan Button untuk toolbar dengan mengatur nilai propertybuttons. Klik tanda elipsis yang ada disebelah kanan (collection) & kotak dialog.
5. Klik tombol Add & sebuah button tampil di toolbar yang menempel pada form.
6. Atur property Name, ImageIndex, Style, Text.
7. Klik tombol OK untuk menutup kotak dialognya.

contoh   :

Inherits System.Window…….

Private Sub ToolBar1_ButtonClick(Byval….)

Case0

MessageBox.show(“Tombol save”)

Case1

MessageBox.show(“Tombol open”)

Case4

MessageBox.show(“Tombol Info”)

End Select

End Sub

STATUSBAR

Statusbar/baris status  adalah suatu kontrol horisontal yang terletak di bagian bawah suatu layar aplikasi.

Fungsi    :

Digunakan untuk menampilkan informasi teks seperti jam dan tanggal sistem, keterangan dari penekanan tombol-tombol keyboard. Penjelasan proses yang sedang terjadi dan deskripsi dari item menu.

Langkah-langkah penggunaannya    :

1. Aktifkan proyek yang ada formnya terdapat toolbar.
2. Aktifkan kontrol statusbar yang berada ditoolbox dengan cara melakukan dobel klik.
3. Sebelum menambahkan panel baru pada statusbar, properti show panels yang bernilai Boolean menjadi True.
4. Pada properti panels, klik elipsis yang ada disebelah kanan (collection) selanjutnya sebuah kotak dialog status Barpanel collection editor ditampilkan.
5. Klik Add
6. Atur properti seperti Allegnment, Nama, Text.
7. Klik button OK untuk menutup kotak dialog.

Contoh

Private Sub Form1_Load(Byval…)

SatusBar1.Panels(0).Text = Now.ToLongTimeString

End Sub

Private SubTimer1_Tick

StatusBar1.Panels(1).Text = Now.ToLongTimeString

End Sub

(Properti Timer : Enable :True, Interval : 1000) 

Fungsi  : Salah satu komponen yang tersedia pada VB. Net untuk memudahkan kita dalam melakukan validasi terhadap kemungkinan error yang terjadi khususnya untuk melakukan validasi pada inputan yang berhubungan dengan user interface. Memberikan berupa message yang akan ditempatkan pada tooltip & juga icon untuk memberitahukan pada user jika terjadi error.

Contoh  :

Private Sub Button1_click .( Byval ….)

Handles.Button1.Click

If TextBox1.Text = ” ” then

Error Provider1.SetError(TextBox), (“Cannot leave textbox Blank”)

Else

Error Provider1.SetError(TextBox1, ” “)

End If

End Sub

Fungsi  : Melakukan penanganan kesalahan, maka program tidak akan berhenti, tetapi akan mengeksekusi blok program yang terdapat setelah catch, sdangkan pernyataan yang terdapat setelah finally merupakan blok program yang akan selalu di eksekusi tanpa memperdulikan adanya kesalahan atau tidak.

try —–> statement yang berpotensi dapat menyebabkan error

catch —–> variabel As jenis exception, statement untuk menghandle error yang mungkin terjadi.

finally —–> statement final untuk membersihkan error

contoh  :

Dim a As Integer
Dim b As Integer                                                                                                                           Dim c As Integer                                                                                                                                   Try a = b\c

cacth exc As Exception

console.WriteLine (“A run – time error occurred”)

Finally

Console.ReadLine ( )

End Try

2.  Throw Exception

Fungsi  :  elain menangkap error yang mungkin terjadi dengan menggunakan catch kita juga dapat menghandle error yang terjadi dengan melempar / throw exeption.

contoh  :

Public class cbsPerson

Private mintAge As Integer

Public Property Age ( ) As Integer

Get

ge = MintAge

End Get

Set (Byval….)

If value >= 0 then

mintAge = value

Else

Throw New ApplicationException (“Age cannot be negavite”)

End If

End Set

End Property

End Class

SQL Connection ——–> digunakan untuk melakukan koneksi ke dalam Database. Contoh : – untuk melakukan koneksi tambahkan dulu pernyataan imports ke baris pertama jendela kode sebagai berikut:

Imports System.Data.SqlClient

- Berikutnya deklarasikan objek connection :

Private Sub Open Connection ( )

Dim strcon As String_

“Data source =_ “SQLq ; Initial Catalog = DBq ; ” & _

“UID = Userq ; PWD = passq “

conn = NewSqlConnection (strcon)

conn.open ( )

End Sub

SQL Command —–> digunakan untuk menjalankan perintah Sql(query) pada Database. Contoh : – menjalankan perintah, pertamakali deklarasikan variabel objek command :

Dim cmdkaryawan As New SqlCommand ( )

- Berikutnya menggunakan metode create command dari objek connection & menggunakan properti commenttext untuk memberitahu ADO.NET bagaimana menterjemahkan perintah :

cmdKaryawan = cnn.createcommand

cmdKaryawan.CommandText = _

“SELECT FirstName + ‘ ‘+ LastName As Nama Penuh”_

& “From Employess”

SQL Data Reader —–> digunakan untuk melakukan pembacaan data hasil dari SQL Command, dengan sifat Forward-only dan Read-only

Contoh : membuat objek Data Reader menggunakan metode ExecuteReader ( ) dari objek command.

SqlConnection1.open ( )

Dim SQLReader As System.Data.SlqClient.SqlDataReader

SQLReader = SqlCommand1.ExecuteReader( )

while SQLReader.Read

ListBox1.Items.Add (SQLReader.Item(“ProductID”) _

& vbTab & SQLReader.Item (“ProductName”))

End while

SqlConnection1.Close ( )

Contoh syntax : [ jangkauan ] sub nama prosedur

[(paramete)]

blok perintah

end sub

pemanggilan prosedur :

Private sub cekAngka ()
if not isNumeric  (xTeks.text) then

Messagebox.show(“Harus diisi angka”

xTeks.focus()

end if

end sub

Private sub TextBox1_LostFocus(……….)

cekAngka(sender)

end sub

Function yaitu pemanggilan function secara umum, selalu diarahkanke sebuah variabel sebagai titik balik dari funsi twrsebut.

Contoh syntax :

[Private] [Public] [Static] Function  (nama Funsi0

(parameter) [as Tipe]

pernyataan

end function

contoh pemanggilan : private sub Button1_Click(…)

Messagebox.show(Hitung)

end sub

Function HITUNG

DIM A, B, C AS INTEGER

A=200;B=500

C=A+B

RETURN C

END FUNCTION

- Label 

Menampilkan teks, tetapi pemakai tidak bisa berinteraksi dengannya. contoh : Lbl_nama

Label memiliki properties yaitu :

1. text fungsinya untuk memasukkan inputan.

2. size fungsinya untuk mengubah ukuran dari label tersebut bisa diperkecil ataupun          diperbesar.

Label memiliki Methods yaitu :

1. close fungsinya untuk menutup form

2. hide fungsinya untuk menyembunyikan form

Label memiliki event yaitu :

1. click fungsinya untuk event click yang terjadi apabila tombol kiri mouse ditekan dan dilepas dengan cepat saat posisi pinter berada diatas suatu objek

2. Dblclick fungsinya untuk event double click yang terjadi apabila tombol kiri mouse ditekan dan dilepas dengan cepat sebanyak 2 kali saat posisi pointer berada diatas suatu objek.