ايران ويج

با سلام خدمت شما دوستان گرامی
-------------------------------------------------------------------------------
از خودم خندم می گیره آخه بگو اینم سواله می پرسی
آخه من دیگه خیلی وقته رفتم تو کاره دات نت
دیروز یه پروژه یکی از دوستان آورده بود گفت که اینو انجام بده با vb برا دانشگاه میخواستش استادشون گفته بود یه با کد خیلی کمی میتونید این مشکلو بر طرف کنید من هر چی فکر کردم فقط set focus یادم اومد ولی طول کدش زیاد میشه....(اینو میگن ضعف عقلی) برنامه یه بانک اطلاعاتی است که در هر فرم باید با زدن کلید enter از یک کنترل به کنترل دیگه بره و نخواد که از setfocus استفاده کنی.
یه چیزی هم تو گوگل پیدا کردم اما جواب نمیده
...............................................................................
حركت بين كنترلها با استفاده از كليد Enter

با استفاده از این کد می توانید با زدن کلید Enter بين كنترلهاي روي فرم (تكس باكس و دكمه فرمان ) حركت كنيد .(براي سهولت در حركت بجاي tab يا جهت نما استفاده مي شود.)

۱- خاصيت Key Press فرم را True كنيد.

2- tab index تمام كنترلها را ست كنيد.

3- كد زير را در رويداد Key Press فرم كپي كنيد. و استفاده كنيد.

(Private Sub Form_KeyPress(KeyAscii As Integer
If KeyAscii = vbKeyReturn Then SendKeys "{TAB}": KeyAscii = 0
End Sub

الکیه جواب نیمیده
---------------------------------------------------------------
خواهشمندم اگه میشه اینو جواب بدید ممنون میشوم

اين كدي رو كه نوشتي براي رويداد "كي پرس" تك تك كنترل هات بايد بنيسي تا جواب بگيري !

سلام دوست عزیز یعنی هیچ راهی وجود نداره به غیر از این کار آخه استادشون بهشون گفته بود با سه تا خط کد این کار کر کنم عداد کدش زیاد بشه

yareza نوشته است:سلام دوست عزیز یعنی هیچ راهی وجود نداره به غیر از این کار آخه استادشون بهشون گفته بود با سه تا خط کد این کار کر کنم عداد کدش زیاد بشه

خوب اگه ميخواي سه خطي باشه:
همون كد رو تو يه تايمر با Interval = 1 بذار ببين جواب ميده !؟

نقل قول: If KeyAscii = vbKeyReturn Then SendKeys "{TAB}": KeyAscii = 0

اگه میخای کد کمتری استفاده کنی باید از آرایه های کنترلی استفاده کنی . که همون کد بالا رو میتونی برای همه کنترل های مشابه استفاده کنی.

yareza نوشته است:۱- خاصيت Key Press فرم را True كنيد.

.
.
.

الکیه جواب نیمیده

با سلام
اون خاصيت key preview هست
و يا اين كار فقط مي توني بين كنترلهاي تكست حركت كنيد نه كامندها

ایول آقا حمید دمت گرم مال من واسه کامندها هم جواب میده
اول خاصیت key preview فرم راtrue کردم بعد ای کد رو داخل خاصیتKeyPress
فرم نوشتم If KeyAscii = vbKeyReturn Then SendKeys "{TAB}": KeyAscii = 0 و جواب داد

راستی آقای HoseinVig و آقای __siavash از شما نیز به خاطر زحماتتان تشکر میکنم