VB编程的简单问题请教大家
多个单选选项 选一个 然后按下按钮 其内容自动加入list 如此反复 要怎么编
参考答案:Private Sub Command1_Click()
Dim a As Object
For Each a In Me.Controls
If TypeOf a Is OptionButton Then
If a.Value Then List1.AddItem a.Caption: Exit Sub
End If
Next
End Sub
多个单选选项 选一个 然后按下按钮 其内容自动加入list 如此反复 要怎么编
参考答案:Private Sub Command1_Click()
Dim a As Object
For Each a In Me.Controls
If TypeOf a Is OptionButton Then
If a.Value Then List1.AddItem a.Caption: Exit Sub
End If
Next
End Sub