vb中Form窗体有一个文本框,一个列表框,一个命令按钮,两个框架,框架内有娘个单选或复选按钮
当选好Form中的列表和文本选定好相关数据后,单击command按钮,在文本框中分行现实当前所选择的信息求这个程序怎么编写啊,我急啊!!!...
当选好Form中的列表和文本选定好相关数据后,单击command按钮,在文本框中分行现实当前所选择的信息
求这个程序怎么编写啊,我急啊!!! 展开
求这个程序怎么编写啊,我急啊!!! 展开
1个回答
展开全部
Private Sub Command1_Click()
Dim a(3) As String
If List1.ListIndex > 0 Then a(0) = List1.Text
If Option1.Value Then
a(1) = Option1.Caption
ElseIf Option2.Value Then
a(1) = Option2.Caption
End If
If Check1.Value = vbChecked Then a(2) = Check1.Caption
If Check2.Value = vbChecked Then a(3) = Check2.Caption
Text1.Text = ""
For i = 0 To 3
If a(i) <> "" Then Text1.Text = Text1.Text & a(i) & vbCrLf
Next
End Sub
Dim a(3) As String
If List1.ListIndex > 0 Then a(0) = List1.Text
If Option1.Value Then
a(1) = Option1.Caption
ElseIf Option2.Value Then
a(1) = Option2.Caption
End If
If Check1.Value = vbChecked Then a(2) = Check1.Caption
If Check2.Value = vbChecked Then a(3) = Check2.Caption
Text1.Text = ""
For i = 0 To 3
If a(i) <> "" Then Text1.Text = Text1.Text & a(i) & vbCrLf
Next
End Sub
追问
那个,我知道了。我弄好了。
谢谢!!!
来自:求助得到的回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询