VB里能够动态地生成ListView控件吗?

来源：百度知道 编辑：UC知道 时间：2024/05/26 18:45:34
如Frame控件可以这样生成:
Set fraObj = paFrm.Controls.Add("VB.Frame", paName)
With fraObj
.Left = paLeft
.Visible = True
.Width = paWidth
.Top = paTop
.Caption = paCap
.Height = paHeight
End With
VB里能够动态地生成ListView控件吗?我想在窗体运行时在LOAD事件里产生ListView控件,而在设计界面时不必在工具箱里把它拖到窗体上.
如果我这样:
Set lstObj
= paFrm.Controls.Add("VB.ListView", "lstObj")
做的话会出现这样的错误:
实时错误 '711'
无效的类串
查找带 ProgID: VB.ListView的对象

可以生成，但是你要指定他的父控件是那个，
比如
.parent= fraObj

可以
下面的是treeview的一段，希望对你有帮助
Public Sub loadtree()
Dim Item As Integer
Me.TreeView1(0).Left = 30
Me.TreeView1(0).Top = -1530
TxtSQL = "select traysum from traysum where fmonth='" & Format(Date, "yyyymm") & "'"
Set mrc = ExecuteSQL(TxtSQL, MSGTEXT)
Traysum = mrc.Fields("traysum")
mrc.Close
Dim Index As Integer
Me.WindowState = 2
Dim i As Integer
For i = 1 To TreeView1.Count - 1
Cls
TreeView1(treeindex).Nodes.Clear
TreeView1(0).Visible = False
Unload TreeView1(i)
Next
If Traysum = 0 Then '如果输入为0
If TreeView1.Count = 1 Then '检查现在窗体上有几个复选框控件
Exit Sub '如果没有，退出过程
Else
For i = 1 To TreeView1.UBound '如果现