View Full Version : سوال: تغییر شکل موس به حالت دلخواه خودمان
look20
جمعه 17 مهر 1388, 11:49 صبح
سلام آیا میشه شکل موس به جز انکه در وینروز هست را استفاده کنیم
منظورم شکل موسی که مال ویندوز نباشه
nader200912
جمعه 17 مهر 1388, 16:50 عصر
سلام
بله این امکان وجود داره ولی باید از کد نویسی استفاده کنید یه سرچی کنی پیدا میکنی
smderfan
شنبه 18 مهر 1388, 09:37 صبح
سلام
شما می تونید از ماژول زیر استفاده کنید و از حالتهای مختلفی که در این کد هست استفاده نمایید:
'*********** Code Start ************
' This code was originally written by Terry Kreft.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Terry Kreft
'
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
Function PointM(strPathToCursor As String)
Dim lngRet As Long
lngRet = LoadCursorFromFile(strPathToCursor)
lngRet = SetCursor(lngRet)
End Function
'*********** Code End ************
بعد از قرار گرفتن در رویداد on mouse move شی مورد نظر از کد زیر جهت فراخوانی استفاده کنید.
MouseCursor IDC_HAND
look20
یک شنبه 19 مهر 1388, 12:40 عصر
دوست عزیز می تونید نشون بدید چطوری؟
یه نمونه کوچیکش رو نشون بدید
alirezabahrami
یک شنبه 19 مهر 1388, 13:19 عصر
دوست عزیز می تونید نشون بدید چطوری؟
یه نمونه کوچیکش رو نشون بدید
سلام
فايل نمونه را ببين!
موفق باشيد
look20
یک شنبه 19 مهر 1388, 16:58 عصر
سلام دوست عزیز ممنون ولی منظورم اینکه اگه من خودم یه کرسر موس دارم مال ویندوز نیست و می خوام ازش توی فرم خودم استفاده کنم چطور باید توی فرم قرار بگیره
look20
پنج شنبه 23 مهر 1388, 12:25 عصر
سلام آیا میشه شکل موس به جز انکه در وینروز هست را استفاده کنیم
منظورم شکل موسی که مال ویندوز نباشه
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.