1. sayfa (Toplam 1 sayfa)

VB Fare gizleme / Gösterme (mausepointer)

Gönderilme zamanı: 06 Oca 2008, 20:42
gönderen mayhemious
forma ekleyiniz

Private Sub Command1_Click()
FareGöster
End Sub

Private Sub Command2_Click()
FareGizle
End Sub


Modüle Ekleyiniz

Option Explicit
Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Sub FareGöster()
ShowCursor True
End Sub

Sub FareGizle()
ShowCursor False
End Sub