PDA

نسخه کامل مشاهده نسخه کامل : تشخيص فشرده شدن كليد شيفت(Shift)


MichaelQwerty
22-11-2008, 16:12
سلام دوستان مهربانم
من يك كد مي خواهم كه نشان دهد كليد شيفت نگه داشته شده است به غير از getasynckeystate
لطفا راهنمايي كنيد
يك مثال هم بزنيد خيلي بهتر است
l3ai3ak
23-11-2008, 10:41
برای دسترسی به بافر صفحه کلید getasynckeystate تنها روش موجود هست و یا این که از ثباتها استفاده کنی .
که با دستور Peek امکان پذیر هست . و در غیر این صورت تشخیص شما محدود به داخل نرم افزارتان خواهد بود .
یعنی اگر روی نرم افزار دیگری فکوس شود و کلید اشاره شده را فشار دهند دیگر سیستم قادر به تشخیص آن نخواهد بود.
MichaelQwerty
23-11-2008, 17:34
برای دسترسی به بافر صفحه کلید getasynckeystate تنها روش موجود هست و یا این که از ثباتها استفاده کنی .
که با دستور peek امکان پذیر هست . و در غیر این صورت تشخیص شما محدود به داخل نرم افزارتان خواهد بود .
یعنی اگر روی نرم افزار دیگری فکوس شود و کلید اشاره شده را فشار دهند دیگر سیستم قادر به تشخیص آن نخواهد بود.

از این دستور چگونه استفاده می کنند(peek)
زمزم
23-11-2008, 21:09
با سلام.
میخواهم در مورد نوشتن یک برنامه در محیط vb.net کمکم کنید .
سوال: برنامه ای که دو عدد را از ورودی خوانده و با استفاده از روش جمع با یکدیگر ضرب کند
3+3+3+3=3*4
MichaelQwerty
24-11-2008, 12:20
سوال خود را در پست جدید مطرح کنید
*Batman*
24-11-2008, 13:21
سلام.

برای تشخیص کلید خارج از برنامه:


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنیدبرای تشخیص کلید داخل برنامه از رویدادهای Key_Down و Key_Press استفاده کنید.
*Batman*
24-11-2008, 13:35
با سلام.
میخواهم در مورد نوشتن یک برنامه در محیط vb.net کمکم کنید .
سوال: برنامه ای که دو عدد را از ورودی خوانده و با استفاده از روش جمع با یکدیگر ضرب کند
3+3+3+3=3*4


شما باید سوال خودتون را در بخش Netframe work. و در یه تاپیک مجزا مطرح می کردید.

اما برای خیر مقدم و با اجازه دوستمون MichaelQwerty

Dim M, N, Total As Integer
M = Val(TextBox1.Text)
N = Val(TextBox2.Text)
For I As Integer = 1 To M
Total = Total + N
Next

TextBox3.Text = Total
MichaelQwerty
24-11-2008, 17:19
Private Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Long) As Integer
میشه از این یه مثال بزنید دوست عزیزم
*Batman*
25-11-2008, 02:32
تعاریف عمومی:

Private Const VK_LSHIFT = &HA0
Private Const VK_RSHIFT = &HA1
Private Const KEY_MASK As Integer = &HFF80
=======================================

در رویداد کلیک دکمه یا تایمر :

If GetKeyState(VK_RSHIFT) And KEY_MASK Then

'Do Something

ElseIf GetKeyState(VK_LSHIFT) And KEY_MASK Then

'Do Something

End If