vb数组控件运用的问题,4个check,4个command如何对应操作的问题
vb数组控件运用的问题,如下:4个check(a),a=1to4,4个command(b),b=1to4,check(1).value=1时,运行command(1)_c...
vb数组控件运用的问题,如下:
4个check(a),a=1 to 4,
4个command(b),b=1 to 4,
check(1).value=1时,运行command(1)_click
.....
4个command(b)的运行顺序一定是从b小到b大,不能颠倒。
现在问:
check同时选中任意二个和同时选中任意三个时,
如何写command的运行代码,请务必详细指点,本人初学。
Private Sub Command1_Click(Index As Integer)If Text1.Text = "" ThenText1.Text = IndexElseText1.Text = Text1.Text & vbCrLf & IndexEnd IfEnd Sub
Private Sub Command2_Click()For Index = 0 To 4If Check1(Index).Value = 1 Then Command1_Click (Index)NextEnd Sub
qw623577789的答案使用中,出现溢出,我估计可能是因为控件不以调用自身,于是,用command2来调用该语句,实现了我想要的效果,特将效果呈上,供后来者学习。 展开
4个check(a),a=1 to 4,
4个command(b),b=1 to 4,
check(1).value=1时,运行command(1)_click
.....
4个command(b)的运行顺序一定是从b小到b大,不能颠倒。
现在问:
check同时选中任意二个和同时选中任意三个时,
如何写command的运行代码,请务必详细指点,本人初学。
Private Sub Command1_Click(Index As Integer)If Text1.Text = "" ThenText1.Text = IndexElseText1.Text = Text1.Text & vbCrLf & IndexEnd IfEnd Sub
Private Sub Command2_Click()For Index = 0 To 4If Check1(Index).Value = 1 Then Command1_Click (Index)NextEnd Sub
qw623577789的答案使用中,出现溢出,我估计可能是因为控件不以调用自身,于是,用command2来调用该语句,实现了我想要的效果,特将效果呈上,供后来者学习。 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询