VB给动态建立的控件数组添加事件问题

fsk33 2020-04-21 08:57:10
根据LISTVIEW里的数据数量(行数n),动态创建了相应的n个LABEL2控件数组(1-n),控件数组LABEL2(0)是手工创建的,其它LABEL(1-n)是用LOAD方法动态生成。
现在我想点击LABEL数组中一个控件时,比如点LABEL(n),则LISTVIEW相对应的第n个记录处于选中状态,我用SELECT CASE INDEX的方法是失败的,因为每次都不确定到底有多少行,不可能一直CASE到n行吧。
求大神给个方法或思路。
谢谢
Private Sub Label2_Click(Index As Integer)
VScroll1.SetFocus
Select Case Index
'Case 1
ListView1.ListItems(1).Selected = True
‘太多了,咋办?
End Select
End Sub
...全文
156 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
fsk33 2020-04-22
  • 打赏
  • 举报
回复
引用 2 楼 fsk33 的回复:
[quote=引用 1 楼 milaoshu1020 的回复:]

Private Sub Label2_Click(Index As Integer)
    VScroll1.SetFocus
    ListView1.ListItems(Index).Selected = True
End Sub
不得行啊[/quote]可以的,谢谢
fsk33 2020-04-21
  • 打赏
  • 举报
回复
引用 1 楼 milaoshu1020 的回复:

Private Sub Label2_Click(Index As Integer)
    VScroll1.SetFocus
    ListView1.ListItems(Index).Selected = True
End Sub
不得行啊
milaoshu1020 2020-04-21
  • 打赏
  • 举报
回复

Private Sub Label2_Click(Index As Integer)
    VScroll1.SetFocus
    ListView1.ListItems(Index).Selected = True
End Sub
01 , 01.txt 《 VB6.0中通过MSChart控件调用数据库 》 02 , 02.txt 《 用VB6实现动态增减控件 》 03 , 03.txt ActiveX控件的创建 04 , 04.txt ADO控件和DATA控件的冲突(不能共存)的解决方法 05 , 05.txt Combo的自动查询技术 06 , 06.txt DirectX7.0使用心得(1) 07 , 07.txt DirectX7.0使用心得(2) 08 , 08.txt DirectX7.0使用心得(3) 09 , 09.txt FSO对象模型在VB中的应用 10 , 10.txt MsComm 控件的文字传输范例 11 , 11.txt Office或IE4风格的ToolBar 12 , 12.txt Regsvr32.exe注册控件的具体用法 13 , 13.txt TextBox的自动调节 14 , 14.txt TextBox实现打印机效果 15 , 15.txt TreeView的基本操作 16 , 16.txt VB5中DBGRID控件VB6中使用 17 , 17.txt VB6.0动态加载ActiveX控件漫谈 18 , 18.txt VB与MS-Draw开发通用作图软件 19 , 19.txt VB中APP对象及其应用 20 , 20.txt VB中list控件的功能扩充 21 , 21.txt VB中防止将重复项目添加到列表框控件中 22 , 22.txt VB中用Multimedia MCI控件开发多媒体应用 23 , 23.txt Win Api在VB中的妙用 24 , 24.txt WINDOWS SCRIPT HOST对象在VB中的使用 25 , 25.txt 安装向导生成程序组并建立多个程序项 26 , 26.txt 保存复选框选项 27 , 27.txt 不用OCX来创建自己的控件(一) 28 , 28.txt 成组更新控件属性 29 , 29.txt 创建数据驱动窗体 30 , 30.txt 得到鼠标位置 31 , 31.txt 调整 Combo 下拉部分的宽度 32 , 32.txt 动态加入控件VB控件数组中 33 , 33.txt 对ListView中的列排序 34 , 34.txt 放一个Combo到Toolbar中 35 , 35.txt 改变 ListIndex而不发生 Click 事

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