انتخاب دکمه تنظیم با عدد

[mostafa_C]

با سلام
من توی فرمی که دارم می خوام وقتی عدد 1 زده بشه مثلا جنسیت مرد انتخاب بشه...
و بعد هم می خوام در دو تا گزینه بعدی برای اینکه مجرد رو هم انتخاب کنم دکمه 1 زده بشه... یه سری کد نوشتم که تقریبا درست عمل می کنه ولی وقتی که اطلاعات رو دوباره بخوایم ویرایش کنیم یه ذره قاطی می کنه.
کسی روش بهتری سراغ نداره؟

[mostafa_C]

سلام... منظورم رو کسی فهمید؟

[Mbt925]

جنسیت مرد باید از کجا انتخاب بشه؟
اطلاعات کجاست که می خواید ویرایششون کنید؟

[HjSoft]

باید از Case استفاده کنی فکر کنم بهترین روشه __ یا بهرته سورس کارتو بذاری

[mostafa_C]

خوب فکر کنم درست متوجه منظورم نشدید.
با توجه به این شکل:
http://i26.tinypic.com/2mw8hmu.jpg
من می خوام که وقتی کسی داره فرم رو پر می کنه. برای اینکه Male رو انتخاب کنه عدد یک رو بزنه و بعد در بین گزینه های تأهل برای اینکه Married انتخاب کنه هم عدد یک رو بزنه. اما کدی که نوشتم بعضی وقت ها باگ پیدا می کنه.
برای کد هم که الان کافی نت هستم. رفتم خونه میزارم ببینید. البته بگم که مبتدی هست.

[اوبالیت به بو]

نه چرا Case؟؟؟؟
از تابع IIF استفاده کن. مگه چند تا شرط می خوای بزاری 1 شرط بیشتر نیست دیگه.
مرد رو بزار 1
زن رو بزار 0

x=IIF(MaleOpt.Value=True,MsgBox "Male",MsgBox "Female")

البته این کد نحوه آشنایی بود اصلش رو میشه با یکسری تغییرات کوچیک اعمال کرد.

[mostafa_C]

نه شما اصلا درست متوجه نشدید.
من کدی که نوشتم اینه: (فرض کنید که دکمه NotMarried فاکوس گرفته:)

Private Sub optmojarad_GotFocus()
frmmarried.Show
End Subحالا محتویات فرم ازدواج:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 97:
frmmain.optmotaahel = False
frmmain.optmojarad = True
frmschool.Show
Unload Me
Case 98:
frmmain.optmojarad = False
frmmain.optmotaahel = True
frmmain.Label16.Visible = True
frmmain.txtchildren.Visible = True
frmmain.txtchildren.SetFocus
Unload Me
Case 99:
Unload Me
End Select

End Sub


اما همونطور که خودتون هم فهمیدید، توش باگ زیاد داره

خوب این هم تصویری از فرم. خودتون متوجه میشید که؟
http://i27.tinypic.com/necfsw.jpg

[mostafa_C]

یعنی واقعا اینقدر سخته؟
می بخشید که این پست رو دادم ولی می خوام که بروز باشه تا همه ببینن

[Mbt925]

این نمونه رو ببینید:

[sasanhe]

از radio Button استفاده کنید

[nima100]

1- اول باید خصوصیت KeyPreview مربوط به فرم رو True کنی تا رویدادهای صفحه کلید رو ابتدا فرم پردازش کنه .
2-حالا میری توی رویداد KeyDown یا KeyUp مربوط به فرم و کدت رو می نویسی توصیه می کنم که از keypress استفاده نکنی چون نمی تونی فشرده شدن اعداد مربوط به قسمت ماشین حسابی صفحه کلید رو تشخیص بدی .
موفق باشی

[mostafa_C]

Mbt925 (http://barnamenevis.org/forum/member.php?u=34702)
شما درست متوجه منظور من نشدید. این برنامه ای که شما دادید درسته ولی فقط برای یه تیکه کار می کنه. یعنی 1 یا 2 اختصاص داده شدن به آپشن باتن های مرد و زن و من می خوام همین 1 و دو در سری بعد به اپشن باتن های متأهل یا مجرد هم اختصاص پیدا کنه.

[Mbt925]

دوست عزیز شما با مرحله ای کردن اه کار ، انجامش رو دشوارتر می کنید تا ساده تر !!!

برای این منظور شما باید مرحله ای که توش قرار دارید رو نگه دارید.

برای مثال یه متغیر در نظر میگیرید که مقدار اولیش 1 هست (مرحله 1)
بعد از اینکه کاربر 1بار کلید 1 یا 2 رو زد و یکی از گزینه ها انتخاب شد ، این متغیر مقدارش یکی زیاد میشه (2 : مرحله 2)

با هر بار زدن کلید های 1 یا 2 ، برنامتون باید مقدار متغیر مربوطه رو چک کنه (مرحله) و بسته به مرحله ی مربوطه OptionButton اه مربوطه رو تیک بزنه.

[mostafa_C]

عالیه... فکر خیلی خوبیه ولی مشکلش اینکه اگر بخواد کار رو ویرایش کنه مشکل پیش میاد. البته خودم یه فکر دیگه براش کردم که شاید بهتر بشه. حالا روش کار می کنم.
ممنون از تمامی دوستانی که جواب دادن.
مشکل این تاپیک هم حل شده به حساب میاد.
یا علی

[Mbt925]

این نمونه رو هم ببینید ، خالی از لطف نیست.

[mostafa_C]

آره... این از یکی خودم بهتره ... میرم روی همین کار می کنم ;)
ممنون