vb复选框被选中 vb如何判断复选框是否被选中?
vb\u590d\u9009\u6846\u7684value\u5c5e\u6027\u503c\u5206\u522b\u662f\u4ec0\u4e48\u590d\u9009\u6846\u7684\u4e00\u4e2a\u7279\u6b8a\u5c5e\u6027\u662fValue\u5c5e\u6027\uff0c\u5b83\u7684\u53d6\u503c\u548c\u7528\u6cd5\u4e0e\u5355\u9009\u6309\u94ae\u6709\u6240\u5dee\u522b\u3002\u82e5Value\u5c5e\u6027\u7684\u503c\u53d6\u4e3a0\uff0c\u4ee3\u8868\u590d\u9009\u6846\u5904\u4e8e\u672a\u9009\u4e2d\u72b6\u6001\uff0c\u6b64\u65f6\u590d\u9009\u6846\u7684\u9009\u9879\u90e8\u5206\u662f\u4e00\u4e2a\u7a7a\u767d\u7684\u5c0f\u65b9\u5757\u3002
\u82e5Value\u5c5e\u6027\u7684\u503c\u53d6\u4e3a1\uff0c\u4ee3\u8868\u590d\u9009\u6846\u5904\u4e8e\u9009\u4e2d\u72b6\u6001\uff0c\u6b64\u65f6\u590d\u9009\u6846\u7684\u9009\u9879\u90e8\u5206\u662f\u4e00\u4e2a\u5e26\u6709\u201c\u221a\u201d\u6807\u8bb0\u7684\u5c0f\u65b9\u5757\uff1b\u82e5Value\u5c5e\u6027\u7684\u503c\u53d6\u4e3a2\uff0c\u4ee3\u8868\u590d\u9009\u6846\u5904\u4e8e\u7981\u6b62\u9009\u62e9\u72b6\u6001\u3002\u4e00\u822c\u7cfb\u7edf\u9ed8\u8ba4\u503c\u4e3a0\uff0c\u5373\u672a\u9009\u4e2d\u72b6\u6001\u3002
\u6269\u5c55\u8d44\u6599\uff1a
\u4f7f\u7528\u590d\u9009\u6846\u65f6\uff0c\u6bcf\u5355\u51fb\u4e00\u6b21\u5c06\u5207\u6362\u4e00\u6b21\u590d\u9009\u6846\u7684\u72b6\u6001\uff1a\u9009\u4e2d\u6216\u8005\u672a\u9009\u4e2d\u3002\u6bcf\u6b21\u5355\u51fb\u4e5f\u6fc0\u6d3b\u590d\u9009\u6846\u7684Click\u4e8b\u4ef6\uff0c\u53ef\u6267\u884c\u76f8\u5e94\u64cd\u4f5c\u3002
\u590d\u9009\u6846\u7684\u529f\u80fd\u7c7b\u4f3c\u4e8e\u5355\u9009\u6309\u94ae\uff0c\u4e5f\u5141\u8bb8\u5728\u591a\u4e2a\u9009\u9879\u4e2d\u505a\u51fa\u9009\u62e9\u3002\u4f46\u4e0d\u540c\u7684\u662f\uff1a\u4e00\u7cfb\u5217\u5355\u9009\u6309\u94ae\u4e2d\u53ea\u5141\u8bb8\u9009\u5b9a\u5176\u4e2d\u7684\u4e00\u4e2a\uff1b\u800c\u5728\u4e00\u7cfb\u5217\u590d\u9009\u6846\u4e2d\u5374\u53ef\u4ee5\u9009\u62e9\u591a\u4e2a\u3002
\u56e0\u4e3a\u4f60\u7684\u590d\u9009\u6846\u662f\u522b\u7684\u5e94\u7528\u7a0b\u5e8f\u7684,\u6211\u60f3\u5230\u7684\u6709\u4e24\u79cd:
No1:
\u5c31\u662f\u4e0a\u697c\u6240\u8bf4\u7684,\u5148\u83b7\u53d6\u5e94\u7528\u7a0b\u5e8f\u7684\u53e5\u67c4,\u518d\u5217\u4e3e\u91cc\u9762\u5404\u5bf9\u8c61\u7684\u53e5\u67c4,\u7136\u540e\u6765\u83b7\u53d6,\u8fd9\u79cd\u65b9\u6cd5\u8981\u9ebb\u70e6\u4e00\u70b9
No2:\u53ef\u4ee5\u7528\u5185\u5b58\u6570\u636e\u67e5\u770b\u5de5\u5177,\u5982CE(Cheat Engine)\u627e\u5230\u590d\u9009\u6846\u72b6\u6001\u7684\u5185\u5b58\u6570\u636e,\u518d\u901a\u8fc7\u5185\u5b58\u6570\u636e\u7684\u8bfb\u53d6,\u6765\u83b7\u53d6\u4ed6\u7684\u72b6\u6001(\u4e2a\u4eba\u89c9\u5f97\u8fd9\u79cd\u65b9\u6cd5\u8981\u7b80\u5355)\u5475\u5475
\u4e0a\u9762\u4e24\u79cd\u65b9\u6cd5,\u5b9e\u73b0\u8d77\u6765,\u90fd\u4e0d\u662f\u4e00\u4e24\u53e5\u8bdd\u80fd\u8bf4\u6e05\u7684,\u4f60\u53ef\u4ee5\u67e5\u627e\u76f8\u5173\u8d44\u6599
Private Sub CheckB_Click()
If CheckA.Value <> 0 Then CheckB.Value = 0
End Sub
当勾选A时，B项不能选，当不勾选A时，B项可以选，这代码组合：
CheckBox 控件
组中可以使用 CheckBox 控件显示多项选择，从而可选择其中的一项或多项。也可以通过对 Value 属性编程设置
CheckBox 的值。
在一个窗体中可以同时选择任意数量的 CheckBox 控件。
以下代码会告诉CheckBox 控件单选或多选的状态Option Explicit
Private Sub Check1_Click()
Debug.Print Check1.Value; Check2.Value; Check3.Value
End Sub
Private Sub Check2_Click()
Debug.Print Check1.Value; Check2.Value; Check3.Value
End Sub
Private Sub Check3_Click()
Debug.Print Check1.Value; Check2.Value; Check3.Value
End Sub
为啥不用单选，理解不能
绛旓細鍦˙鐨勫崟鍑讳腑鍔犲叆璇彞锛 If CheckA.Value <> 0 Then CheckB.Value = 0 Private Sub CheckB_Click()If CheckA.Value <> 0 Then CheckB.Value = 0 End Sub
绛旓細鍥犱负浣犵殑澶嶉夋鏄埆鐨勫簲鐢ㄧ▼搴忕殑,鎴戞兂鍒扮殑鏈変袱绉:No1:灏辨槸涓婃ゼ鎵璇寸殑,鍏堣幏鍙栧簲鐢ㄧ▼搴忕殑鍙ユ焺,鍐嶅垪涓鹃噷闈㈠悇瀵硅薄鐨勫彞鏌,鐒跺悗鏉ヨ幏鍙,杩欑鏂规硶瑕侀夯鐑︿竴鐐 No2:鍙互鐢ㄥ唴瀛樻暟鎹煡鐪嬪伐鍏,濡侰E(Cheat Engine)鎵惧埌澶嶉夋鐘舵佺殑鍐呭瓨鏁版嵁,鍐嶉氳繃鍐呭瓨鏁版嵁鐨勮鍙,鏉ヨ幏鍙栦粬鐨勭姸鎬(涓汉瑙夊緱杩欑鏂规硶瑕佺畝鍗)鍛靛懙 涓婇潰...
绛旓細MsgBox "绗" & i & "琛琚変腑", , "鎻愮ず"End If Next End Sub
绛旓細鍏堢敾涓涓澶嶉夋缁刢heck1锛0锛夛紝check1锛1锛夛紝check1锛2锛夛紝鐢诲嚑涓牴鎹儏鍐靛畾锛歅rivate Sub Command1_Click()Dim i As Integer For i = 0 To 2 Check1(i).Value = 1 Next i End Sub Private Sub Command2_Click()Dim i As Integer For i = 0 To 2 Check1(i).Value = 0 Next ...
绛旓細dim i as Integer dim count as integer for i = 1 to 24 if check1(i).Value=1 then '鍒拌繖閲岋紝i灏变唬琛ㄤ簡鏄鍑犱釜澶嶉夋鏄琚変腑鐨勶紝鑰宑heck1(i)灏辨槸宸茬粡琚変腑鐨勫閫夋 count = count + check1(i).helpContextID endif next msgbox count ...
绛旓細Private Sub Check1_Click()If Check1.Value = 1 Then Combo1.Enabled = TrueEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 Then Combo2.Enabled = TrueEnd SubPrivate Sub Combo1_Click()If Combo1.Text <> "" Then Check2.Enabled = TrueEnd SubPrivate Sub Combo2_Click()If...
绛旓細For i As Integer = 1 To 8 Dim TC As CheckBox = Me.Controls("ComboBox" & i)If TC.Checked Then TextBox1.Text = TextBox1.Text & "," & TC.Checked.ToString()End If Next
绛旓細鍗曢夋鍙互鏍规嵁瀹冪殑Value灞炴у兼潵鍒ゆ柇锛沄alue = True 琛ㄧず琚変腑 Value = False 琛ㄧず鏈閫変腑 澶嶉夋鍙互鏍规嵁瀹冪殑Value灞炴у兼潵鍒ゆ柇锛沄alue = 1 琛ㄧず琚変腑 Value = 0 琛ㄧず鏈閫変腑
绛旓細1 To 4 Set c = WebBrowser1.Document.getElementById("answer" & i)If (c.Checked) Then asw(i - 1) = c.Value Else asw(i - 1) = ""End If Next i End Sub 杩欐柟娉曡鏄緢绗ㄧ殑,鍙竴鏃朵亢涔熸病鍏跺畠鎷.浠ヤ笂浠ｇ爜杩愯鏃跺皢鍥涗釜checkbox鐨刬d鏀逛负浜哸nswer1~4,鍚﹀垯鏃犳硶鍖哄垎鍝釜琚変腑....
绛旓細\'check1(0)鑷砪heck1(4)涓篶heckbox鏁扮粍,Private Sub Command1_Click()\'command1.caption=\"纭畾\"Text1.Text = \"\"For i = 0 To 4 If Check1(i).Value = Checked Then Text1.SelText = Check1(i).Caption & \"(\" & i & \")\" & \"琚変腑\" & vbCrLf Else Text1.Sel...
