كنترلهاي ديگر

1- دكمه هاي گزينه اي

دكمه هاي گزينه اي يا همان OptionButton امكان انتخاب تنها يك گزينه را بين گزينه هاي موجود فراهم مي آورد.با كليك كردن دكمه گزينه اي يا با ارسال فوكوس به دكمه گزينه اي و فشردن Spacebar جهت گزينش آن ، كاربر يك دكمه گزينه اي را انتخاب مي كند يا از انتخاب خارج مي سازد.وقتي كه دكمه اي انتخاب شده باشد،نقطه سياه رنگي در مركز دايره آن پديدار مي گردد.
دكمه هاي گزينه اي به صورت يك به چند عمل مي كنند.يعني در هر زمان تنها يك دكمه گزينه اي مي تواند انتخاب شده باشد.براي اينكه مطمئن شويد كه در هر زمان تنها يك گزينه انتخاب شده است لازم نيست كار خاصي انجام دهيد،وقتي كه گزينه ديگري را انتخاب مي كنيد ،ويژوال بيسيك ابتدا گزينه اي كه قبلا انتخاب شده بود را غير فعال مي سازد و سپس گزينه جديد را انتخاب مي نمايد.

نكته: به دكمه هاي گزينه اي گاهي اوقات دكمه هاي راديوئي نيز گفته مي شود.

دكمه هاي گزينه اي داراي خصوصيات زيادي هستند كه از قبل با آنها آشنائي داريد.خصوصيت Alignment مشخص مي سازد كه متن دكمه گزينه اي در سمت چپ يا در سمت راست قرار گيرد.
خصوصيت Value احتمالا مهمترين خصوصيت دكمه هاي گزينه اي است .زيرا خصوصيت Value در زمان اجرا تغيير مي يابد و مشخص مي سازد كه كدام دكمه گزينه اي انتخاب شده است؟

قاب ها و دكمه هاي گزينه اي

قاب ، ناحيه مستطيلي بر روي فرم است كه كنترل هاي ديگر را در بر دارد و كنترل ها را در يك مجموعه گروه بندي مي كند.قاب ممكن است داراي عنواني نيز باشد.
اگر دكمه هاي گزينه اي داخل يك قاب (Frame) قرار گيرند و دكمه هاي ديگري نيز در خارج قاب روي فرم و يا در قاب ديگري داشته باشيم.قانون انتخاب يك گزينه از چند گزينه تنها در هر دسته تعريف مي شود.
اجازه دهيد با ذكر مثال با مفهوم دكمه هاي گزينه اي و قاب و كار با مشخصات دكمه ها بيشتر آشنا شويم.

همانند شكل زير يك قاب يا همان frame روي فرم قرار دهيد ونام انرا framcolor و دو دكمه راديوئي به نامهاي optred و optblue روي آن قرار دهيد.خاصيت Caption آن را به ترتيب برابر Red و Blue قرار دهيد.
همچنين دو دكمه گزينه اي ديگر به نامهاي optred1 و optblue1 با caption هاي red و Blue را روي فرم و خارج از قاب قرار دهيد.



كد هاي زير را بنويسيد ( به روالهاي كد ها دقت كنيد).

کد:
کد:
Private Sub optblue_Click()
    framcolor.BackColor = vbBlue
End Sub

Private Sub optblue1_Click()
    Form1.BackColor = vbBlue
End Sub

Private Sub optred_Click()
    framcolor.BackColor = vbRed
End Sub

Private Sub optred1_Click()
    Form1.BackColor = vbRed
End Sub

حال با اجراي برنامه خواهيد ديد كه هر كدام از دكمه ها كه در يك دسته قرار گرفته اند مستقل نسبت به دسته ديگر عمل مي كنندو شما با فشردن دكمه هاي درونقاب رنگ قاب را به رنگ نوشته شده و با انتخاب هر كدام از دكمه هاي روي فرم رنگ فرم را به رنگ نوشته شده تغيير خواهيد داد.
دقت كنيد كه با انتخاب هر كدام از دكمه ها خاصيت Value آن دكمه مقدار True و خاصيت Value دكمه ديگر مقدار False خواهد گرفت.

نكته مهم: شما به جاي نوشتن كد رنگ مورد نظر مي توانيد از اسامي آنها با يك پيشوند Vb استفاده كنيد.(به كد نوشته شده دقت كنيد)