یه مشکل توی ویژوال بیسیک دات نت دارم خواهشا کمکم کنید

sicret

Member
یا سلام
من میخواستم یه پروژه بنویسم اما با مشکلی برخوردم فرض کنید روی یه فرم 1000 عدد RadioButton دارید حال اگر بخواهید هر لحضه یکی از RadioButton ها روشن شود چه می کنید خوب اگه بخواید چک کنید که کدوم روشنه بعد بعدی رو روشن کنی 'منظورم از روشن کردن همان(Cheked) شدن است' خوب طبیعتا خیلی طول میکشه من گفتم اگر یه متغیر بگیریم که با یه دستور حلقه از یک تا هزار بره و هر هزار تا RadioButton هم اسماشون بترتیب از یک تا هزار باشه شاید بشه یه کاری کرد اما نتوستم آیا شما می تونید کمکم کنید؟ منظورمو با یک مثال باز تر می کنم:rose:

Public
Class Form1
'یه متغیر اعلان می کنیم
Dim a AsInteger
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
'با یه حلقه متغیر از یک تا هزار می ره
DoUntil a = 1000
' اگه بشه اینجا یه جوری a رو توی دستور اشتراک داد اونوقت دیگه راحت میشیم به مثال زیر توجه کنید اشتباهه ولی شاید بشه یه کاریش کرد.
RadioButtona.Cheked =


True
a+=1
Loop
EndSub
EndClass


 
آخرین ویرایش:

the_king

مدیرکل انجمن
یا سلام
من میخواستم یه پروژه بنویسم اما با مشکلی برخوردم فرض کنید روی یه فرم 1000 عدد RadioButton دارید حال اگر بخواهید هر لحضه یکی از RadioButton ها روشن شود چه می کنید خوب اگه بخواید چک کنید که کدوم روشنه بعد بعدی رو روشن کنی 'منظورم از روشن کردن همان(Cheked) شدن است' خوب طبیعتا خیلی طول میکشه من گفتم اگر یه متغیر بگیریم که با یه دستور حلقه از یک تا هزار بره و هر هزار تا RadioButton هم اسماشون بترتیب از یک تا هزار باشه شاید بشه یه کاری کرد اما نتوستم آیا شما می تونید کمکم کنید؟

اینکه روی یک فرم 1000 تا کنترل RadioButton داشته باشید عادی و منطقی نیست، اگه موضوع یک کار آموزشی
و صرفا به قصد تجربه باشه که هیچ، اما در یک پروژه اصولی نباید این تعداد زیاد کنترل رو روی یک فرم قرار دهید،
دارید از RadioButton برای موردی که برایش مناسب نیست استفاده می کنید. احتمالا کاری که می بایستی با
یک PictureBox انجام شود را با هزار RadioButton انجام می دهید.

برای انتخاب کردن کنترل ها از Me.Controls استفاده کنید، مثلا برای انتخاب کردن کنترلی با نام radioButton1
به این شیوه عمل کنید :
کد:
        Dim rb As RadioButton
        rb = Me.Controls("radioButton1")
        rb.Checked = True

مثال پیوستی را ببینید.

کد کامل پروژه RadioButtons ضمیمه این پست شده است.
 

پیوست ها

  • RadioButtons.zip
    54.1 کیلوبایت · بازدیدها: 7

جدیدترین ارسال ها

بالا