VB如何触发工具栏下拉菜单事件

Option Explicit

我们注重客户提出的每个要求，我们充分考虑每一个细节，我们积极的做好成都网站设计、网站建设服务，我们努力开拓更好的视野，通过不懈的努力，创新互联建站赢得了业内的良好声誉，这一切，也不断的激励着我们更好的服务客户。 主要业务：网站建设,网站制作,网站设计,小程序开发,网站开发,技术开发实力，DIV+CSS，PHP及ASP，ASP.Net，SQL数据库的技术开发工程师。

Private Sub Toolbar1_ButtonDropDown(ByVal Button As MSComctlLib.Button)

With Button

Select Case .Key

Case "打开"

If Int(Rnd * 2) = 1 Then

.ButtonMenus(1).Enabled = False

.ButtonMenus(2).Enabled = True

Else

.ButtonMenus(2).Enabled = False

.ButtonMenus(1).Enabled = True

End If

Case "保存"

End Select

End With

End Sub

'下拉菜单事件

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)

Select Case ButtonMenu.Key '也可以用Text

Case "A"

Print "A"

Case "B"

Print "B"

Case "C"

Print "C"

Case "D"

Print "D"

End Select

End Sub

vb.net中文本框怎么从下拉列表框中调用数据,相关联

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

If Text1.Text = "1" Then Combo1.Text = "增加"

If Text1.Text = "2" Then Combo1.Text = "修改"

If Text1.Text = "3" Then Combo1.Text = "删除"

End Sub

那同样可以关联，和这个思路反过来，只是事件不是KeyUp,而是combo的change过程

Private Sub Combo1_Change()

select case combo1.text

case "增加"

text1.text=1

case "修改"

text1.text=2

case "删除"

text1.text=3

case else

text1.text=""

end select

End Sub

VB下拉框事件

打开属性窗口,在LIST属性里输入各项,CTRL 回车换行. 代码一般看CLICK事件,CHANGE事件之类,自己往里写就可 以了.不知道你想干什么 在窗体的Form_Load(

分享名称：vb.net下拉改变事件的简单介绍
文章地址：http://scyanting.com/article/hpdcip.html