listbox显示的数据可以双击弹窗吗？

rockeryoung

请问各位前辈，listbox筛选出来的数据，可以直接做双击事件吗？想做成双击事件然后弹窗显示这一行的数据。
窗体我已经编辑好了，就是可以自动提取这一行对应数据到相应的Textbox中。
先谢谢各位老师了，帮忙看一下吧！

海好呀

把这个代码加进去，仅作参考：
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
弹窗显示.Show
          弹窗显示.TextBox1.Value = 查询.ListBox1.Column(1)
          弹窗显示.TextBox2.Value = 查询.ListBox1.Column(2)
          弹窗显示.TextBox3.Value = 查询.ListBox1.Column(3)
          弹窗显示.TextBox4.Value = 查询.ListBox1.Column(4)
          弹窗显示.TextBox5.Value = 查询.ListBox1.Column(5)
End Sub

microyip

ListBox1_DblClick就是检测双击的

rockeryoung

海好呀 发表于 2020-1-18 09:27
把这个代码加进去，仅作参考：
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolea ...

多谢关注，弹窗可以实现，但是值抓取不进来。
而且如果筛选结果是多行的话，双击某一行数据如何实现提取呢？

rockeryoung

microyip 发表于 2020-1-18 09:58
ListBox1_DblClick就是检测双击的

感谢领导关注，不是很明白，Dblclick之后的提取数据代码应该怎么写呢？

microyip

rockeryoung 发表于 2020-1-18 10:08
感谢领导关注，不是很明白，Dblclick之后的提取数据代码应该怎么写呢？

设定个公用参数，就可以传递过去啦

rockeryoung

microyip 发表于 2020-1-18 10:09
设定个公用参数，就可以传递过去啦

好，我来研究研究，感谢领导

海好呀

rockeryoung 发表于 2020-1-18 10:12
好，我来研究研究，感谢领导

这个再试试吧

rockeryoung

海好呀 发表于 2020-1-18 10:45
这个再试试吧

先谢谢您，
可以实现功能，但是还是有2个问题：
1、多行数据时双击任意行显示的都是第一行的值。
2、关掉弹窗后再次双击就是空白了；
我在尝试着修改代码。

海好呀

rockeryoung 发表于 2020-1-18 10:57
先谢谢您，
可以实现功能，但是还是有2个问题：
1、多行数据时双击任意行显示的都是第一行的值。

这个应该可以了