如何读取 listbox 双击项的数据

124029892

如何读取 listbox 双击项的数据 ，实在是没办法不知道咋搞了，我把数据写进了列表框，我想双击列表框的数据读取出来写入 另外一个表里面的光标所在单元格的下面一行，实在不知道怎么下手，求高手指点，可小小意思。

剑指E

tmplinshi

使用 ListBox1_DblClick 事件。ListBox1.ListIndex 是选中行的序号，ListBox1.List 是二维数组。

124029892

tmplinshi 发表于 2023-1-5 03:44
使用 ListBox1_DblClick 事件。ListBox1.ListIndex 是选中行的序号，ListBox1.List 是二维数组。

感谢大神出手，还有一点小问题，能不能让列表框里面的数据在我指定的光标位置显示，不是从首列显示，显示的长度的代码也请指点一下，列表框里面的数据是否能加边框线？谢谢指教

124029892

剑指E 发表于 2023-1-5 01:04

感谢大神指点

124029892

剑指E 发表于 2023-1-5 01:04

能不能让列表框里面的数据在我指定的光标位置显示，不是从首列显示，显示的长度的代码也请指点一下，列表框里面的数据是否能加边框线？谢谢指教

leirongqin

With ListBox1
        .Visible = True '列表框可见
        .Top = Target.Offset(0, 1).Top'列表框顶部位置
        .Left = Target.Offset(0, 1).Left'列表框左侧位置
        .Height = Target.Height * 5'列表框高度
        .Width = Target.Width'列表框宽度
        .List = arr '写入数据源数据
    End With

tmplinshi

能不能让列表框里面的数据在我指定的光标位置显示，不是从首列显示

去掉 .EntireRow 试试
r.EntireRow.Resize(, UBound(一维数组)) = 一维数组

ListBox 不能设置边框线，可以用 ListView 控件

124029892

tmplinshi 发表于 2023-1-5 17:43
去掉 .EntireRow 试试
r.EntireRow.Resize(, UBound(一维数组)) = 一维数组

  感谢大神。能否加个联系方式，以后不懂的想请教。

tmplinshi

124029892 发表于 2023-1-7 08:43
感谢大神。能否加个联系方式，以后不懂的想请教。

抱歉，我没有时间，即便是付费的。