سلام.
من نیاز به کدی دارم که معادل باشه با جابجایی ٍ اندک ماوس. منظورم رویداد MouseMove نیست که وقتی ماوس حرکت داده شد اتفاقی بیفته، بلکه یعنی وقتی برنامه به کدی که مورد نیازم هست رسید، انگار که ماوس توسط کابر کمی جابجا شده است. با احترام و تشکر.
Printable View
سلام.
من نیاز به کدی دارم که معادل باشه با جابجایی ٍ اندک ماوس. منظورم رویداد MouseMove نیست که وقتی ماوس حرکت داده شد اتفاقی بیفته، بلکه یعنی وقتی برنامه به کدی که مورد نیازم هست رسید، انگار که ماوس توسط کابر کمی جابجا شده است. با احترام و تشکر.
اگه کاریو که می خوای انجام بدی (هدفت) بگی بیشتر می شه کمک کرد :8:
سلام.
تابع GetCursorPos میتونه کمکت کنه.
منظورتون رو خیلی گنگ مطرح کردید. اگه میشه بیشتر و بهتر توضیح بدید.نقل قول:
1- منظورتون اینه که مثل این باشه که ماوس حرکت کرده، اما ماوس در واقع حرکت نکنه؟
2- منظورتون اینه که ماوس حرکت کنه ولی کدهایی که در صورت حرکت ماوس باید اجرا شوند، اجرا نشوند؟
3- ...
؟
توی محیط VBA یه نرم افزار دارم مینویسم برنامه رو. یه جا وقتی ماوس تکون بخوره، یه اتفاقی تو نرم افزار میفته، اما میخوام تو برنامه وقتی به کد مورد نظر رسید، معادل اون تکون خوردن باشه، که نخوام بطور دستی ماوس رو تکون بدم! البته نمیدونم که تو اون نرم افزار وقتی ماوس تکون میخوره چه کدی از خود نرم افزار اجرا میشه( تو کدای خود نرم افزار چیزی در این زمینه نیست)!
در واقع جناب suB ، مورد 1 و 2 که مطرح کردین، حداقل یکیش مورد نظرمه. به خصوص مورد1. شدنیه ؟
اگرم لطف کنین تابع GetCursorPos رو آرگوماناشو برام بگین.
ممنون.
lpPoint As POINTAPI نقاط X و Y روی صفحه نمایش
Public Type POINTAPI
x As Long
y As Long
End Type
Public Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
Public Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long
دیگه نمیدونم چطوری از این ساده ترش کنم
3 راه به نظر من میرسه.نقل قول:
1- استفاده از تابع API به نام SetCursorPos (برای حرکت‌های مطلق و زیاد بسیار پیشنهادمی‌شود)
2- استفاده از تابع API به نام mouse_event (برای حرکت‌های جزئی بسیار پیشنهاد می‌شود)
3- ارسال پیغام حرکت ماوس به پنجره (پیشنهاد نمی‌شود)
با تشکر فراوون از دوستان Jamshidy , Sub , Payman . مشکل به همین روش که گفتین حل شد. و اما آیا میشه کاری کرد که وقتی اجرای برنامه تموم میشه، بعد از مثلا t ثانیه بعد، این تابع اجرا بشه ؟! یا بطور کلی یه سابروتین t ثانیه بعد از پایان یافتن یه سابروتین دیگه، خودش اجرا شه ؟ با تشکر.
فکر کنم بتونی وقتی برنامه داره پایان می‌پذیره، اون روالی که می‌خواهی t ثانیه بعد از پایان برنامه اجرا بشه رو به عنوان یک ریسمان به ویندوز معرفی کنی و توی اون اول t ثانیه مکث کنی و بعد کارهایی که می‌خوای انجام بدی.نقل قول:
:11:
یعنی دقیقا چیکار کنم ؟ :13:
درست يادم نيست ولي فكر كنم بتوني با SetTimer و KillTimer يك كارايي بكني
با سلام
sub عزیز فکر میکنم ریسمانهای مربوط به یه برنامه زمانی که برنامه به پایان میرسه آزاد میشه و اجراشون متوقف میشه. به نظر من بهتره که طوی رویداد form unload یا form deactive این کد رو بنویسه. من تست نکردم ولی فکر کنم اون موقع دیکه فرم نمایش داده نشه اما اگه هستش باید هایدش کرد. بعدشم تایم فعلی سیستم رو میخونی و توی یه حلقه منتظر گذشت t ثانیه میشی.
اینجوری انگار که بعد از اتمام برنامه این اتفاق افتاده ولی در واقع اینجوری نیست.
اگر از End برنامه پایان دادن به برنامه استفاده نکنه، پیشنهاد خوبی است.:46:نقل قول:
حتی اگه از End هم استفاده کنه به هر حال این دو رویداد اتفاق میفته چون فرم باید unload بشه و یه جورایی حکم متد مخرب رو داره.نقل قول:
اگر از End برنامه پایان دادن به برنامه استفاده نکنه، پیشنهاد خوبی است
دوست عزیز بهتره اول امتحان کنید و بعد در موردش نظر بدید.نقل قول:
این کد رو اجرا کنید:
وقتی روی فرم کلیک می‌کنید، برنامه تموم میشه ولی فایل TestFile توی درایو C شما ساخته نخواهد شد!:11:کد:Private Sub Form_click()
End
End Sub
Private Sub Form_Terminate()
Open "C:\TestFile" For Binary As 1
Put 1, 1, "Form_Unload"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open "C:\TestFile" For Binary As 1
Put 1, 1, "Form_Unload"
End Sub
سلامنقل قول:
دوست عزیز بهتره اول امتحان کنید و بعد در موردش نظر بدید.
این کد رو . . . . . . . . .
بله ببخشید حق با شماست.من خیلی وقته وبی کار نکردم بعضی چیزا یادم رفته.
ممنون از تذکرتون