以上两位的方法都不行呀?你们瞧: 我是这样创建的:
For j = 10 To Widt Step 10
If GridLamp = False Then
Unload "LineX" & (j)
===========================================
Else
Set LineGrid = frmShowPic.Controls.Add("VB.line", "LineX" & j, Picin)
Set lineG = LineGrid
lineG.X1 = j * Scalk
lineG.Y1 = 0
lineG.X2 = j * Scalk
lineG.Y2 = PicsideL(1).Height
lineG.BorderColor = &HFFC0C0
lineG.Visible = True
End If如何动态创建控件数组?
For j = 10 To Widt Step 10
If GridLamp = False Then
Unload "LineX" & (j)
===========================================
Else
Set LineGrid = frmShowPic.Controls.Add("VB.line", "LineX" & j, Picin)
Set lineG = LineGrid
lineG.X1 = j * Scalk
lineG.Y1 = 0
lineG.X2 = j * Scalk
lineG.Y2 = PicsideL(1).Height
lineG.BorderColor = &HFFC0C0
lineG.Visible = True
End If如何动态创建控件数组?
我是说怎样引用控件的名字,即我动态创建时的名字: "LineX" & j,
程序不让我如此引用.