PERGERAKAN FORM (VISUAL BASIC 2010)


kali ini saya akan mengajarkan bagaimana menggerakkan form dengan menggunakan button atau alt, yang mana form akan berhenti pada ukuran yang telah ditentukan


pertama kali, buatlah desain form seperti ini :


Untuk menggunakan Alt, anda tinggal menambahkan & ditempat yang mau anda alternatif ..
Contoh :
button1.text = "&Atas"

maka Alternatif Atas adalah A.

Setelah anda membuat desain seperti yang diatas ini, kita akan memulai penkodingannya.
klik terlebih dahulu Button1 (Atas), ikutilah coding seperti dibawah ini :
--------------------------------------------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Me.Top < -1 Then
            MessageBox.Show("STOP")
        Else
            Me.Top = Top - 10
        End If
    End Sub
---------------------------------------------------------------------------------------------------
Keterangan :
if me.top < -1 = berfungsi untuk menghentikan pergerakan Form jika bagian atas form telah menyentuh titik -1 pada layar, maka setelah mengenai titik itu, kotak pesan akan keluar dan mengatakan stop

me.top = top - 10 = berfungsi untuk mengurangi lokasi X form apabila form belum mengenai titik -1


Setelah itu, klik lagi Button2 (Kiri), ikutilah coding seperti dibawah ini :
----------------------------------------------------------------------------------------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Me.Left < -1 Then
            MessageBox.Show("STOP")
        Else
            Me.Left = Left - 10
        End If
    End Sub


------------------------------------------------------------------------------------------------------
Keterangan : 
sama seperti button1, tapi yang membedakannya adalah penggunaan left yang mana berfungsi untuk mengubah lokasi form pada posisi Y

Setelah itu, Klik lagi Button3 (Kanan), ikutilah coding seperti dibawah ini :
------------------------------------------------------------------------------------------------------
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Me.Left > 1060 Then
            MessageBox.Show("STOP")
        Else
            Me.Left = Left + 10
        End If
    End Sub

--------------------------------------------------------------------------------------------------------
Keterangan :
nilai 1060 yang ada diatas, itu dapat diubah sesuai dengan ukuran panjang laptop atau komputer anda

Setelah itu, Klik lagi Button4(Bawah),ikutilah coding seperti dibawah ini :
-------------------------------------------------------------------------------------------------

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Me.Top > 460 Then
            MessageBox.Show("STOP")
        Else
            Me.Top = Top + 10
        End If
    End Sub
---------------------------------------------------------------------------------------------------
Keterangan :
nilai 460 yang ada diatas, itu dapat diubah sesuai dengan ukuran lebar laptop atau komputer anda

Setelah anda membuat yang terakhir ini, maka aplikasi menggerakkan form telah selesai...
Saya mengharapkan anda dapat mengerti penjelasan saya, apabila anda tidak mengerti dengan penjelasan saya, anda bisa bertanya kepada saya melalui komentar atau dari chatbox yang ada disebelah kanan anda...

TERIMA KASIH ATAS PERHATIANNYA.....


Chang Min Web Developer

Semoga apa yang Saya postingkan dapat bermanfaat bagi yang sedang membaca, kritik, saran atau komentar dapat disampaikan pada komen dibawah ini, Terimas kasih banyak

No comments:

Post a Comment