Mengganti bentuk pointer mouse menjadi “tangan”

Ini adalah teknik mengubah bentuk pointer mouse menjadi bentuk tangan (bentuk pointer ketika didekatkan ke sebuah link pada halama browser). Sebelumnya tambahkan sebuah CommandButton di form Anda untuk mengujinya.

    Option Explicit

    Private Declare Function LoadCursor _
        Lib "user32.dll" Alias "LoadCursorA" _
        ( _
            ByVal hInstance As Long, _
            ByVal lpCursorName As Long _
        ) As Long
           
    Private Declare Function SetCursor _
        Lib "user32.dll" _
        ( _
            ByVal hCursor As Long _
        ) As Long
       
    Private Const IDC_TanganPujangga As Long = 32649

    Private Type CursorTangan
        Cursor      As Long
    End Type

    Dim TanganPujangga As CursorTangan

    Private Sub Command1_MouseMove(Button As Integer, _
    Shift As Integer, X As Single, Y As Single)
        SetCursor TanganPujangga.Cursor
    End Sub

    Private Sub Command1_MouseDown(Button As Integer, _
    Shift As Integer, X As Single, Y As Single)
        SetCursor TanganPujangga.Cursor
    End Sub

    Private Sub Form_Load()
        TanganPujangga.Cursor = LoadCursor(0, IDC_TanganPujangga)
    End Sub

Perihal Novian Agung
Pengangguran

One Response to Mengganti bentuk pointer mouse menjadi “tangan”

  1. eka mengatakan:

    jadi untuk commad2 gimana tuh… apa perlu di buat rumus panjang kayak gitu lagi sobat?

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: