Moving Form dengan VB.NET

Pada kesempatan ini, saya akan mencoba membuat sebuah form yang dapat bergerak pada area monitor komputer kita. Program ini dibuat dengan Microsoft Visual Basic 2008. Cara kerja program ini sangat mudah yakni tinggal meng-klik tombol – tombol yang terdapat pada form tersebut dan form ini akan bergerak berdasarkan tombol yang kita klik. Artinya form akan bergerak keatas jika kita klik tombol atas, bergerak kebawah jika kita klik tombol bawah, bergerak ke kiri jika kita klik tombol kiri dan bergerak ke kanan jika kita klik tombol kanan. Jika form telah berada pada sisi tepi monitor, maka form tidak bisa bergerak lagi. Berikut ini gambar desain dari program yang akan kita buat.

 

Adapun properti dari komponen- komponen yang diperlukan adalah sebagai berikut.

Komponen	Property	Value
Form1	Name	Form1
	Text	Moving Form
	Start Position	CenterScreen
	Minimize Box	False
	Maximize Box	False
Button1	Name	BtnAtas
	Text	&Atas
Button2	Name	BtnKiri
	Text	Ki&ri
Button3	Name	BtnBawah
	Text	&Bawah
Button4	Name	BtnKanan
	Text	Ka&nan

 Nah, setelah selesai mendesain program tersebut, sekarang kita masuk kedalam source codenya

Public Class Form1
 
Private Sub BtnAtas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAtas.Click
If Me.Top <= 0 Then
BtnAtas.Enabled = False 
Else
Me.Top -= 10
BtnBawah.Enabled = True
End If
End Sub

Private Sub BtnKiri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKiri.Click If Me.Left <= 0 Then
BtnKiri.Enabled = False
Else
Me.Left -= 10
BtnKanan.Enabled = True
End If
End Sub

Private Sub BtnBawah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBawah.Click
If (Me.Top + Me.Size.Height) > My.Computer.Screen.WorkingArea.Height Then
BtnBawah.Enabled = False
Else
Me.Top += 10
BtnAtas.Enabled = True
End If
End Sub

Private Sub BtnKanan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKanan.Click
If (Me.Left + Me.Size.Width) > My.Computer.Screen.WorkingArea.Width Then
BtnKanan.Enabled = False
Else
Me.Left += 10
BtnKiri.Enabled = True
End If
End Sub
 
End Class


Setelah selesai menulis source code diatas, maka sekarang saatnya kita menjalankan program tersebut. Tekan F5 pada keyboard dan tekan tombol-tombol yang ada pada form tersebut. Form tersebut akan bergerak sesuai arah tombol yang kita tekan. Selamat Mencoba dan Semoga berhasil.

Semoga Bermamfaat dan Terima Kasih.