請(qǐng)高手寫個(gè)模塊，實(shí)現(xiàn)單擊組合框自動(dòng)下拉

大懶貓68

高手能否寫個(gè)模塊，實(shí)現(xiàn)單擊組合框自動(dòng)下拉，假設(shè)組合框有很多個(gè)，我只會(huì)用下面的笨辦法實(shí)現(xiàn)，但我想要用模塊功能寫出來(lái)，我思考了一段時(shí)間,這模塊功能還不會(huì)實(shí)現(xiàn)，請(qǐng)高手指點(diǎn)幫忙

Private Sub 籍貫_GotFocus()
Me.籍貫.Dropdown
End Sub

Private Sub 性別_GotFocus()
Me.性別.Dropdown
End Sub

Private Sub 姓名_GotFocus()
Me.姓名.Dropdown
End Sub

changweiren

既來(lái)之則頂之

咱家是貓

tz-chf  全無(wú)必要，寫在屬性里太隱蔽，以后改起來(lái)不方便。
_______________________________
你說(shuō)的這個(gè)問題確實(shí)是很煩.但如果改為在窗體的打開事件上用代碼給組合框統(tǒng)一掛事件.這就解決了你說(shuō)的這個(gè)問題.

大懶貓68

真是人才輩出啊

andymark

用類實(shí)現(xiàn)的另一種方法：
http://www.mzhfr.cn/thread-107647-1-1.html

tmtony

也可用代碼 來(lái)批量設(shè)置GotFocus屬性

chuyuchun

頂一哈

大懶貓68

非常感謝,都是高手

yehf

看附件

tmtony

做個(gè)函數(shù)
里面 寫句代碼
activecontrol.dropdown

然后將所有下拉框 的gotfocus屬性設(shè)置 為這個(gè)函數(shù)