VB如何觸發(fā)工具欄下拉菜單事件

Option Explicit

我們注重客戶提出的每個(gè)要求，我們充分考慮每一個(gè)細(xì)節(jié)，我們積極的做好成都網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)服務(wù)，我們努力開拓更好的視野，通過(guò)不懈的努力，創(chuàng)新互聯(lián)建站贏得了業(yè)內(nèi)的良好聲譽(yù)，這一切，也不斷的激勵(lì)著我們更好的服務(wù)客戶。 主要業(yè)務(wù)：網(wǎng)站建設(shè),網(wǎng)站制作,網(wǎng)站設(shè)計(jì),小程序開發(fā),網(wǎng)站開發(fā),技術(shù)開發(fā)實(shí)力，DIV+CSS，PHP及ASP，ASP.Net，SQL數(shù)據(jù)庫(kù)的技術(shù)開發(fā)工程師。

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中文本框怎么從下拉列表框中調(diào)用數(shù)據(jù),相關(guān)聯(lián)

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

那同樣可以關(guān)聯(lián)，和這個(gè)思路反過(guò)來(lái)，只是事件不是KeyUp,而是combo的change過(guò)程

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屬性里輸入各項(xiàng),CTRL 回車換行. 代碼一般看CLICK事件,CHANGE事件之類,自己往里寫就可 以了.不知道你想干什么 在窗體的Form_Load(

網(wǎng)站題目：vb.net下拉改變事件的簡(jiǎn)單介紹
路徑分享：http://jinyejixie.com/article8/hpdcip.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供ChatGPT、做網(wǎng)站、搜索引擎優(yōu)化、網(wǎng)站改版、營(yíng)銷型網(wǎng)站建設(shè)、App開發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)