VB编程问题,关于多个复选框checkbox的判断问题 vb编程复选框输入到标签栏的问题
VB\u4e2d\u7684\u590d\u9009\u6846\u5982\u4f55\u7f16\u7a0b\uff1fCheckBox \u63a7\u4ef6
\u7ec4\u4e2d\u53ef\u4ee5\u4f7f\u7528 CheckBox \u63a7\u4ef6\u663e\u793a\u591a\u9879\u9009\u62e9\uff0c\u4ece\u800c\u53ef\u9009\u62e9\u5176\u4e2d\u7684\u4e00\u9879\u6216\u591a\u9879\u3002\u4e5f\u53ef\u4ee5\u901a\u8fc7\u5bf9 Value \u5c5e\u6027\u7f16\u7a0b\u8bbe\u7f6e CheckBox \u7684\u503c\u3002
\u5728\u4e00\u4e2a\u7a97\u4f53\u4e2d\u53ef\u4ee5\u540c\u65f6\u9009\u62e9\u4efb\u610f\u6570\u91cf\u7684 CheckBox \u63a7\u4ef6\u3002
\u4ee5\u4e0b\u4ee3\u7801\u4f1a\u544a\u8bc9CheckBox \u63a7\u4ef6\u5355\u9009\u6216\u591a\u9009\u7684\u72b6\u6001
Option ExplicitPrivate Sub Check1_Click() Debug.Print Check1.Value; Check2.Value; Check3.ValueEnd SubPrivate Sub Check2_Click() Debug.Print Check1.Value; Check2.Value; Check3.ValueEnd SubPrivate Sub Check3_Click() Debug.Print Check1.Value; Check2.Value; Check3.ValueEnd Sub
\u6bd4\u5982\u4f60\u4e00\u5171\u67098\u4e2a\u590d\u9009\u6846
\u90a3\u628a\u8fd98\u4e2a\u590d\u9009\u6846\u505a\u6210\u4e00\u4e2a\u63a7\u4ef6\u6570\u7ec4
\u539f\u6765\u6ca1\u505a\u6210\u6570\u7ec4\u524d\u7684\u547d\u540d\u6bd4\u5982\u662f Check1 Check2 Check3 .....
\u505a\u6210\u63a7\u4ef6\u6570\u7ec4\u540e \u5c31\u662f Check1(1) Check1(2) Check1(3) ....
\u7136\u540e \u5728\u52a0\u5165\u4e0b\u9762\u7684\u4ee3\u7801 \u5373\u53ef\u5b9e\u73b0\u4f60\u7684\u8981\u6c42
Private Sub Check1_Click(Index As Integer)
Label1.Caption = IIf(Check1(Index).Value, Label1.Caption & Check1(Index).Caption, Mid(Label1.Caption, 1, IIf(InStr(1, Label1.Caption, Check1(Index).Caption, vbTextCompare), InStr(1, Label1.Caption, Check1(Index).Caption, vbTextCompare) - 1, 0)) & Right(Label1.Caption, Len(Label1.Caption) - InStr(1, Label1.Caption, Check1(Index).Caption, vbTextCompare) - Len(Check1(Index).Caption) + 1))
End Sub
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 = 200
For i = 1 To 7
Load Check1(i)
Check1(i).Visible = True
Check1(i).Left = Check1(i - 1).Left + 300
Next
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
For i = 1 To Check1.UBound
Unload Check1(i)
Next
End Sub
建一个checkbox的控件数组（设name=check1)
在 form1_load里面设置 text1.text=string(ubound(check1)+1,"0")，或者在text1属性里面设置text="0000000000000000" (0的个数等于checkbox的个数)
private sub check1_click(index as integer)
mid(text1.text,index+1,1)=str(check1.value)
end sub
看附件吧 1000千个 都没问题 代码很简单
绛旓細浣跨敤鎺т欢鏁扮粍 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(...
绛旓細1銆佹墦寮VB杞欢锛屽湪绐椾綋涓婇潰娣诲姞涓涓枃鏈銆2銆佺偣鍑绘枃鏈妗嗭紝鍦ㄥ彸渚х殑灞炴х獥鍙ｄ腑锛岃缃悕绉板拰鏁板硷紝灏嗘枃鏈唴瀹规竻绌恒3銆佸湪绐椾綋涓婇潰锛屽啀娣诲姞涓涓按骞虫粴鍔ㄦ潯銆4銆佺偣鍑绘按骞虫粴鍔ㄦ潯锛岃缃悕绉板拰鏁板硷紝灏哅in璁剧疆涓0,Max璁剧疆涓100銆傦紙鏂囨湰妗嗕腑鐨勮緭鍏ョ殑鏁拌寖鍥翠负0-100锛夈傚皢largechange璁剧疆涓5锛孲mallchange璁剧疆涓...
绛旓細寤轰竴涓狢heck1,璁剧疆鍏禝ndex涓0銆傚啀寤轰竴涓狶abel1銆備笉闇瑕佸仛鍏朵粬浠讳綍璁剧疆銆備唬鐮佸涓嬨傦紳锛濓紳 Dim s As Integer Private Sub Check1_Click(Index As Integer)s = IIf(Check1(Index).Value, Check1(Index).Caption + s, s - Check1(Index).Caption)Label1.Caption = s End Sub Private Sub For...
绛旓細1锛屾坊鍔犱竴涓閫夋.2锛岀獥浣撲笂閫変腑璇澶嶉夋锛鍗曞嚮[澶嶅埗]锛屽湪绐椾綋涓婁换鎰忎綅缃崟鍑伙紝鍗曞嚮[绮樿创]锛屽洖绛斺滄槸鈥濓紝缁х画绮樿创2涓傝繖4涓閫夋鍚嶅垎鍒负锛欳heck1(0)銆丆heck1锛1锛夈丆heck1锛2锛夈丆heck1锛3锛夈備唬鐮佸涓嬶細Private Sub Check1_Click(Index As Integer)Dim i As Integer Label1.Caption =...
绛旓細娣诲姞澶嶉夋銆
绛旓細浣跨敤鈥滃鍒/绮樿创鈥澶嶉夋瀵硅薄灏卞彲浠ヤ簡銆傚厛鍦ㄧ獥浣撲腑鎻掑叆涓涓閫夋瀵硅薄锛岀揣鎺ョ潃CTRL+C澶鍒讹紝鐒跺悗CTRL+V绮樿创锛屸滃凡鏈変竴涓帶浠朵负'Check1'锛屽垱寤轰竴涓帶浠舵暟缁勫悧锛熲滐紝瑕佸洖绛斺滄槸鈥濄傚鏋滈渶瑕澶氫釜锛灏辩户缁瑿TRL+V锛岀洿鍒板鏁颁负姝
绛旓細CheckBox 鎺т欢 缁勪腑鍙互浣跨敤 CheckBox 鎺т欢鏄剧ず澶氶」閫夋嫨锛屼粠鑰屽彲閫夋嫨鍏朵腑鐨勪竴椤规垨澶氶」銆備篃鍙互閫氳繃瀵 Value 灞炴缂栫▼璁剧疆 CheckBox 鐨勫笺傚湪涓涓獥浣撲腑鍙互鍚屾椂閫夋嫨浠绘剰鏁伴噺鐨 CheckBox 鎺т欢銆備互涓嬩唬鐮佷細鍛婅瘔CheckBox 鎺т欢鍗曢夋垨澶氶夌殑鐘舵 Option ExplicitPrivate Sub Check1_Click() Debug.Print Check1....
绛旓細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.SelText = Check1(i).Caption & \"(\" ...
绛旓細浣犲缓绔嬬殑3涓澶嶉夋鍜3涓猼ext閮藉缓绔嬫垚鏁扮粍鎺т欢.鎵嶅鏄撳鐞/ Private Sub Check1_Click(Index As Integer) For i = 0 To 2 If Check1(i).Value = 1 Then a = a + 1 If a = 2 Then For x = 0 To 2 If Check1(x).Value <> 1 Then Check1(x).Enabled =...
绛旓細Private Sub Command1_Click()If Option1.Value = True Then MsgBox "浣犻夋嫨浜澶嶉夋" 鈥樺鏋淥ption1琚変腑锛屽垯寮瑰嚭娑堟伅妗 If Check1.Value = 1 Then MsgBox "浣犻夋嫨浜嗗閫夋" ...
