也可以編寫一個(gè)外部函數(shù)如下:Function optfunc(opt As Object) As Integer

目前創(chuàng)新互聯(lián)建站已為1000+的企業(yè)提供了網(wǎng)站建設(shè)、域名、雅安服務(wù)器托管、網(wǎng)站托管、企業(yè)網(wǎng)站設(shè)計(jì)、蘭州網(wǎng)站維護(hù)等服務(wù),公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長,共同發(fā)展。
If opt.Value = True Then optfunc = 1
If opt.Value = False Then optfunc = 0
End Function
在程序中編寫該代碼,即可調(diào)用函數(shù)optfunc,格式如下:變量 = optfunc(object)若單選按鈕object被選中,則變量的值為1,否則為0注意:變量必須為Integer類型,object可以使任何有value值、且value有True、False值的控件
添加一個(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
asp:RadioButton ID="RadioButton1" runat="server" Text="A." GroupName="group1"/
asp:RadioButton ID="RadioButton2" runat="server" Text="B." GroupName="group1" /
asp:RadioButton ID="RadioButton3" runat="server" Text="C." GroupName="group1" /
asp:RadioButton ID="RadioButton4" runat="server" Text="D." GroupName="group1" /
div
asp:CheckBox ID="CheckBox1" runat="server" Text ="A." /
asp:CheckBox ID="CheckBox2" runat="server" Text ="B." /
asp:CheckBox ID="CheckBox3" runat="server" Text ="C." /
asp:CheckBox ID="CheckBox4" runat="server" Text ="D." /
/div
這樣循環(huán)
%
Dim numi As Integer
For numi = 1 To TextBox1.Text
%
asp:RadioButton ID="RadioButton%=numi%" runat="server" GroupName="leibie%=numi%" /br /
% next %
If CType(Controls("控件名字"), RadioButton).Checked = True Then '選中
Else '未選中
End If
'如果在 GroupBox或者panel等控件中用下面的方式
If CType(GroupBox1.Controls("控件名字"), RadioButton).Checked = True Then '選中
Else '未選中
End If
                文章題目:vb.net單選框 vb選擇框
                
                本文路徑:http://www.chinadenli.net/article26/hpijcg.html
            
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供全網(wǎng)營銷推廣、虛擬主機(jī)、服務(wù)器托管、動態(tài)網(wǎng)站、定制網(wǎng)站、Google
聲明:本網(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)
