在VB程序设计中,如何向toolbar工具栏中放置组合框

这个我在一个网页上看到的：

>

两种方式：

第一种：在设计时将ComboBox控件拉到窗体上

第二种：在运行时动态添加，参考代码如下：

dim xx as ComboBox

Set xx = MeControlsAdd("VBComboBox", "xx")

新建一个工程文件，在窗体上添加一下组合框控件（名称：Combo1），一个按钮（名称：Command1），为做测试，再添加一个文本框，把选择的课程名称放到文本框中。

1、把课程名称添加到组合框

使用组合框的AddItem方法

例如：Combo1AddItem ("数学")

如何要添加更多的课程名称，则用多条语句。

2、得到在组合框的选择的课程名称

用组合框的Text得到组合框的内容，用组合框的Click事件来得到当前选中的组合框中的内容。

3、程序代码如下：

把单击选择的组合框中的内容在文本框中显示出来：

Private Sub Combo1_Click()

Text1Text = Combo1Text

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

Combo1AddItem ("语文")

Combo1AddItem ("数学")

Combo1AddItem ("英语")

Combo1AddItem ("物理")

Combo1AddItem ("化学")

End Sub

按钮的作用只是用来结束程序。

Private Sub Combo1_Click()

Select Case Combo1Text

Case "1"

WindowsMediaPlayer1URL = "C:/1mp3"

Case "2"

WindowsMediaPlayer1URL = "C:/2mp3"

Case "3"

WindowsMediaPlayer1URL = "C:/3mp3"

Case "4"

WindowsMediaPlayer1URL = "C:/4mp3"

Case "5"

WindowsMediaPlayer1URL = "C:/5mp3"

End Sub

以上就是关于在VB程序设计中,如何向toolbar工具栏中放置组合框全部的内容，包括:在VB程序设计中,如何向toolbar工具栏中放置组合框、vb中组合框的用法、vb如何添加组合框等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！