你是否向在类里面监控窗口的控件,并且书写本控件的某些事件处理? 如果这样,建议在类里面定义本控件的对象,然后在类初始化时,设置一下;定义是使用public withevent objObj as ListView
Private Sub Form_Load() lvwSystemSetting_LoadingEnd SubPrivate Sub lvwSystemSetting_Loading()
With lvwSystemSetting .View = lvwReport '把listview的显示方式改成详细资料(表格) .FullRowSelect = True '选择整行 .GridLines = True '显示表格线 Dim colHeader As ColumnHeader '添加表头控件 Set colHeader = .ColumnHeaders.Add() colHeader.Text = "行号" colHeader.Width = 1100 colHeader.Alignment = lvwColumnLeft End With End Sub
如果这样,建议在类里面定义本控件的对象,然后在类初始化时,设置一下;定义是使用public withevent objObj as ListView
Private Sub Form_Load()
lvwSystemSetting_LoadingEnd SubPrivate Sub lvwSystemSetting_Loading()
With lvwSystemSetting
.View = lvwReport '把listview的显示方式改成详细资料(表格)
.FullRowSelect = True '选择整行
.GridLines = True '显示表格线
Dim colHeader As ColumnHeader '添加表头控件
Set colHeader = .ColumnHeaders.Add()
colHeader.Text = "行号"
colHeader.Width = 1100
colHeader.Alignment = lvwColumnLeft
End With
End Sub