Question

vb窗体，左边为不定项复选框，单击“下一学科”可将选中的学科逐一在学科textbox中显示，即循环一一显示。

左边的复选框可选中，也可取消选中状态。

Answer 1

窗体控件

 

程序代码

 

Dim a(5) As String

Private Sub Check1_Click(Index As Integer)

aaa = Form1.Check1(Index).Caption

Text1.Text = Left(aaa, 2)

Text2.Text = Right(aaa, 2)

 

End Sub

Private Sub Command1_Click()

For i = 0 To 4

  If Form1.Check1(i).Value = 1 Then

    a(num) = Form1.Check1(i).Caption

    num = num + 1

  End If

Next i

 

For i = 0 To 4

    If Left(a(i), 2) = Text1.Text Then

               num_d = i + 1

               If num_d >= num Then num_d = 0

                    Text1.Text = Left(a(num_d), 2)

                    Text2.Text = Right(a(num_d), 2)

               Exit For

    End If

Next i

 

End Sub

 

你试试，我调试过应该可以

 

 

追问

谢谢回答！很不错！不过我设计本实例的目的是可以作为外接数据库的交互录入窗口，即text1来源于左边的check，text2由用户输入；另外，你的代码有一点儿BUG，如果运行正常后，减少1个check的选择，单击command1会失效。

Answer 2

看看这个可以吗？
不过复选按钮请采用控件组！

Option Explicit

Private Sub Check1_Click(Index As Integer)
Dim i As Integer
For i = 0 To Check1.UBound - 1
If Check1(i).Value = 1 Then
Text1.Text = Check1(i).Caption
Exit For
End If
Next i
End Sub

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim TF1 As Boolean
Dim TF2 As Boolean
TF1 = False
TF2 = False
For i = 0 To Check1.UBound
If Text1.Text = Check1(i).Caption Then
TF1 = True
Exit For
End If
Next i
If i < Check1.UBound Then
For j = i + 1 To Check1.UBound
If Check1(j).Value = 1 Then
TF2 = True
Text1.Text = Check1(j).Caption
Exit For
End If
Next j
End If
If TF1 And Not TF2 Then
For i = 0 To Check1.UBound
If Check1(i).Value = 1 Then
Text1.Text = Check1(i).Caption
Exit For
End If
Next i
End If
End Sub

Answer 3

'我还是需要先随意提交一下回答,如果发不出代码就私信给你,觉得满意就请采纳
'复选框的控件名称使用默认值
Private Sub Command1_Click()
Static i%
i = i + 1
If i > 5 Then i = 1
Controls("Check" & i).Value = 1
If i > 1 Then Controls("Check" & i - 1).Value = 0
If i < 5 Then Controls("Check" & 5).Value = 0
Text1.Text = Controls("Check" & i).Caption
End Sub

追问

谢谢回答！要求没有完全满足。注意要求：1。学科的选择是不定的，如可选3科也可能选4科；2。显示方式是一一循环出现在学科旁的文字框内。举例：这次我选的是语文、英语、化学，右边的学科文字框中显示“语文”，单击“下一学科”，就显示为“英语”，再单击，显示“化学”，再单击，又显示“语文”；如重新选择左边的复选框，则发生相应的变化。期待您的完善。如果私信，请598804123@QQ.com。谢谢！

追答

http://zhidao.baidu.com/question/497406425.html
在你这个问题里提交回答失败^_^已经给你百度私信,邮箱也已经私信与你
如果觉得简练且符合要求就请采纳

追问

非常优秀！谢谢！贴出与大家共享
Private Sub Command1_Click()
Static m%, n%, s() As String
Dim Ctl As Control
For Each Ctl In Me.Controls
If TypeName(Ctl) = "CheckBox" Then
If Ctl.Value = 1 Then
m = m + 1
ReDim Preserve s(m)
s(m) = Right(Ctl.Name, 1)
End If
End If
Next
Text1.Text = Controls("Check" & s(m - n)).Caption
n = n + 1
If n = m Then n = 0
m = 0
End Sub

追答

我彻底崩溃...为神马,你能贴出来,我就贴不出来?我BUG了,谢谢你的公布,了结了,懒得去想这无聊的原因,以前只是回答追问的部分被吞,现在是整个回答都因局部溃烂导致全身瘫痪,简直是操蛋

Answer 4

check控件数组