欧美一区二区三区老妇人-欧美做爰猛烈大尺度电-99久久夜色精品国产亚洲a-亚洲福利视频一区二区

vb.net單選框樣式的簡單介紹

vb的單選框怎么用

單選框還是復選框,單選框用Option1(XX).Value

創(chuàng)新互聯(lián)公司提供高防物理服務器租用、云服務器、香港服務器、中國電信成都樞紐中心

判斷,true表示選中,false表示未選中

注意,添加option控件(圓形)時,最好再復制幾個搞成數(shù)組,這樣選中一個后其他的會自動取消,用于單選時很方便

VB單選框

'確定按鈕中的代碼,自己改下

Private Sub Command1_Click()

If Option1.Value = True Then

MsgBox "選定了" Option1.Caption

Exit Sub

End If

If Option2.Value = True Then

MsgBox "選定了" Option2.Caption

Exit Sub

End If

If Option3.Value = True Then

MsgBox "選定了" Option3.Caption

Exit Sub

End If

If Option4.Value = True Then

MsgBox "選定了" Option4.Caption

Exit Sub

End If

MsgBox "沒有選"

End Sub

vb 單選框和復選框

Private Sub Check1_Click()

End Sub

Private Sub Check2_Click()

Label2 = Label2 Check2.Caption vbCrLf

Check2.Enabled = False

End Sub

Private Sub Check3_Click()

Label2 = Label2 Check3.Caption vbCrLf

Check3.Enabled = False

End Sub

Private Sub Option1_Click()

End Sub

Private Sub Option2_Click()

End Sub

Private Sub Option3_Click()

Label2 = ""

Label1 = "你選擇了" Option3.Caption

End Sub

前提是屬性已經(jīng)按你說的設置了

vb里單復選框,單選框:宋體楷體黑體,復選框:粗體斜體下劃線,代碼怎么寫?

Private Sub Check1_Click(Index As Integer)

Select Case Index

Case 0

Text1.FontBold = Check1(Index).Value

Case 1

Text1.FontItalic = Check1(Index).Value

Case 2

Text1.FontUnderline = Check1(Index).Value

End Select

End Sub

Private Sub Form_Load()

Text1.Text = "單選與復選框應用"

Text1.Alignment = 2

Text1.FontSize = 18

End Sub

Private Sub Option1_Click(Index As Integer)

Select Case Index

Case 0

Text1.FontName = "宋體"

Case 1

Text1.FontName = "楷體"

Case 2

Text1.FontName = "黑體"

End Select

End Sub

vb中單選框和復選框的使用

單選框可以根據(jù)它的Value屬性值來判斷;

Value = True 表示被選中

Value = False 表示未被選中

復選框可以根據(jù)它的Value屬性值來判斷;

Value = 1 表示被選中

Value = 0 表示未被選中

當前標題:vb.net單選框樣式的簡單介紹
URL鏈接:http://chinadenli.net/article23/dsshhjs.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供ChatGPT企業(yè)網(wǎng)站制作動態(tài)網(wǎng)站商城網(wǎng)站軟件開發(fā)網(wǎng)站策劃

廣告

聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)

綿陽服務器托管