Mengganti bentuk pointer mouse menjadi "tangan"

Topik sebelumnya Topik selanjutnya Go down

Mengganti bentuk pointer mouse menjadi "tangan"

Post by PujanggaBageur on Sun Oct 19, 2008 1:21 am

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.

Code:
   
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

_________________
Tidak ada yang menarik, datang kemudian hilang, pergi tak kembali.

PujanggaBageur
Admin
Admin

Jumlah posting : 148
Join date : 07.08.08
Age : 34
Lokasi : Cirebon

Lihat profil user http://inochi.forumotion.net

Kembali Ke Atas Go down

Topik sebelumnya Topik selanjutnya Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik