Sabtu, 01 Agustus 2015

Posisi Cursor pada Desktop dengan Visual Basic 2010 (Cursor Location in Dekstop)

      Pada postingan kali ini saya akan menberitahu cara untuk mendapatkan/melihat posisi cursor pada desktop dengan mengguanakan Visual Basic 2010. Langsung saja berikut ini caranya :

  • Buat Project baru pada Visual Basic 2010, jika belum bisa membuat project baru lihat disini.
  • Kemudian siapkan 2 buah Label dan 1 buah Timer dari Toolbox. 

  •  Dan berikut listing code-nya :
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.CenterToParent()
        Timer1.Start() 'start timer
        Timer1.Interval = 10 'milisecond
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = "X= " & Control.MousePosition.X
        Label2.Text = "Y= " & Control.MousePosition.Y
    End Sub
End Class


  • Kemudian debug dan lihat hasilnya.


        Untuk lebih jelas tentang hasilnya, anda dapat melihatnya disini.


         Demikian postingan kali ini, semoga bermanfaat dan selamat mencoba.

G+

Tidak ada komentar:

Posting Komentar