Pemrogaman Visual Basic.NET (Modul 2)

Pemrograman Form pada VB.NET Hendra, S.T.

Pemrograman Form pada VB.Net
Oleh : Hendra, ST.

Buku ini membahas tentang pembuatan program Windows Form dengan bahasa
pemrograman Visual Basic .Net, dan ditujukan kepada siapa saja yang serius untuk
mempelajari pembuatan form dan control dengan VB.NET secara koding (tanpa
menggunakan fasilitas designer pada Visual Studio .NET). Bagi anda yang belum
mengenal bahasa pemrograman VB.NET sebaiknya memulai proses belajar dengan buku
Bahasa Pemrograman VB.NET.

Untuk mempelajari buku ini anda tidak perlu menginstalasi Visual Studio .NET, tetapi
anda cukup menginstalasi .Net Framework yang dapat didownload secara gratis dari
website Microsoft.

Semua contoh dan latihan dibuku ini dapat dikompilasi langsung dari Dos prompt dengan
menggunakan kompiler Visual Basic yang langsung tersedia setelah anda menginstalasi
.Net Framework.

Dibandingkan dengan Visual Basic 6.0, maka VB.NET adalah benar-benar bahasa
pemrograman, dimana pembuatan form dan control dapat dilakukan secara koding 100%,
sedangkan pada Visual Basic 6.0 hal tersebut tidak dimungkinkan.

INDOPROG 1


Program Windows Form
Windows Forms merupakan platform pada .NET Framework untuk pengembangan
program aplikasi yang berbasis Form pada Windows. Framework ini menyediakan
berbagai class-class yang jelas, berorientasi objek, dan dapat dikembangkan, Windows
Forms dapat bertindak sebagai interface local pada solusi client server maupun multi-tier
terdistribusi.

Catatan :
Pada VB.NET, kita dapat melakukan pemrograman form tanpa menggunakan fasilitas
designer sama sekali dan tentu saja cara ini cukup menyulitkan bagi programmer VB
yang sudah terbiasa menggunakan IDE.

Sebenarnya fasilitas IDE berbasis .NET dapat diperoleh dengan menginstalasi Visual
Studio.NET, dan tentu saja membutuhkan suatu investasi yang besar untuk mempelajari
bahasa pemrograman ini bagi mahasiswa maupun kalangan perguruan tinggi.

Tutorial ini menggunakan pendekatan koding langsung yang dapat dilakukan dengan
notepad maupun edit, dan hasil koding dapat dikompilasi dengan compiler Visual Basic
yang tersedia begitu kita menginstalasi Microsoft .NET Framework yang dapat
didownload gratis di situs Microsoft.

Penulis yakin proses pembelajaran dengan pendekatan koding merupakan langkah yang
sangat tepat untuk membawa anda menjadi professional yang menguasai VB.NET secara
mendalam dan mengendalikan secara penuh program aplikasi anda.

Apa itu form ?
Form merupakan interface antara program dengan pemakai untuk proses input output.
Pada Windows, form dapat berupa :

• single-document interface (SDI)
• multiple-document interface (MDI)
• Explorer-style interface

Salah satu contoh dari interface SDI adalah aplikasi WordPad.

Adapun program aplikasi Windows yang berbasis pada form yang paling sederhana
adalah :

Option Explicit On
Imports System

Public Module MyModule

INDOPROG 2


Dim Form1 As New System.Windows.Forms.Form

Sub Main()
Form1.Text = "Belajar Buat Form" 'untuk title form
Form1.ShowDialog() 'form modal
End Sub

End Module

Proses Kompilasi

Kemudian simpan dengan nama form.vb anda dapat melakukan kompilasi dengan
perintah :

Vbc <namafile> /r:System.dll /r:System.Windows.Forms.dll /r:System.Drawing.dll

Contoh :

Vbc form.vb /r:System.dll /r:System.Windows.Forms.dll

Selanjutnya anda dapat menjalankannya sebagaimana program Windows dan
menghasilkan tampilan berikut :

Membuat Form senantiasa diatas form lain
Form yang senantiasa berada diatas form lain maksudnya adalah form yang tidak dapat
ditimpa oleh form lain diatas layar. Form-form sejenis ini biasanya digunakan pada
aplikasi screen saver maupun aplikasi security untuk mengunci layar seperti pada Billing
System pada warna, maupun program pada Front Desk, maupun POS untuk mencegah
pemakai beralih ke layar lain.
Option Explicit On
Imports System



Sub Main()
Form1.Text = "Form ini senantiasa diatas form lainnya"
Form1.TopMost = True
Form1.ShowDialog()
End Sub

End Module

Membuat Form transparan
Kita dapat menggunakan properties Opacity yang dapat diset antara nilai double 0.0
(paling transparan) s/d 1.0

INDOPROG 3


Option Explicit On
Imports System
Imports System.Threading



Sub Main()
Form1.Text = "Form ini akan semakin transparan"
Form1.Show()
For I As Double = 1 To 0 Step -0.01
Form1.Opacity = I
Form1.Refresh() 'refresh form dengan setting baru
Thread.Sleep(100) 'memperlambat program 100 millidetik
Next I
End Sub

End Module

Menampilkan Form Modal dan Modeless
Form Modal harus ditutup atau hidden sebelum program berikutnya dijalankan,
sedangkan pada Modeless program akan dilanjutkan setelah form ditampilkan. Biasanya
form Modal digunakan untuk menampilkan dialog box yang membutuhkan perhatian
pemakai dan proses tidak boleh dialihkan sebelum mendapatkan keputusan dari pemakai.

Untuk form Modal dapat digunakan metoda ShowDialog(), sedangkan untuk form
Modeless dapat digunakan metoda Show().

Mengatur border pada form
Ada beberapa model border yang dapat diset pada properti FormBorderStyle, berikut ini
adalah beberapa enumerasi pada FormBorderStyle.

Setting Description
None Tidak ada border, biasanya digunakan untuk splash screen
Fixed3D Menggunakan efek tiga dimensi. Ukuran form tidak dapat diubah. Dapat diikuti oleh
tombol control-menu box, title bar, Maximize dan Minimize pada title bar.
FixedDialog Digunakan untuk fixedDialog
FixedSingle Tidak dapat diubah ukurannya
FixedToolWindow Digunakan untuk tool windows, dan form tidak ditampilkan pada task bar
Sizable Form default
SizableToolWindow Tools windows yang dapat diubah ukurannya

