VB中复选框的问题 VB复选框问题
wps\u590d\u9009\u6846\u95ee\u9898WPS\u7684Word\u5e94\u8be5\u53eb\u300aWPS\u6587\u5b57\u300b\u3002
\u83dc\u5355\u680f\u2014\u2014\u63d2\u5165\u2014\u2014\u7a97\u4f53\u677f\u5757\u2014\u2014\u590d\u9009\u6846\u578b\u7a97\u4f53\u57df\u3002
\u5efa\u8bae\u7528Microsoft Word\u5f53\u4e2d\u300a\u63a7\u4ef6\u5de5\u5177\u7bb1\u300b\u91cc\u9762\u7684\u201c\u590d\u9009\u6846\u201d\u3002\u53ef\u4ee5\u70b9\u51fb\u590d\u9009\uff0c\u4e0d\u7528\u53f3\u952e\u8bbe\u7f6e\u5c5e\u6027\u3002
Check1.Value = 0\u8fd9\u4e2a\u53e5\u5b50\u6539\u53d8\u4e86\u590d\u9009\u6846\u7684\u503c\uff0c\u53ef\u80fd\u4f1a\u5bfc\u81f4\u590d\u9009\u6846\u53d1\u751f\u4e00\u6b21click\u4e8b\u4ef6\u3002\u548c\u9f20\u6807\u518d\u70b9\u4e86\u4e00\u6b21\u662f\u4e00\u6837\u7684\u6548\u679c\u3002
\u8865\u5145\uff1a
\u7531\u4e8e\u7b2c\u4e00\u6b21\u628a\u503c\u6539\u4e3a0\u4e86\uff0c\u6240\u4ee5\u540e\u9762Check1.Value = 0 \u4e0d\u4f1a\u6539\u53d8\u503c\uff0c\u6240\u4ee5\u4e0d\u4f1a\u518d\u6b21\u5f15\u53d1\u7684click\u4e8b\u4ef6\uff0c\u4e5f\u5c31\u4e0d\u4f1a\u6b7b\u5faa\u73af\u3002
If Check1.Value = 0 Then '假如check的值为0(flase),即没有选中时，则
Label1.FontBold = Flase 'label1 粗体属性为flase
Else '否则 ,即True选中状态
Label1.FontBold = True 'label1 粗体属性也为True（下面的按钮大同小异）
End If
End Sub
Private Sub Check2_Click() '斜体复选按钮
If Check2.Value = 0 Then
Label1.FontItalic = False
Else
Label1.FontItalic = True
End If
End Sub
Private Sub Check3_Click() '下划线复选框
If Check3.Value = 0 Then
Label1.FontUnderline = False
Else
Label1.FontUnderline = True
End If
End Sub
If Check1.Value Then '加粗
Object.FontBold = True
Else
Object.FontBold = False
End If
其他的都一样，就是把代码中的Check1、Object改成你自己的控件、FontBold改成FontItalic（倾斜）或者FontUnderline（下划线）就可以了
绛旓細vbnet澶嶉夋涓嶈兘涓虹┖鏄洜涓哄湪绋嬪簭涓缃簡鏍￠獙閫昏緫锛屽鏋滅敤鎴锋病鏈夊嬀閫夊閫夋锛屽垯浼氭彁绀虹敤鎴疯繘琛屽嬀閫銆傛牴鎹煡璇㈢浉鍏冲叕寮淇℃伅鏄剧ず锛屽湪VB.NET涓紝澶嶉夋锛圕heckBox锛夋帶浠跺彲浠ヨ璁剧疆涓哄繀濉」锛屼篃灏辨槸蹇呴』鍕鹃夋墠鑳借繘琛屼笅涓姝ユ搷浣滐紝鍚﹀垯闇瑕佺粰鍑烘彁绀轰俊鎭傝繖鏍峰彲浠ョ‘淇濈敤鎴疯緭鍏ョ殑鏁版嵁绗﹀悎棰勬湡鐨勮姹傦紝閬垮厤浜嗙▼...
绛旓細Private Sub Check1_Click(Index As Integer)Dim i As Integer Dim tmpstr As String For i = 0 To Check1.UBound tmpstr = tmpstr & CStr(Check1(i).Value)Next Text1.Text = tmpstr End Sub Private Sub Form_Load()Dim i As Integer Check1(0).Caption = ""Check1(0).Width = ...
绛旓細1銆佸崟鍑烩濋夋嫨绐楁牸鈥滄寜閽紝濡傚浘鎵绀恒2銆侀変腑绗竴涓璞★紝鎸変綇銆怱hift銆戦敭锛屽崟鍑绘渶鍚庝竴涓璞★紝鍏ㄩ夋墍鏈夋帶浠讹紝濡傚浘鎵绀恒3銆佸崟鍑烩濆睘鎬р滄寜閽紝璁剧疆Value椤圭殑鍊间负False锛屽鍥炬墍绀猴紝鍙栨秷鎵鏈夊璞＄殑鍕鹃夈傝缃閫夋鏉ョ粺涓闇瑕佸叾瀹澶嶉夋鐨鍊硷紝瑕佺敤鍒癡BA缂栫▼锛岃繃绋嬪氨鐩稿澶嶆潅涓浜涖
绛旓細Private Sub Check1_Click(Index As Integer)For i = 0 To 7 If Check1(i).Value = 1 Then s = s & Check1(i).Caption & "銆"End If Next i Text1.Text = "浣犵殑鐖卞ソ鏄細"Text1.Text = Text1.Text & s End Sub
绛旓細dim strResult as stringstrResult="鎴戠殑鐖卞ソ鏄"if ch1.value=checked then strResult = strResult & ch1.captionif ch2.value=checked then strResult = strResult & ch1.captionif ch3.value=checked then strResult = strResult & ch1.captionform1.print strResult ...
绛旓細Private Sub Check2_Click() '鏂滀綋澶嶉夋寜閽 If Check2.Value = 0 Then Label1.FontItalic = False Else Label1.FontItalic = True End If End Sub Private Sub Check3_Click() '涓嬪垝绾澶嶉夋 If Check3.Value = 0 Then Label1.FontUnderline = False Else Label1.FontUnderline ...
绛旓細鏀筂ultiSelect灞炴х殑鍊 鍦ㄩ粯璁ょ殑鎯呭喌涓嬶紝鍦ㄤ竴涓垪琛ㄦ涓彧鑳介夋嫨涓椤癸紝杩欐槸鍥犱负MultiSelect灞炴т负0銆傚綋MultiSelect灞炴т负1鎴2鏃跺厑璁稿椤归夋嫨銆0-None锛氱姝㈠椤归夋嫨 1-Simple锛氱畝鍗曞椤归夋嫨銆傞紶鏍囧崟鍑绘垨鎸夌┖鏍奸敭琛ㄧず閫夊畾鎴栧彇娑堥夊畾涓涓夋嫨椤 2-Extended锛氭墿灞曞椤归夋嫨銆傛寜浣廋trl閿紝鍚屾椂鐢ㄩ紶鏍囧崟鍑绘垨鎸...
绛旓細鍏堢敾涓や釜澶嶉夋锛宑heck1涓哄叏閫夛紝澶嶅埗n涓猚heck2锛屼竴鍏卞氨鏈塶+1涓猚heck2锛屽啀鐢讳竴涓猚heck3锛堝叏娓咃級=== Private Sub Check1_click()If Check1.Value = 1 Then For i = 0 To n Check2(i).Value = Check1.Value Next i Check3.Value = 0 End If End Sub Private Sub Check3_Click()I...
绛旓細ts(1) = "56789"ts(2) = ""'娣诲姞涓涓垽鏂敤鐨勫彉閲忥細Dim bToDelete As Boolean For i = List1.ListCount - 1 To 0 Step -1 bToDelete = False '鍒濆涓篺alse tn(0) = 0 '姣忔寰幆瑕佸垵濮嬪寲涓娆★紝涓嶇劧濡傛灉閮戒笉鍕鹃夌殑鐢诲氨鍙兘浼氬嚭闂 tn(1) = 0 tn(2) = 3 '鍒嗕袱娆¤繘琛...
绛旓細Private Sub Command2_Click() For i = 1 To ListView1.ListItems.Count ListView1.ListItems.Item(i).Checked = False NextEnd SubPrivate Sub Command1_Click() For i = 1 To ListView1.ListItems.Count ListView1.ListItems.Item(i).Checked = True NextEnd SubPrivate S...
