作者ClubT (风)
看板Visual_Basic
标题[VB6 ] 如何删除自创物件
时间Fri Jun 15 08:29:03 2007
我的程式码
Option Explicit
Dim WithEvents objLbl As Label
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 5
Set objLbl = Controls.Add("VB.Label", "Lbl" + CStr(i))
With objLbl
.Move i * 220, i * 800, 520, 520
.Caption = objLbl.Name
.AutoSize = True
.Visible = True
End With
Next i
End Sub
想问一下怎样可以次删除Lbl1到Lbl5
或是把objLbl清空?
另外想问
objLbl应该不是物件吧
那应该是什麽
(应为这程式是在网路上看到的)
THANKS!!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.230.128.123
1F：→ ClubT:Controls.Remove ("Lbl" + CStr(i)) 每次都是问了才找到 06/15 08:51
2F：→ ClubT:然後用回圈跑就ok了 06/15 08:52