Option Explicit On
Imports System



INDOPROG 4


Sub Main()
Form1.Text = "Form ini menggunakan border fixed 3D"
Form1.FormBorderStyle =
System.Windows.Forms.FormBorderStyle.FixedDialog
Form1.ShowDialog()
End Sub

End Module

Kita dapat juga mengatur keberadaan button maximize dan minimize, dengan properti
MinimizeBox dan MaximizeBox, contoh :

Option Explicit On
Imports System



Sub Main()
Form1.Text = "Form ini tanpa tombol Maximize dan Minimize"
Form1.MinimizeBox = False
Form1.MaximizeBox = False
Form1.ShowDialog()
End Sub

End Module

Mengatur ukuran form
Untuk mengubah ukuran form pada saat runtime dapat menggunakan properti Height,
dan Width, misalnya kita ingin mengubah ukuran form menjadi 500 x 500 pixel, Contoh :

Option Explicit On
Imports System



Sub Main()
Form1.Text = "Form ini berukuran 500 x 500 pixel"
Form1.Width = 500
Form1.Height = 500
Form1.ShowDialog()
End Sub

End Module

Catatan :
Jika kita tidak menentukan ukuran form, maka default suatu form adalah 300 x 300 pixel

INDOPROG 5


Ukuran form juga tergantung pada setting properti WindowState, yang mana dapat diset
dengan enumerasi dari FormWindowState berikut :

Member name Description
Maximized Jendela maximized.
Minimized Jendela minimize
Normal Jendela default

Option Explicit On
Imports System



Sub Main()
Form1.Text = "Form ini dalam state Maximize"
Form1.WindowState =
System.Windows.Forms.FormWindowState.Maximized
Form1.ShowDialog()
End Sub

End Module

Mengatur lokasi form di layar
Untuk menentukan posisi form dilayar dapat digunakan properti Left, dan Top, serta
StartPosition, contoh:
Option Explicit On
Imports System



Sub Main()
Form1.Text = "Form ini berada di posisi 0,0"
Form1.Top = 0
Form1.Left = 0
Form1.ShowDialog()
End Sub

End Module

Sedangkankan untuk pemakaian properti StartPosition kita dapat
menggunakan enumerasi FormStartPosition sebagai berikut :

CenterParent The form is centered within the bounds of its parent form.
CenterScreen The form is centered on the current display, and has the dimensions specified
in the form's size.
Manual The position of the form is determined by the Location property.
WindowsDefaultBounds The form is positioned at the Windows default location and has the bounds

INDOPROG 6


determined by Windows default.
WindowsDefaultLocation The form is positioned at the Windows default location and has the
dimensions specified in the form's size.

Contoh :

Option Explicit On
Imports System



Sub Main()
Form1.Text = "Form ini berada ditengah layar"
Form1.StartPosition =
System.Windows.Forms.FormStartPosition.CenterScreen
Form1.ShowDialog()
End Sub

End Module

Latihan :
Buatlah program aplikasi windows yang dapatkan menampilkan form dengan ketentuan
sebagai berikut :
1. Judul Form : Form saya yang pertama
2. Ukuran : 450 x 450 pixel
3. Berada diposisi : 200,200
4. Bingkai : Fixed Single
5. Opacity : 0.5

Modifikasi program diatas untuk menampilkan form tersebut ditengah layar.

INDOPROG 7


OOP pada program Windows Form
Adapun teknik lain yang dapat digunakan untuk pembuatan program Windows Form
adalah dengan pendekatan OOP, dimana kita membangun class baru yang di inherit dari
System.Windows.Forms.Form, contoh :

Option Explicit On
Imports System

Public Class MyForm
Inherits System.Windows.Forms.Form

<System.STAThread()> _
Public Shared Sub Main()
System.Windows.Forms.Application.Run(New MyForm)
End Sub

End Class

Pada program sebelumnya, kita senantiasa menggunakan Form1.ShowDialog() untuk
menampilkan Form1 secara modal, sedangkan kalau kita menggunakan Form1.Show(),
form hanya ditampilkan sebentar kemudian hilang karena program aplikasi kita segera
berakhir sesaat setelah Form1 ditampilkan, dan konsekuensinya Form1 juga dibuang dari
memori.

Sedangkan perintah System.Windows.Forms.Application.Run(New MyForm), akan
mengatur message dari sistem operasi ke program aplikasi, jika program anda tidak
mencantumkan baris ini, maka program dapat dikompilasi dan dijalankan tanpa
menghasilkan apa-apa.

Catatan :
Inheritance adalah salah satu ciri-ciri dari pemrograman berorientasi objek. Sebagaimana
kita ketahui bahwa Class Form telah tersedia pada .NET terdefinisi pada namespace
System.Windows.Forms.

Selanjutnya jika kita membuat class baru dengan melakukan inherit dari class Form,
maka secara otomatis akan mewarisi semua property, metoda, dan event yang sifatnya
protected dan public pada class Form.

Jadi kita tidak perlu perlu menulis ulang semua prilaku pada class baru, melainkan cukup
melakukan inherit dari parent class yang secara otomatis akan mewariskan semua
prilakunya ke child class.

Inheritance

Salah satu keunggulan dari OOP adalah isu pemanfaatan kembali. Dengan inheritance

INDOPROG 8


tugas pemrograman dapat dipemudah. Suatu class yang telah dikembangkan dapat
diperbaharui dengan mengembangkan child class (sub class) yang merupakan inheritance
dari parent class (super class).

Inheritance menyerupai pengembangan produk baru pada suatu perusahaan, dimana
engineer tidak perlu membuat produk baru dari awal, tetapi dengan mengacu pada produk
yang telah ada, dan dilakukan penambahan dan perbaikan.

Mengatur setting Form dengan Constructor

Untuk pengaturan setting Form, kita dapat membuat suatu Constructor bagi Class
MyForm. Constructor adalah metoda khusus suatu Class yang akan otomatis dijalankan
begitu instance dari Class dibuat dimemori komputer.

