اجراي دستور توسط كيبورد

[ali162]

با سلام خدمت كليه كاربران عزيز و محترم
من يك برنامه دارم مي نويسم و در اول برنامه يك كادر پسوورد گذاشتم و مي خوام كه كاربر بعد از نوشتن پسورد در كادر متن و زدن دكمه اينتر روي كيبورد وارد برنامه بشود يعني در حقيقت در پنجره پسورد سه گزينه به نام هاي كادر متن و دكمه ورود و دكمه خروج وجود دارد و كاربر بعد از زدن پسورد يا توسط موس روي دكمه ورود كليك كرده و وارد برنامه بشود و يا با زدن دكمه اينتر از روي كيبورد وارد برنامه شود
كه در نوشتن كد اين برنامه اين جا را مشكل دارم كه چگونه دكمه اينتر روي كيبورد را براي برنامه تعريف كنم.
از كاربران محترم خواهش مي كنم كه من را در نوشتن اين برنامه ياري كنند و اگر كدي و يا سورسي در اختيار دارند براي من بفرستند.
با تشكر فراوان

[ROSTAM2]

از كاربران محترم خواهش مي كنم

منظورت ماییم :لبخند: یا کسایی که می خوان برنامه رو استفاده کنن

1. KeyPreview از فرم رو فعال کن
2. برای ایونت KeyUp یا KeyDown جعبه متن
Call CommandButton1_Click()

بنویس..............................

[بهروز عباسی]

از کد اسکی کلید اینتر استفاده کن تا با فشردن هر کلید یک کار خاص انجام بشه.
در اینجا 13 معادل کلید اینتر هستش.
Private Sub txtEnterPass_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 13
Call cmdOK_Click
End Select
End Sub

موفق باشی

[ali162]

منظورت ماییم :لبخند: یا کسایی که می خوان برنامه رو استفاده کنن

1. KeyPreview از فرم رو فعال کن
2. برای ایونت KeyUp یا KeyDown جعبه متن
Call CommandButton1_Click()

بنویس..............................

ميشه بيشتر توضيح بدهيد چون اصلاًنفهميدم
اگر ميشه توضيح تون رو درقالب يك سورس به من بديد خيلي ممنون ميشم

[ali162]

ميشه بيشتر توضيح بدهيد چون اصلاًنفهميدم
اگر ميشه توضيح تون رو درقالب يك سورس به من بديد خيلي ممنون ميشم

[محسن واژدی]

ميشه بيشتر توضيح بدهيد چون اصلاًنفهميدم
اگر ميشه توضيح تون رو درقالب يك سورس به من بديد خيلي ممنون ميشم

سلام منظور جناب ROSTAM2 از KeyPreview این است که از بخش Properties گزینه KeyPreview را بر روی True تنظیم کنیم تا از این به بعد کلید های فشرده شده صفحه کلید توسط فرم دریافت شوند کلید های فشرده شده را در رویداد های KeyDown ، KeyUp و مانند این میتوانید دریافت کنید، مانند کد زیر:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
MsgBox "Enter key pressed", vbInformation
End If
End Sub

همچنین ساده ترین راه حل این است که بر روی دکمه ورود (که بر روی فرم قرار داده اید) کلید کنید سپس از لیست Properties گزینه Default را بر روی True تنظیم کنید، در این حالت دکمه ورود به عنوان دکمه پیش فرض روشن خواهد بود، که اگر متن ورود را در جعبه متنی وارد کرده و کلید Enter را فشار دهید دکمه ورود کلیک میشود

نمونه زیر مربوط به راهنمایی دوم را بررسی کنید

موفق باشید

[ali162]

آقا دستت درد نكنه خيلي قشنگ فهميدم انشاالله هرچي از خدا مي خواي بهت بده و در زندگي هميشه موفق باشي