تغییر شکل موس

[rahapirooz]

با سلام.در یک لیبل کلمه ای را نوشته ام.ایا امکان وقتی موس روی این کلمه میرود تغییر شکل دهد مثلا همان شکل دست نمایان شود.ممنون میشم راهنمایی بفرمایید.

[alirezabahrami]

با سلام.در یک لیبل کلمه ای را نوشته ام.ایا امکان وقتی موس روی این کلمه میرود تغییر شکل دهد مثلا همان شکل دست نمایان شود.ممنون میشم راهنمایی بفرمایید.
سلام
ابتدا کدهای زیر را در یک ماژول عمومی قرار بده , سپس در رویداد MouseMove لیبل مربوطه کد MouseCursor IDC_HAND را وارد کن!
یا علی



Public Const IDC_APPSTARTING = 32650&
Public Const IDC_HAND = 32649&
Public Const IDC_ARROW = 32512&
Public Const IDC_CROSS = 32515&
Public Const IDC_IBEAM = 32513&
Public Const IDC_ICON = 32641&
Public Const IDC_NO = 32648&
Public Const IDC_SIZE = 32640&
Public Const IDC_SIZEALL = 32646&
Public Const IDC_SIZENESW = 32643&
Public Const IDC_SIZENS = 32645&
Public Const IDC_SIZENWSE = 32642&
Public Const IDC_SIZEWE = 32644&
Public Const IDC_UPARROW = 32516&
Public Const IDC_WAIT = 32514&
Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Declare Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
Function MouseCursor(CursorType As Long)
Dim lngRet As Long
lngRet = LoadCursorBynum(0&, CursorType)
lngRet = SetCursor(lngRet)
End Function

[rahapirooz]

با سلام.خیلی ممنونم.فقط میبخشید اگر بخواهم هنگامی که روی لیبل میروم رنگ ان کمی تیره شود یعنی حالت انتخابی به خود بگیرد از چه کدی باید استفاده کنم؟

[emami.sie]

با سلام
یک نمونه خیلی ساده براتون ضمیمه کردم...
موفق باشید
یا علی

[rahapirooz]

با سلام .ممنون از پاسخ شما. ممنون میشم راهنمایی بفرمایید و کدی که باعث میشود وقتی روی کلمه ای میرویم به رنگ ابی شود و زیر ان خطی نمایان شود را هم در اختیار بگذارید.

[rahapirooz]

با سلام.دوستان گرامی ممنون میشم در این مورد هم راهنمایی بفرمایید.

[alirezabahrami]

با سلام .ممنون از پاسخ شما. ممنون میشم راهنمایی بفرمایید و کدی که باعث میشود وقتی روی کلمه ای میرویم به رنگ ابی شود و زیر ان خطی نمایان شود را هم در اختیار بگذارید.
سلام
کدهای زیر را جایگزین نمونه جناب امامی قرار بده و نتیجه را ببین!
موفق باشید



Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label0.BackColor = 16777215
Me.Label0.FontUnderline = False
End Sub
Private Sub Label0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseCursor IDC_HAND
Me.Label0.BackColor = 16763025
Me.Label0.FontUnderline = True
End Sub