Catatan :
Perintah New MyForm adalah membuat instance dari Class MyForm. Dalam OOP istilah
Class sering dicampuradukan dengan Objek, pada hal sebenarnya Class merupakan cetak
biru dari Objek.

Hubungan antara Object dan Class

Object merupakan instance dari Class, beberapa object dapat berasal dari Class yang
sama, tetapi memiliki properti yang berbeda-beda (dengan bahasa yang lebih sederhana
dapat dikatakan bahwa class merupakan blue print dari objek-objek).

Misalnya dalam membangun rumah, maka sebelumnya dilakukan rancangan awal dengan
mengambarkan detail dari rumah serta ukuran-ukurannya, kemudian oleh pengembang
akan dibangun rumah-rumah yang nyata berdasarkan blue print tersebut.

Pada pembuatan program OOP, dimulai dengan pembuatan Class, dan pada saat runtime
akan dibuat instance dari Class sebagai Objek, jadi program tersebut berjalan sebagai
objek-objek dimemori komputer.

Pada Visual Basic, constructor untuk suatu Class ciptaan dapat menggunakan Public Sub
New. Contoh :

Option Explicit On
Imports System

INDOPROG 9


Public Class MyForm

End Sub

Public Sub New() 'Constructor
Me.Text = "Dengan pendekatan OOP"
End Sub

End Class

Catatan :
Konstruktor merupakan metode khusus pada class, dimana metoda ini otomatis akan
dijalankan oleh computer sesaat instance dari class dibuat, misalnya (New MyForm):


Pada dunia nyata, setiap objek mengalami kelahiran dan kematian, contoh sebuah rumah
mengalai tahap pembuatan (pembangunan) dan akhirnya akan diruntuhkan demikian juga
manusia juga mengalami kelahiran dan kematian, pada saat seorang bagi dilahirkan,
maka akan membawa property seperti jenis kelamin, berat badan, dan panjang.

Sebagaimana objek pada dunia nyata, objek dikomputer pada saat dibuat, tentu saja ada
property-properti tertentu yang perlu disetting nilai awalnya, dan hal tersebut dapat
dilakukan dengan membuat konstruktor untuk class tersebut.

INDOPROG 10


Penanganan Event pada form
Salah satu ciri dari pemrograman pada windows adalah bagaimana menangani event yang
dibangkitan oleh sistem operasi dan aplikasi berdasarkan aksi yang dilakukan oleh
pemakai terhadap form, misalnya melakukan klik pada mouse, ataupun penekanan
tombol.

Event pada Form
Event Terjadi pada saat Argumen
Activated Terjadi ketika form diaktifkan EventHandle
GotFocus Terjadi ketika kontrol mendapatkan focus EventHandle
Load Terjadi ketika form ditampilkan untuk pertama kali EventHandle
Resize Terjadi ketika kontrol mengalami perubahan ukuran EventHandle
Move Terjadi ketika kontrol berpindah EventHandle
LostFocus Terjadi ketika kontrol kehilangan fokus EventHandle
Closing Terjadi ketika form akan ditutup CancelEventHandle
Closed Terjadi ketika form ditutup EventHandle
Deactivate Terjadi ketika form kehilangan keaktifan EventHandle

Catatan :
Penanganan Event menjadi salah satu permasalahan yang dihadapi pemrograman yang
mengembangkan aplikasi mereka di lingkungan Windows, sebagaimana kita ketahui
bahwa Windows merupakan system operasi multitasking yang mana komunikasi antara
program aplikasi dengan system operasi dilakukan berdasarkan message.

Pada lingkungan multitasking, berbagai aksi yang dilakukan oleh pemakai pada system
operasi dapat mempengaruhi proses pada program kita, seperti klik pada mouse,
penekanan pada tombol.

Jika anda berasal dari pemrograman lingkungan DOS yang mana proses program berjalan
berdasarkan alur yang kita buat dari baris awal sampai baris terakhir, tentu saja akan
mengalami kesulitan untuk beralih ke pemrograman Windows dengan cepat, sebab
program di Windows berjalan berdasarkan Event. Tetapi saya yakin dengan latihan yang
intensif anda dapat dengan segera menyesuaikan diri.

System.EventHandle
Adapun tata cara penulisan event procedure untuk event yang menggunakan EventHandle
adalahs sebagai berikut :

