新建一个工程文件,在窗体上添加一下组合框控件(名称:Combo1),一个按钮(名称:Command1),为做测试,再添加一个文本框,把选择的课程名称放到文本框中。
1、把课程名称添加到组合框
使用组合框的AddItem方法
例如:Combo1.AddItem ("数学")
如何要添加更多的课程名称,则用多条语句。
2、得到在组合框的选择的课程名称
用组合框的Text得到组合框的内容,用组合框的Click事件来得到当前选中的组合框中的内容。
3、程序代码如下:
把单击选择的组合框中的内容在文本框中显示出来:
Private Sub Combo1_Click()
Text1.Text = Combo1.Text
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Combo1.AddItem ("语文")
Combo1.AddItem ("数学")
Combo1.AddItem ("英语")
Combo1.AddItem ("物理")
Combo1.AddItem ("化学")
End Sub
按钮的作用只是用来结束程序。
温馨提示:答案为网友推荐,仅供参考