请教关于复合框控件鼠标点到空白处触发事件的问题

心的启点 · 发表于 2023-3-23 16:39

问题如下：我做了一个复合框，就是想在鼠标点到复合框空白处时就触发事件。先用Private Sub ComboBox4_Change()事件，必须要在复合框内输入值时才会触发事件，请教各位大神该如何写代码？详见附件

工作簿1.rar (14.74 KB, 下载次数: 3)

心的启点 · 发表于 2023-3-23 17:02

自己顶一下别这么快沉下去了！

tanglf188 · 发表于 2023-3-23 17:03

用鼠标弹起事件

Private Sub ComboBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

End Sub

心的启点 · 发表于 2023-3-23 17:06

tanglf188 发表于 2023-3-23 17:03
用鼠标弹起事件

Private Sub ComboBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByV ...

好，我试试回复

心的启点 · 发表于 2023-3-23 17:24

tanglf188 发表于 2023-3-23 17:03
用鼠标弹起事件

Private Sub ComboBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByV ...

但是又有一个问题，下拉框是加载进来了，但选择下拉框里的数值选择不上啊，怎么解决呢？

tanglf188 · 发表于 2023-3-23 17:33

本帖最后由 tanglf188 于 2023-3-23 18:35 编辑

一般的都在窗体初始化的时候加载啊

Private Sub UserForm_Initialize()
Dim d, ar, x, a
Set d = CreateObject("Scripting.Dictionary")
a = Sheet1.Cells(Rows.Count, "A").End(3).Row
If a < 3 Then Exit Sub
ar = Sheet1.Range("A2:A" & a)
For x = 1 To UBound(ar)
d(ar(x, 1)) = ""
Next
ComboBox1.List = d.keys
End Sub

心的启点 · 发表于 2023-3-23 17:38

tanglf188 发表于 2023-3-23 17:33
一般的都在窗体初始化的时候加载啊
Private Sub UserForm_Initialize()

哦，好的我只有初始时加载算了

		自动登录	找回密码
密码			免费注册

[求助] 请教关于复合框控件鼠标点到空白处触发事件的问题

评分