If CType(Controls("控件名字"), RadioButton).Checked = True Then '選中
攸縣網(wǎng)站制作公司哪家好,找創(chuàng)新互聯(lián)!從網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、成都響應(yīng)式網(wǎng)站建設(shè)公司等網(wǎng)站項(xiàng)目制作,到程序開發(fā),運(yùn)營維護(hù)。創(chuàng)新互聯(lián)從2013年成立到現(xiàn)在10年的時(shí)間,我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn),來保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)。
Else '未選中
End If
'如果在 GroupBox或者panel等控件中用下面的方式
If CType(GroupBox1.Controls("控件名字"), RadioButton).Checked = True Then '選中
Else '未選中
End If
這個(gè)就關(guān)系到了。你必須使兩個(gè)的name屬性保持相等。這樣才能有排斥效果。否則不起作用的
你可以試試了
添加一個(gè)OPTION控件,復(fù)制-粘貼,建立 控件組
比如復(fù)制6個(gè)
代碼如下
Private Sub Command1_Click()
For i = 0 To 5
If Option1(i).Value = True Then MsgBox Option1(i).Caption "被選中"
Next
End Sub
1.首先第一步在“屬性”窗口中,將 RadioButton1 的 Text 屬性設(shè)置為 Regular Sauce。這時(shí)候把 RadioButton1 的 Checked 屬性設(shè)置為 True。然后在“屬性”窗口中,接著“RadioButton2”的 Text 屬性設(shè)置為 Spicy Sauce。
2、然后就可以在窗體中雙擊該按鈕,在代碼編輯器中打開 Button1_Click 事件處理程序。注意的是在 Button1_Click 事件處理程序中需要添加下面的代碼:
If RadioButton1.Checked = True Then
MsgBox("You chose regular sauce")Else
MsgBox("You chose spicy sauce")
End If
3、接著就是開始運(yùn)行程序。選擇某一單選按鈕,然后單擊“定購比薩”按鈕。此時(shí)將顯示一個(gè)消息框指明您的選擇。
嘗試同時(shí)選擇兩個(gè)單選按鈕。這時(shí)候要注意的是單選按鈕是相互排斥的。當(dāng)您單擊一個(gè)單選按鈕之后,另一個(gè)會自動清除。
一共有三個(gè)地區(qū)啊,第一就是彈出來窗口上面藍(lán)條下面的位置,顯示比如“請輸入”。第二就是彈出來窗口的標(biāo)題了,第三個(gè)位置就是可輸入部分顯示的示范內(nèi)容。
如inputbox("請輸入生日","標(biāo)題","1986-12-11")
網(wǎng)站標(biāo)題:vb.net中單選框,vbs 選擇框
標(biāo)題網(wǎng)址:http://jinyejixie.com/article34/dssoppe.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供域名注冊、App開發(fā)、面包屑導(dǎo)航、品牌網(wǎng)站設(shè)計(jì)、微信小程序、網(wǎng)站排名
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)