在一个form中自动检测另一个form中ListView1的条目数,并以条目数量自动生成text1的个数,我使用了下面的代码:
Private Sub Form_Load()
For i = 1 To Val(FormMain.ListView1.ListItems.Count)
Load Text1(i)
Text1(i).Visible = True
Text1(i).Width = 1000
Text1(i).Left = ((i - 1) Mod 10) * 1000
Text1(i).Top = ((i - 1) \ 10) * 500
Next
End Sub
而现在我要做的是要实现两个功能:
第一:要在每个数组Text1(i)中对应的自动获得FormMain.ListView1中每一行的第三列的数据,就是text上的数据和ListView1的数据一对一的显示;
第二:双击每一个text分别弹出提示对话框显示各自text中的内容。
请问该如何将代码继续呢?请大哥大姐帮忙!
Private Sub Form_Load()
For i = 1 To Val(FormMain.ListView1.ListItems.Count)
Load Text1(i)
Text1(i).Visible = True
Text1(i).Width = 1000
Text1(i).Left = ((i - 1) Mod 10) * 1000
Text1(i).Top = ((i - 1) \ 10) * 500
Next
End Sub
而现在我要做的是要实现两个功能:
第一:要在每个数组Text1(i)中对应的自动获得FormMain.ListView1中每一行的第三列的数据,就是text上的数据和ListView1的数据一对一的显示;
第二:双击每一个text分别弹出提示对话框显示各自text中的内容。
请问该如何将代码继续呢?请大哥大姐帮忙!