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://www.yijiale78.com/article8/hpdcip.html

成都網站建設公司_創新互聯，為您提供ChatGPT、做網站、搜索引擎優化、網站改版、營銷型網站建設、App開發

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