请教VB的select case 和复选框数组控件的问题 Select Case来判断的应该是点击的Check的序号index,而不是Check(index)你写成了Check(Index),所以程序会默认使用Check(index)的Value来进行判断,Value值只有0和1两种情况,所以,只会执行Case 0 或者 Case 1。把Select Case Check(Index)改成Select Case Index应该就可以了。
请教VB的select case 和复选框数组控件的问题 Select Case来判断的应该是点击的Check的序号index,而不是Check(index)你写成了Check(Index),所以程序会默认使用Check(index)的Value来进行判断,Value值只有0和1两种情况。
VB6.0中 怎样在窗体中添加一个复选框数组(含N个复选框) controls.add方法可以你也可以设置成控件数组,比如 先加个 chk,index属性设为0然后程序里你可以 load chk(1),load chk(n)
vb中如何画一个复选框数组,内含三个复选框? 放一个复选框在窗体上,在放上的复选框上点右键,然后粘贴,就提示是否创建控件数组
vb求助 复选框数组控制标签颜色 I Have Done,如你所愿,控件就是那些Private Sub Check1_Click(Index As Integer)If Check1(Index).Value ThenFrame1.Caption=Check1(Index).CaptionEnd IfEnd SubPrivate Sub Check2_Click(Index As Integer)If Check2(Index).Value ThenFrame2.Caption=Check2(Index).CaptionEnd IfEnd SubPrivate Sub Check3_Click(Index As Integer)If Check3(Index).Value ThenFrame3.Caption=Check3(Index).CaptionEnd IfEnd SubPrivate Sub Command1_Click()Label1.BackColor=RGB(Val(Frame1.Caption),Val(Frame2.Caption),Val(Frame3.Caption))End SubPrivate Sub Form_Load()For i=0 To 7Check1(i).Caption=2^iCheck2(i).Caption=2^iCheck3(i).Caption=2^iNext iEnd Sub
请教:VB中复选框数组的问题 Private Sub xiangmu_Click(Index As Integer)If xiangmu(Index).Value=Checked Thenxiangmu(Index).Caption=\"好GoTo jieshuElseIf xiangmu(Index).Value=Unchecked Thenxiangmu(Index).Caption=\"End Ifjieshu:End Sub
vb复选框加空控件数组 提问不明确,右键复制,粘贴,就形成了控件数组,循环判断每个复选框的属性,找到所有选中的复选框,找到一个打印一个。