چه جوری میشه برای یک دکمه تعریف کرد که با کلیک اول یک کار و با کلیک بعدی یه کار دیگه و ... را انجام دهد؟
Printable View
چه جوری میشه برای یک دکمه تعریف کرد که با کلیک اول یک کار و با کلیک بعدی یه کار دیگه و ... را انجام دهد؟
سلام چون دقبقا كد آن را در فلش به خاطر نمي آورم انشاءالله آن را در مدرسه به تو تحويل خواهم داد...
(دبيرستان علامه حلي همدان) اگر كد را به يادآوردم اولين فرصت در وبلاگم قرار مي دهم...
راستی چه جوری میشه تعیین کرد با راست کلیک کردن یه کار و با چپ کلیک کردن یه کار دیگه انجام دهد؟
سلام
برای اینکه برای راست کلیک و چپ کلیک کد بنویسید باید از رویدادهای ماوس استفاده کنید . یعنی میتونید از این رویدادها در یک جمله شرطی استفاده کنید.:10:
سلام دوست عزیزنقل قول:
چه جوری میشه برای یک دکمه تعریف کرد که با کلیک اول یک کار و با کلیک بعدی یه کار دیگه و ... را انجام دهد؟
این کار خیلی سادست
ولی من نمی دونم دقیقا چی می خوای
یکی از این موارده دیگه:
1. می خوای دکمه دو تا کار بکنه دفعه اول یک کار دفعه دوم یک کار دیگه باز دفعه سوم دوباره همون کار اول و.....
2.می خوای چندین کار از این دکمه بدبخت بکشی:دی
3.می خوای رندومیک(شانسی)این دکمه یکی از کار هایی که براش تعریف کردی رو انجام بده
لطفا مشخص کن کدوم یک از این ها رو می خوای تا بتونم راهنماییت کنم [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
نه ...
هر بار که کلیک می کنی یه کاری بکنه. برای اولین بار یه کار برای دومین بار یه کار دیگه و ...
سلام من بازم منظورت رو نفهمیدمنقل قول:
نه ...
هر بار که کلیک می کنی یه کاری بکنه. برای اولین بار یه کار برای دومین بار یه کار دیگه و ...
نمی دونم بعد از و ... چه تفاقی می افته یعنی کار جدیدی هست یا بر می گرده به کار اول
ولی بازم سعی می کنم کمکت کنم:10:
_____________________________________
این کاری که شما می خوای خیلی سادست و با تابع if و گزینه ای به نام Tag به راحتی قابل انجامه
ببین شما یک دکمه داری به نام D :
1.برای اینکه این دکمه فقط دو تا کار ور هی تکرار کنه:
Tag دکمه رو می زاری 0 و توی کد این رو می نویسی:
......................کد:Private Sub d_Click()
If d.Tag = 0 Then
MsgBox "salam"
d.Tag = 1
Else
MsgBox "khodahafez"
d.Tag = 0
End If
End Sub
این کار معنیش اینه:
همینطور که می بینی شط طوری طراحی شده که اول که تگ دی خودش صفر هست شرط درست در میاد و توی کاری که باید شرط بکنه این کار هست که تگ رو بکنه 1نقل قول:
اگر تگ d مساوی بود با 0 سپس
پیغام سلام بده
و تگ d رو بکن 1
اگر شرط درست نبود
پیغام خداحافظ بده
و تگ d رو بکن 0
پایان شرط
بنابراین وقتی دوباره روش کلیک بشه شرط درست نیست و عملیات بعد از else رو انجام می ده و دوباره تگ رو می کنه 0 و برای سوم باز شرط درست در میاد به همین راحتی:27:
ببخشید یکم زیادی توضیح می دم:46:
.................................................. .....
ولی اگر چند تا کار بخوای شرط انجام بده مثلا چهار تا کار:
دوباره تگ d رو میزاری 0 و این کد رو می نویسی:
این کد رو وقتی می نویسی چهار تا کار رو انجام می ده و دوباره از اول کار ها رو شروع می کنهکد:Private Sub d_Click()
If d.Tag = 0 Then
MsgBox "kare aval"
d.Tag = 1
Else
If d.Tag = 1 Then
MsgBox "kare dovom"
d.Tag = 2
Else
If d.Tag = 2 Then
MsgBox "kare sevom"
d.Tag = 3
Else
If d.Tag = 3 Then
MsgBox "kare akhar"
d.Tag = 0
End If
End If
End If
End If
End Sub
می تونی کار ها رو هر چند تا که دلت خواست بیشتر کنی به همین راحتی:21:
امیدوارم توضیحات ناقصم کمکی کرده باشه:10:
سلام از چه نگارشي از وي بي استفاده مي كنيد؟باينقل قول:
میتونی به جای استفاده از if تو در تو از select case استفاده کنی
آره این خیلی ساده تره [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]نقل قول:
میتونی به جای استفاده از if تو در تو از select case استفاده کنی
بهرام دست درد نکنه.
البته لازم نبود این قدر به خودت زحمت بدی من با همون توضیح اولی فهمیدم.
به هر حال دست درد نکنه.
در ضمن یه چیز دیگه هم هست، که پرسیدم:
چه جوری میشه کاری کرد که با چپ کلیک یه کاری و با راست کلیک یه کار دیگه انجام داد؟
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button
Case vbRightButton
Code...
Case vbLeftButton
Code...
Case vbMiddleButton
Code...
End Select
End Sub
میشه گفت ، خیلی ممنون ...
آخه من خودم چند تا سوال از کسی پرسیدم طرف همینجوری چند تا چیزی گفت منم هیچی سر در نیاوردم برا همین گفتم بزار خوب توضیح بدم [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]نقل قول:
البته لازم نبود این قدر به خودت زحمت بدی من با همون توضیح اولی فهمیدم.
به هر حال دست درد نکنه.
البته بضعي ها خيلي سر سري جواب مي دن. و اصلا توجه نمي كنن اگر يه دفعه كامل جواب بدن كمتر وقتشون رو مي گيره ...
درست مي گم؟!...
بله درست میگید
خواهش میکنم