View Full Version : Shift + Click
Ali_mx
چهارشنبه 22 مهر 1383, 23:22 عصر
چطور میشه این رو برای مثلا یه Button تعریف کرد؟
:roll:
علیرضا مداح
پنج شنبه 23 مهر 1383, 15:23 عصر
سلام .
ابتدا متغیر زیر را به صورت عمومی اعلان کنید(در زیر قسمت Windows Form Designer generated code : (از این متغیر برای مطلع شدن از اینکه آیا کلید Shift نگه داشته شده است یا نه استفاده میشود) .
Dim IsShiftDown As Boolean
سپس در رویداد KeyDown مربوطه به کنترل Button کد زیر را وارد نمایید :
If e.Shift = True Then
IsShiftDown = True
Else
IsShiftDown = False
End If
در صورتی که کلید Shift پایین نگه داشته شده باشد مقدار متغیر IsShiftDown برابر True و در غیر اینصورت مساوی False خواهد بود .
سپس کد زیر را درون رویداد MouseDown مربوط به کنترل Button وارد نمایید :
If isshiftdown And e.Button = MouseButtons.Left Then
'Do Something
End If
Ali_mx
پنج شنبه 23 مهر 1383, 23:12 عصر
:wink:
خودشه
خیلی ممنون
:sunglass:
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.