动态填加listview控件,不管该控件有没有在工程中引用。

Dim WithEvents ListView1 As VBControlExtender
Private Sub Form_Load()
Licenses.Add "Comctl.ListViewctrl.1", "x"
Set ListView1 = Me.Controls.Add("Comctl.ListViewctrl.1", "listview1", Me)
ListView1.Visible = True
ListView1.Move 0, 0, 3000, 2000
End Sub

新创建的控件其事件脚本如何处理(以楼上创建出的ListView1)。
在VB编辑器上方左边控件列表中选取ListView1,右边事件列表中选取ObjectEvent,该事件中可处理动态创建控件的所有事件,其中Info为事件对象参数Info.Name为事件名称,而Info.EventParameters为事件参数集合对象。故事件脚本可实现如下:
Private Sub ListView1_ObjectEvent(Info As EventInfo)
    Select Case Info.Name
        Case "BeforeLabelEdit"
            If 你想取消LabelEdit then
               Info.EventParameters (1)=True  'Info.EventParameters (1)就是该事件的Cancel参数
            else
            end if
        Case "Click"
        Case "ItemClick"
    End Select
    Debug.Print Info.Name & "事件触发了"
End Sub

阅读更多
想对作者说点什么?

博主推荐

换一批

没有更多推荐了,返回首页