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