Private Sub NamaKontrol_NamaEvent(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.NamaEvent

INDOPROG 11


System.ComponentModel.CancelEventArgs
Private Sub Form_Closing(ByVal sender As Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

Pada CancelEventArgs tersedia properti Cancel yang dapat diset ke nilai True/False
dengan tujuan proses Closing dilanjutkan atau dibatalkan.

Contoh :

Option Explicit On
Imports System
Imports Microsoft.VisualBasic

Public Class MyForm

Dim CatatEvent As String

End Sub

Me.Text = "Mencoba Event pada Form"
End Sub

Private Sub MyForm_Load(sender as Object, e As System.EventArgs)
Handles MyBase.Load
CatatEvent = "Terjadi Load" & vbCrlf
End Sub

Private Sub MyForm_Activated(sender as Object, e As
System.EventArgs) Handles MyBase.Activated
CatatEvent = CatatEvent & "Terjadi Activate" & vbCrlf
End Sub

Private Sub MyForm_GotFocus(sender as Object, e As System.EventArgs)
Handles MyBase.GotFocus
CatatEvent = CatatEvent & "Terjadi GotFocus" & vbcrlf
End Sub

Private Sub MyForm_Move(sender as Object, e As System.EventArgs)
Handles MyBase.Move
CatatEvent = CatatEvent & "Terjadi Move" & vbcrlf
End Sub

Private Sub MyForm_Resize(sender as Object, e As System.EventArgs)
Handles MyBase.Resize
CatatEvent = CatatEvent & "Terjadi Resize" & vbcrlf
End Sub

Private Sub MyForm_Closing(ByVal sender As Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

INDOPROG 12


CatatEvent = CatatEvent & "Terjadi Closing" & vbCrlf
e.Cancel = False
End Sub

Private Sub MyForm_Deactivate(sender as Object, e As
System.EventArgs) Handles MyBase.Deactivate
CatatEvent = CatatEvent & "Terjadi Deactivate" & vbCrlf
Msgbox(CatatEvent)
End Sub

Private Sub MyForm_LostFocus(sender as Object, e As
System.EventArgs) Handles MyBase.LostFocus
CatatEvent = CatatEvent & "Terjadi LostFocus" & vbCrlf
End Sub

Private Sub MyForm_Closed(sender as Object, e As System.EventArgs)
Handles MyBase.Closed
CatatEvent = CatatEvent & "Terjadi Closed" & vbCrlf
End Sub
End Class

Dimana kalau program dijalankan dan kemudian ditutup akan menampilkan kotak pesan
yang berisi urutan event yang terjadi pada form mulai dari program dijalankan sampai
ditutup.

Event pada Mouse
Event pada Mouse dibangkitkan pada saat pemakai melakukan aktifitas mouse terhadap
form. Sesuai dengan urutan kejadiaannya adalah sebagai berikut :

MouseEnter mouse pointer memasuki control EventHandle
MouseMove mouse pointer bergerak diatas control MouseEventHandle
MouseHover mouse pointer melewati control EventHandle
MouseDown penekanan button mouse diatas control MouseEventHandle
MouseWheel pergerakan wheel pada mouse diatas control yang sedang focus MouseEventHandle
Click Klik pada control EventHandle
DoubleClick Double klik pada control EventHandle
MouseUp pelepasan button mouse diatas control MouseEventHandle
MouseLeave Mouse meninggalkan control EventHandle

Dalam tata cara penulisan event procedure untuk event mouse terbagi atas dua jenis
argumen yang dikirim ke procedure, yaitu EventHandle, dan MouseEventHandle.

INDOPROG 13


System.EventHandle
Adapun tata cara penulisan event procedure untuk event yang menggunakan EventHandle
adalahs sebagai berikut :

System.EventArgs) Handles MyBase.NamaEvent

Contoh :

Option Explicit On
Imports System

Public Class MyForm

System.Windows.Forms.Application.EnableVisualStyles()
End Sub

End Sub

Private Sub MyForm_MouseEnter(sender as Object, e As
System.EventArgs) Handles MyBase.MouseEnter
Msgbox("Terjadi Event MouseEnter")
End Sub

End Class

System.Windows.Forms.Form.MouseEventHandle
Adapun tata cara penulisan event procedure untuk event yang menggunakan
MouseEventHandle adalah sebagai berikut :
System.Windows.Forms.MouseEventArgs) Handles MyBase.NamaEvent

Informasi yang dapat diperoleh dari MouseEventHandle :

Property Description
Button Mendapatkan tombol mouse yang ditekan (None, Left, Middle, Right, Xbutton1, Xbutton2)
Clicks Mendapatkan jumlah klik
Delta Mendapatkan jumlah rotasi roda mouse
X Mendapatkan koordinat X mouse
Y Mendapatkan koordinat Y mouse

Contoh :

INDOPROG 14


Option Explicit On
Imports System

Public Class MyForm

End Sub

End Sub

Private Sub MyForm_MouseDown(sender as Object, e As
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
Msgbox("Terjadi Event MouseDown pada " & e.x.tostring() & ","
&e.y.tostring())
End Sub

End Class

Kalau kita menekan button mouse diatas MyForm, maka msgbox berikut akan
ditampilkan.

Event pada Keyboard

Event pada keyboard terjadi pada saat pemakaian melakukan aksi penekanan tombol
terhadap form, dan urutan event keyboard adalah sebagai berikut :

KeyDown Tombol ditekan ke bawah KeyEventHandle
KeyPressed Tombol ditekan KeyPressEventHandle
KeyUp Tombol dilepas KeyEventHandle

System.Windows.Forms.KeyEventHandle
KeyEventHandle adalah sebagai berikut :

System.Windows.Forms.KeyEventArgs) Handles MyBase.NamaEvent

INDOPROG 15


Informasi yang dapat diperoleh dari KeyEventArgs

Alt Mendapatkan apakah tombol ALT ada ditekan atau tidak
Control Mendapatkan apakah tombol CTRL ada ditekan atau tidak
Handled Mendapatkan apakah event telah terhandle
KeyCode Mendapatkan key code
KeyData Mendapatkan key data
KeyValue Mendapatkan keybiard value
Modifiers Medapatkan flag modifier apakah event mouse disertai dengan kombinasi tombol (CTRL,
SHIFT, and ALT)
Shift Mendapatkan apakah tombol shift ditekan

Contoh :

Option Explicit On
Imports System

Public Class MyForm

End Sub

End Sub

Private Sub MyForm_KeyDown(sender as Object, e As
System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
Msgbox("Nilai Alt " & e.Alt & vbCrLf & _
"Nilai Control " & e.Control & vbCrLf & _
"Nilai Handle " & e.Handled & vbCrLf & _
"Nilai KeyCode " & e.KeyCode & vbCrLf & _
"Nilai KeyValue " & e.KeyValue & vbCrLf & _
"Nilai Modifiers " & e.Modifiers & vbCrLf & _
"Nilai Shift " & e.Shift)
End Sub

End Class

Yang kalau kita tekan spasi akan menghasilkan msgbox berikut :

INDOPROG 16


System.Windows.Forms.KeyPressEventHandle
KeyPressEventHandle adalah sebagai berikut :

System.Windows.Forms.KeyPressEventArgs) Handles MyBase.NamaEvent

Informasi yang dapat diperoleh dari KeyEventArgs

Handled Mendapatkan apakah event telah dihandle
KeyChar Mendapatkan karakter yang ditekan

Option Explicit On
Imports System

Public Class MyForm

End Sub

End Sub

Private Sub MyForm_KeyPress(sender as Object, e As
System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
Msgbox("Nilai Handle " & e.Handled & vbCrLf & _
"Nilai KeyChar " & e.KeyChar & vbCrLf)
End Sub

End Class

INDOPROG 17


INDOPROG 18


Menempatkan kontrol diatas form
Membuat Label
Berikut ini adalah koding untuk menempatkan sebuah label diatas form

Option Explicit On
Imports System

Public Class MyForm


End Sub

Dim MyLabel As New System.Windows.Forms.Label 'Deklarasi

Me.Text = "Membuat kontrol pada Form"
MyLabel.Text = "Ini adalah Label"
MyLabel.Location = New System.Drawing.Point(100,100) 'Lokasi
Me.Controls.Add(MyLabel)
End Sub

End Class

Membuat Textbox
Berikut ini adalah koding untuk menempatkan sebuah textbox diatas form

INDOPROG 19


Option Explicit On
Imports System

Public Class MyForm


End Sub

Dim MyText As New System.Windows.Forms.Textbox 'Deklarasi

MyText.Text = "Ini adalah Textbox"
MyText.Location = New System.Drawing.Point(100,100) 'Lokasi
MyText.Size = New System.Drawing.Size(140,250) 'Ukuran
Me.Controls.Add(MyText)
End Sub

End Class

Validasi pada textbox

Untuk melakukan validasi terhadap input yang dilakukan oleh pemakai pada textbox kita
dapat menggunakan event validating.

INDOPROG 20


Untuk menggunakan event pada kontrol, kita perlu mendeklarasikan variabel kontrol
beserta WithEvents.

Private Sub NamaTextBox_Validating(ByVal sender As Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles NamaTextbox.Validating

Contoh :

Option Explicit On
Imports System

Public Class MyForm


End Sub

Dim WithEvents MyText As New System.Windows.Forms.Textbox

MyText.Text = "Ini adalah Textbox"
MyText.Location = New System.Drawing.Point(100,100)
MyText.Size = New System.Drawing.Size(140,250)
Me.Controls.Add(MyText)
End Sub

Private Sub MyText_Validating(ByVal sender As Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles MyText.Validating
Msgbox("Panjang Text : " & MyText.Text.Length())
End Sub
End Class

Membuat button

Option Explicit On
Imports System

Public Class MyForm


End Sub

INDOPROG 21


Dim MyButton As New System.Windows.Forms.Button 'Deklarasi

MyButton.Text = "Ini adalah Button"
MyButton.Location = New System.Drawing.Point(100,100)
MyButton.Size = New System.Drawing.Size(120,25)
Me.Controls.Add(MyButton)
End Sub

End Class

Event Click pada button
Pemakaian button umumnya adalah untuk proses klik oleh mouse, event procedure untuk
Click penulisannya adalah sebagai berikut :

Private Sub NamaButton_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles NamaButton.Click

Contoh :
Option Explicit On
Imports System

Public Class MyForm



INDOPROG 22


End Sub

Dim WithEvents MyButton As New System.Windows.Forms.Button

MyButton.Text = "Ini adalah Button"
MyButton.Location = New System.Drawing.Point(100,100)
Me.Controls.Add(MyButton)
End Sub

Private Sub MyButton_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyButton.Click
Msgbox("Terjadi event button click")
End Sub

End Class

Yang kalau dijalankan, dan dilakukan klik pada button akan menampilkan pesan sebagai
berikut :

Latihan :
Buatlah program Windows Form untuk menghitung luas persegi panjang !

INDOPROG 23


Membuat Aplikasi MDI Form
MDI Form
Untuk membuat MDI Form tidak jauh berbeda dengan pembuatan form biasanya, yang
perlu anda lakukan adalah dengan menset property IsMDIContainer menjadi True,
Contoh :
Option Explicit On
Imports System
Imports System.Windows.Forms

Public Class MyMDI
Inherits Form

Application.Run(New MyMDI)
End Sub

Me.Text = "Membuat MDI Form"
Me.IsMDIContainer = True
End Sub

End Class

MDI Child

Pada dasarnya form MDI Child adalah sama dengan form biasanya, yang kemudian akan
ditamplkan oleh MDI Form.

Public Class MyForm
Inherits Form

Public Sub New()
Me.Text = "MDI Child"
End Sub

End Class

Menampilkan MDI Child

Untuk menampilkan MDI Child pada MDI Form kita, adalah dengan :

1. Membuat instance dari Form yang akan dijadikan MDI Child

INDOPROG 24


2. Kemudian kita set property MDIParent ke Form MDI
3. Menampilkan Form MDI Child dengan metoda Show()

Contoh :

Option Explicit On
Imports System

Public Class MyMDI
Inherits Form

End Sub

Dim MyChild As new MyForm 'Instance dari myform
MyChild.MdiParent = Me 'set MDIParent
MyChild.Show() 'tampilkan MDI Child
End Sub

End Class

Public Class MyForm
Inherits Form

Public Sub New()
End Sub

End Class

Pengaturan MDI Child pada MDI Form

Pengaturan susunan MDI Child pada MDI Form dapat dilakukan dengan menggunakan
metoda LayoutMDI(MDI layout).

ArrangeIcons All MDI child icons are arranged within the client region of the MDI parent form.
Cascade All MDI child windows are cascaded within the client region of the MDI parent form.
TileHorizontal All MDI child windows are tiled horizontally within the client region of the MDI
parent form.
TileVertical All MDI child windows are tiled vertically within the client region of the MDI parent
form.

Contoh :

INDOPROG 25


Me.LayoutMDI(System.Windows.Forms.MDILayout.Cascade)

INDOPROG 26


Membuat Menu
Untuk membuat menu pada form, anda dapat menggunakan langkah-langkah berikut ini :

1. Membuat instance dari komponen MainMenu, dan set sebagai menu untuk form
2. Membuat MenuItem untuk MainMenu, dan tambahkan pada collection object dari
MainMenu
3. Membuat SubMenuItem untuk MenuItem, dan tambahkan pada collection
masing-masing object MenuItem.

Contoh :

Option Explicit On
Imports System

Public Class MyMDI
Inherits Form

End Sub

AddMenu()
End Sub

Private Sub AddMenu()
'Membuat instance dari MainMenu dan set sebagai menu form
Dim mnuUtama As new MainMenu()
Me.Menu = mnuUtama

'membuat menuitem
Dim mnuFile As new MenuItem("&File")
Dim mnuWindow As new MenuItem("&Window")

mnuUtama.MenuItems.Add(mnuFile) 'Tambahkan ke collection
mnuUtama.MenuItems.Add(mnuWindow)

'membuat submenuitem untuk sub menu File

Dim mnuFileNew As new MenuItem("&New")
Dim mnuFileClose As new MenuItem("&Close")
Dim mnuFileExit As new MenuItem("&Exit")

mnuFile.MenuItems.Add(mnuFileNew) 'Tambahkan ke collection
mnuFile.MenuItems.Add(mnuFileClose)

INDOPROG 27


mnuFile.MenuItems.Add(mnuFileExit)

End Sub

End Class

Public Class MyForm
Inherits Form

Public Sub New()
End Sub

End Class

Dan hasil eksekusinya adalah sebagai berikut :

Men-disable menuitem

Untuk mendisable menuitem, kita dapat menggunakan property Enabled pada menuitem
yang akan diatur keaktifannya.

Contoh :

mnuFileClose.Enabled = False

atau

Me.Menu.MenuItems(0).MenuItems(2).Enabled = False

INDOPROG 28


Menyembunyikan menuitem

Untuk menyembunyikan menuitem, kita dapat menggunakan property Visible pada
menuitem yang akan diatur kemunculannya.

Contoh :

mnuFileClose.Visible = False

INDOPROG 29


Membuat garis pembatas pada menuitem

Untuk menbuat garis pembatas dan dapat membuat tanda – sebagai text untuk menu.

Contoh :

'membuat submenuitem untuk sub menu File

Dim mnuFileNew As new MenuItem("&New")
Dim mnuFileClose As new MenuItem("&Close")
Dim mnuGaris11 As new MenuItem("-")
Dim mnuFileExit As new MenuItem("&Exit")

mnuFile.MenuItems.Add(mnuFileNew) 'Tambahkan ke collection
mnuFile.MenuItems.Add(mnuFileClose)
mnuFile.MenuItems.Add(mnuGaris11)
mnuFile.MenuItems.Add(mnuFileExit)

Membuat tanda check pada menuitem

Untuk menbuat tanda check pada menuitem dapat dilakukan dengan property Checked.

Contoh :

mnuFileNew.Checked = True

INDOPROG 30


Menambah shortcut key pada menuitem

Untuk menbuat tanda check pada menuitem dapat dilakukan dengan property Shortcut.

Contoh :

mnuFileNew.Shortcut = System.Windows.Forms.Shortcut.F2

INDOPROG 31


Enumeration pada Shortcut

Alt0 The shortcut keys ALT+0.
AltBksp The shortcut keys ALT+BACKSPACE.
AltF1 The shortcut keys ALT+F1.
Ctrl0 The shortcut keys CTRL+0.
CtrlA The shortcut keys CTRL+A.
CtrlB The shortcut keys CTRL+B.
CtrlC The shortcut keys CTRL+C.
CtrlD The shortcut keys CTRL+D.
CtrlDel The shortcut keys CTRL+DELETE.
CtrlE The shortcut keys CTRL+E.
CtrlF The shortcut keys CTRL+F.
CtrlF1 The shortcut keys CTRL+F1.

INDOPROG 32


CtrlG The shortcut keys CTRL+G.
CtrlH The shortcut keys CTRL+H.
CtrlI The shortcut keys CTRL+I.
CtrlIns The shortcut keys CTRL+INSERT.
CtrlJ The shortcut keys CTRL+J.
CtrlK The shortcut keys CTRL+K.
CtrlL The shortcut keys CTRL+L.
CtrlM The shortcut keys CTRL+M.
CtrlN The shortcut keys CTRL+N.
CtrlO The shortcut keys CTRL+O.
CtrlP The shortcut keys CTRL+P.
CtrlQ The shortcut keys CTRL+Q.
CtrlR The shortcut keys CTRL+R.
CtrlS The shortcut keys CTRL+S.
CtrlShift0 The shortcut keys CTRL+SHIFT+0.
CtrlShiftA The shortcut keys CTRL+SHIFT+A.
CtrlShiftB The shortcut keys CTRL+SHIFT+B.
CtrlShiftC The shortcut keys CTRL+SHIFT+C.
CtrlShiftD The shortcut keys CTRL+SHIFT+D.
CtrlShiftE The shortcut keys CTRL+SHIFT+E.
CtrlShiftF The shortcut keys CTRL+SHIFT+F.
CtrlShiftF1 The shortcut keys CTRL+SHIFT+F1.
CtrlShiftG The shortcut keys CTRL+SHIFT+G.
CtrlShiftH The shortcut keys CTRL+SHIFT+H.
CtrlShiftI The shortcut keys CTRL+SHIFT+I.
CtrlShiftJ The shortcut keys CTRL+SHIFT+J.
CtrlShiftK The shortcut keys CTRL+SHIFT+K.
CtrlShiftL The shortcut keys CTRL+SHIFT+L.
CtrlShiftM The shortcut keys CTRL+SHIFT+M.

INDOPROG 33


CtrlShiftN The shortcut keys CTRL+SHIFT+N.
CtrlShiftO The shortcut keys CTRL+SHIFT+O.
CtrlShiftP The shortcut keys CTRL+SHIFT+P.
CtrlShiftQ The shortcut keys CTRL+SHIFT+Q.
CtrlShiftR The shortcut keys CTRL+SHIFT+R.
CtrlShiftS The shortcut keys CTRL+SHIFT+S.
CtrlShiftT The shortcut keys CTRL+SHIFT+T.
CtrlShiftU The shortcut keys CTRL+SHIFT+U.
CtrlShiftV The shortcut keys CTRL+SHIFT+V.
CtrlShiftW The shortcut keys CTRL+SHIFT+W.
CtrlShiftX The shortcut keys CTRL+SHIFT+X.
CtrlShiftY The shortcut keys CTRL+SHIFT+Y.
CtrlShiftZ The shortcut keys CTRL+SHIFT+Z.
CtrlT The shortcut keys CTRL+T.
CtrlU The shortcut keys CTRL+U
CtrlV The shortcut keys CTRL+V.
CtrlW The shortcut keys CTRL+W.
CtrlX The shortcut keys CTRL+X.
CtrlY The shortcut keys CTRL+Y.
CtrlZ The shortcut keys CTRL+Z.
Del The shortcut key DELETE.
F1 The shortcut key F1.
Ins The shortcut key INSERT.
None No shortcut key is associated with the menu item.
ShiftDel The shortcut keys SHIFT+DELETE.
ShiftF1 The shortcut keys SHIFT+F1.
ShiftIns The shortcut keys SHIFT+INSERT.

INDOPROG 34


Lampiran

Kontrol pada System.Windows.Forms
Berikut ini adalah daftar control yang dapat ditempatkan diatas form menurut fungsinya :

Function Control Description
Text edit TextBox Displays text entered at design time that can be
edited by users at run time, or changed
programmatically.
RichTextBox Enables text to be displayed with formatting in
plain text or rich-text format (RTF).
Text display (read-only) Label Displays text that users cannot directly edit.
LinkLabel Displays text as a Web-style link and triggers an
event when the user clicks the special text.
Usually the text is a link to another window or a
Web site.
StatusBar Displays information about the application's
current state using a framed window, usually at
the bottom of a parent form.
Selection from a list CheckedListBox Displays a scrollable list of items, each
accompanied by a check box.
ComboBox Displays a drop-down list of items.
DomainUpDown Displays a list of text items that users can scroll
through with up and down buttons.
ListBox Displays a list of text and graphical items (icons).
ListView Displays items in one of four different views.
Views include text only, text with small icons, text
with large icons, and a details view.
NumericUpDown Displays a list of numerals that users can scroll
through with up and down buttons.
TreeView Displays a hierarchical collection of node objects
that can consist of text with optional check boxes
or icons.
Graphics display PictureBox Displays graphical files, such as bitmaps and
icons, in a frame.
Graphics storage ImageList Serves as a repository for images. ImageList
controls and the images they contain can be
reused from one application to the next.
Value setting CheckBox Displays a check box and a label for text.
Generally used to set options.
CheckedListBox Displays a scrollable list of items, each
accompanied by a check box.
RadioButton Displays a button that can be turned on or off.
Trackbar Allows users to set values on a scale by moving a
"thumb" along a scale.
Date setting DateTimePicker Displays a graphical calendar to allow users to
select a date or a time.
MonthCalendar Displays a graphical calendar to allow users to
select a range of dates.
Dialog boxes ColorDialog Displays the color picker dialog box that allows
users to set the color of an interface element.
FontDialog Displays a dialog box that allows users to set a
font and its attributes.
OpenFileDialog Displays a dialog box that allows users to navigate
to and select a file.

INDOPROG 35


PrintDialog Displays a dialog box that allows users to select a
printer and set its attributes.
PrintPreviewDialog Displays a dialog box that displays how a
PrintDocument object will appear when printed.
SaveFileDialog Displays a dialog box that allows users to save a
file.
Menu controls MainMenu Provides a design-time interface for creating
menus.
ContextMenu Implements a menu that appears when the user
right-clicks an object.
Commands Button Used to start, stop, or interrupt a process.
LinkLabel Displays text as a Web-style link and triggers an
event when the user clicks the special text.
Usually the text is a link to another window or a
Web site.
NotifyIcon Displays an icon in the status notification area of
the taskbar that represents an application running
in the background.
ToolBar Contains a collection of button controls.
Grouping other controls Panel Groups a set of controls on an unlabeled,
scrollable frame.
GroupBox Groups a set of controls (such as radio buttons) on
a labeled, nonscrollable frame.
TabControl Provides a tabbed page for organizing and
accessing grouped objects efficiently.

INDOPROG 36


Keys Enumeration
Members
Member name Description Value
A The A key. 65

Supported by the .NET Compact
Framework.
Add The add key. 107

Framework.
Alt The ALT modifier key. 262144

Framework.
Apps The application key (Microsoft Natural Keyboard). 93

Framework.
Attn The ATTN key. 246

Framework.
B The B key. 66

Framework.
Back The BACKSPACE key. 8

Framework.
BrowserBack The browser back key (Windows 2000 or later). 166
BrowserFavorites The browser favorites key (Windows 2000 or later). 171
BrowserForward The browser forward key (Windows 2000 or later). 167
BrowserHome The browser home key (Windows 2000 or later). 172
BrowserRefresh The browser refresh key (Windows 2000 or later). 168
BrowserSearch The browser search key (Windows 2000 or later). 170
BrowserStop The browser stop key (Windows 2000 or later). 169
C The C key. 67

Framework.
Cancel The CANCEL key. 3

Framework.
Capital The CAPS LOCK key. 20

Framework.
CapsLock The CAPS LOCK key. 20

INDOPROG 37


Framework.
Clear The CLEAR key. 12

Framework.
Control The CTRL modifier key. 131072

Framework.
ControlKey The CTRL key. 17

Framework.
Crsel The CRSEL key. 247

Framework.
D The D key. 68

Framework.
D0 The 0 key. 48

Framework.
D1 The 1 key. 49

Framework.
D2 The 2 key. 50

Framework.
D3 The 3 key. 51

Framework.
D4 The 4 key. 52

Framework.
D5 The 5 key. 53

Framework.
D6 The 6 key. 54

Framework.
D7 The 7 key. 55

Framework.
D8 The 8 key. 56

INDOPROG 38


Framework.
D9 The 9 key. 57

Framework.
Decimal The decimal key. 110

Framework.
Delete The DEL key. 46

Framework.
Divide The divide key. 111

Framework.
Down The DOWN ARROW key. 40

Framework.
E The E key. 69

Framework.
End The END key. 35

Framework.
Enter The ENTER key. 13

Framework.
EraseEof The ERASE EOF key. 249

Framework.
Escape The ESC key. 27

Framework.
Execute The EXECUTE key. 43

Framework.
Exsel The EXSEL key. 248

Framework.
F The F key. 70

Framework.
F1 The F1 key. 112

INDOPROG 39


Framework.
F10 The F10 key. 121

Framework.

Framework.

Framework.

Framework.

Framework.

Framework.

Framework.

Framework.

Framework.

Framework.
F2 The F2 key. 113

Framework.

Framework.

Framework.

INDOPROG 40


Framework.

Framework.

Framework.
F3 The F3 key. 114

Framework.
F4 The F4 key. 115

Framework.
F5 The F5 key. 116

Framework.
F6 The F6 key. 117

Framework.
F7 The F7 key. 118

Framework.
F8 The F8 key. 119

Framework.
F9 The F9 key. 120

Framework.
FinalMode The IME final mode key. 24
G The G key. 71

Framework.
H The H key. 72

Framework.
HanguelMode The IME Hanguel mode key. (maintained for 21
compatibility; use HangulMode)
HangulMode The IME Hangul mode key. 21
HanjaMode The IME Hanja mode key. 25
Help The HELP key. 47

Framework.

INDOPROG 41


Home The HOME key. 36

Framework.
I The I key. 73

Framework.
IMEAceept The IME accept key. 30
IMEConvert The IME convert key. 28
IMEModeChange The IME mode change key. 31
IMENonconvert The IME nonconvert key. 29
Insert The INS key. 45

Framework.
J The J key. 74

Framework.
JunjaMode The IME Junja mode key. 23
K The K key. 75

Framework.
KanaMode The IME Kana mode key. 21
KanjiMode The IME Kanji mode key. 25
KeyCode The bitmask to extract a key code from a key value. 65535

Framework.
L The L key. 76

Framework.
LaunchApplication1 The start application one key (Windows 2000 or later). 182
LaunchApplication2 The start application two key (Windows 2000 or later). 183
LaunchMail The launch mail key (Windows 2000 or later). 180
LButton The left mouse button. 1

Framework.
LControlKey The left CTRL key. 162

Framework.
Left The LEFT ARROW key. 37

Framework.
LineFeed The LINEFEED key. 10

Framework.
LMenu The left ALT key. 164

INDOPROG 42


Framework.
LShiftKey The left SHIFT key. 160

Framework.
LWin The left Windows logo key (Microsoft Natural 91
Keyboard).
Framework.
M The M key. 77

Framework.
MButton The middle mouse button (three-button mouse). 4

Framework.
MediaNextTrack The media next track key (Windows 2000 or later). 176
MediaPlayPause The media play pause key (Windows 2000 or later). 179
MediaPreviousTrack The media previous track key (Windows 2000 or 177
later).
MediaStop The media Stop key (Windows 2000 or later). 178
Menu The ALT key. 18

Framework.
Modifiers The bitmask to extract modifiers from a key value. -65536

Framework.
Multiply The multiply key. 106

Framework.
N The N key. 78

Framework.
Next The PAGE DOWN key. 34

Framework.
NoName A constant reserved for future use. 252

Framework.
None No key pressed. 0

Framework.
NumLock The NUM LOCK key. 144

Framework.

INDOPROG 43


NumPad0 The 0 key on the numeric keypad. 96

Framework.

Framework.

Framework.

Framework.

Framework.

Framework.

Framework.

Framework.

Framework.

Framework.
O The O key. 79

Framework.
Oem8 OEM specific. 223
OemBackslash The OEM angle bracket or backslash key on the RT 226
102 key keyboard (Windows 2000 or later).
OemClear The CLEAR key. 254

Framework.
OemCloseBrackets The OEM close bracket key on a US standard keyboard 221
(Windows 2000 or later).
Oemcomma The OEM comma key on any country/region keyboard 188
OemMinus The OEM minus key on any country/region keyboard 189

INDOPROG 44


OemOpenBrackets The OEM open bracket key on a US standard keyboard 219
OemPeriod The OEM period key on any country/region keyboard 190
OemPipe The OEM pipe key on a US standard keyboard 220
Oemplus The OEM plus key on any country/region keyboard 187
OemQuestion The OEM question mark key on a US standard 191
keyboard (Windows 2000 or later).
OemQuotes The OEM singled/double quote key on a US standard 222
keyboard (Windows 2000 or later).
OemSemicolon The OEM semicolon key on a US standard keyboard 186
Oemtilde The OEM tilde key on a US standard keyboard 192
P The P key. 80

Framework.
Pa1 The PA1 key. 253

Framework.
PageDown The PAGE DOWN key. 34

Framework.
PageUp The PAGE UP key. 33

Framework.
Pause The PAUSE key. 19

Framework.
Play The PLAY key. 250

Framework.
Print The PRINT key. 42

Framework.
PrintScreen The PRINT SCREEN key. 44

Framework.
Prior The PAGE UP key. 33

Framework.
ProcessKey The PROCESS KEY key. 229

Framework.

INDOPROG 45


Q The Q key. 81

Framework.
R The R key. 82

Framework.
RButton The right mouse button. 2

Framework.
RControlKey The right CTRL key. 163

Framework.
Return The RETURN key. 13

Framework.
Right The RIGHT ARROW key. 39

Framework.
RMenu The right ALT key. 165

Framework.
RShiftKey The right SHIFT key. 161

Framework.
RWin The right Windows logo key (Microsoft Natural 92
Keyboard).
Framework.
S The S key. 83

Framework.
Scroll The SCROLL LOCK key. 145

Framework.
Select The SELECT key. 41

Framework.
SelectMedia The select media key (Windows 2000 or later). 181
Separator The separator key. 108

Framework.
Shift The SHIFT modifier key. 65536


INDOPROG 46


Framework.
ShiftKey The SHIFT key. 16

Framework.
Snapshot The PRINT SCREEN key. 44

Framework.
Space The SPACEBAR key. 32

Framework.
Subtract The subtract key. 109

Framework.
T The T key. 84

Framework.
Tab The TAB key. 9

Framework.
U The U key. 85

Framework.
Up The UP ARROW key. 38

Framework.
V The V key. 86

Framework.
VolumeDown The volume down key (Windows 2000 or later). 174
VolumeMute The volume mute key (Windows 2000 or later). 173
VolumeUp The volume up key (Windows 2000 or later). 175
W The W key. 87

Framework.
X The X key. 88

Framework.
XButton1 The first x mouse button (five-button mouse). 5

Framework.
XButton2 The second x mouse button (five-button mouse). 6

Framework.

INDOPROG 47


Y The Y key. 89

Framework.
Z The Z key. 90

Framework.
Zoom The ZOOM key. 251

Framework.

INDOPROG 48


Daftar Pustaka

.NET Framework SDK documentation, Microsoft Corporation

INDOPROG 49

Pemrogaman Visual Basic.NET (Modul 2)

More Related Content

What's hot (18)

Viewers also liked (17)

Similar to Pemrogaman Visual Basic.NET (Modul 2) (20)

More from Materi Kuliah Online (20)

Recently uploaded (20)

Pemrogaman Visual Basic.NET (Modul 2)