VB Fare gizleme / Gösterme (mausepointer)
Gönderilme zamanı: 06 Oca 2008, 20:42
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
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