Printable View
سلام به همه دوستان عزيز
من مي‌خوام يه ocx بنويسم كه وقتي ماوس روي اون قرار مي‌گيره شكل اون تغيير مي‌كنه و وقتي از محدوده كنترل خارج شد شكلش به حالت اول برگرده.
حالا مشكل اينجاست كه نمي‌دونم چجوري بايد مشخص كنم كه كرسر روي كنترل قرار داره يا نه؟
اگه راهنماييم كنيد ممنون مي‌شم.
البته مطمئنم كه مي‌شه همچين كاري رو انجام داد ولي چجوريش رو نمي‌دونم. چون كنترل‌هايي هستن كه اين‌كار رو انجام مي‌دن.
در کد مربوط به UserControl کد زیر را وارد کنید و به جای 3شماره شکل مورد نظر خودتون رو بگذاری.
Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
UserControl.MousePointer = 3
End Sub
موفق باشید.
lucky جان منظورم از شكل اون تغيير مي‌كنه اين بود كه شكل خود اون كنترل تغيير بكنه نه كرسر ماوس.
در واقع مي‌خوام يه جوري تعيين كنم كه آيا ماوس توي هر لحظه روي كنترل من قرار داره يا نه؟
مثل commandbutton ويندوز XP كه وقتي ماوس مي‌ره روش يه خط دورش كشيده مي‌شه.
ببخشید:31:
البته دوست عزیر ،فرق چندانی هم نداره.از MouseMove استفاده میشه.اما برای تغییر شکل دادن Command می تونید از 2 تا Pictute استفاده کنید و حتی بیشتر.
اما برای تشخیص مکان موس هم از X,Y موجود در MouseMove استفاده کنید.
اگر مشکل حل نشد.ایمیل بدید براتون سورس بفرستم
دوست عزیز این هم یه مثال خیلی ساده:
یه UserControl بوجود بیارید یک Command به نام Command1 در آن قرار بدید و خاصیت Style آن را روی 1 قرار بدید.و کد زیر را در آن کپی کنید.
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &H80C0FF
End Sub
Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &H8000000F
End Sub
Private Sub UserControl_Resize()
If (UserControl.Width < 100) Then
UserControl.Width = 100
End If
If (UserControl.Height < 100) Then
UserControl.Height = 100
End If
Command1.Left = 50
Command1.Top = 50
Command1.Width = UserControl.Width - 100
Command1.Height = UserControl.Height - 100
End Sub
البته برای تشخیص مکان موس غیر از حالتی که من نوشتم می شه از X,Y هم استفاده کرد.که اگه خواستید بگید براتون ایمیل کنم.
در کد بالا که براتون نوشتم اگه موس روی Command بره رنگ Command عوض می شه.
سلام، اينايي كه گفتي رو همه رو بلدم.
به نظر شما اگه سايز UserControl با سايز Command يكي باشه بازم اين كدي كه نوشتي بازم جواب مي‌ده ؟!!
معلومه كه جواب نمي‌ده.
به نظر من بايد يه راهي پيدا كرد كه بدون استفاده از mousemove و اينا بشه فهميد كه ماوس كجاي صفحه هست. همين!!!
دوست عزیز.
اولاً که بالای کدها نوشتم یه مثال ساده.و براتو ن هم نوشتم اگه می خواهید با مختصات کار کنید بگید براتون بفرستم.چون حجم سورس هایی که دارم زیاده.دوماً که این اتفاق هیچ وقت نمی افته.یعنی هیچ وقت این دوتا یه اندازه نمی شن.اگه به کد دقت کنید متوجه می شید چرا.
سوم این که این کد یه ایراد دیگه داره.اون هم اینه که اگه دو تا کنترل کاملاً کنار هم قرار بگیرند این روش دیگه جواب نمی ده.و خودم هم از این روش فقط برای بوجود آوردن یه کنترلهای خاص استفاده می کنم.که این اتفاق توشون هرگز نیافته.در هر صورت در اولین فرصت کد مربوط به مختصات رو براتون می ذارم.چون کل Ocx حجمش زیاده.
موفق باشید.
منم دو روزه دارم همينو مي‌گم.نقل قول:
اين روش هميشه جواب نمي‌ده. والا خودم بلدم اين كارو بكنم. و usercontrol رو بزرگتر از بقيه object ها بكنم.
من دنبال يه روش اصولي هستم كه هميشه جواب بده. شما وقتي يه كامپوننت مي‌نويسي مي‌دي به بقيه ازش استفاده كنن نمي‌توني بهشون بگي كه اينا رو كنار هم نذاريد!!! پسر خوب
اگه سورسي داري كه هميشه جواب مي‌ده منتظرم. يه جا آپ كن، لينكشو بذار. فعلا.
سلام
بالاخره راه حل رو پيدا كردم.
کد:Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Timer1_Timer()
Dim pt As POINTAPI
Dim R As RECT
GetCursorPos pt
GetWindowRect UserControl.hwnd, R
If pt.X <= R.Right And pt.X >= R.Left And pt.Y <= R.Bottom And pt.Y >= R.Top Then
'ماوس روي كنترل قرار دارد
Else
'ماوس خارج از كنترل قرار دارد
End If
End Sub
كلي كتابامو گشتم تا اين تابع GetCursorPos رو پيدا كردم. بعدشم با يه مقدار صرف فسفر اين راه حل به ذهنم رسيد.
اميدوارم به درد بقيه هم بخوره. :11: