作者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
→ ClubT:Controls.Remove ("Lbl" + CStr(i)) 每次都是問了才找到 06/15 08:51
→ ClubT:然後用迴圈跑就ok了 06/15 08:52