看板 Visual_Basic 關於我們 聯絡資訊
我的程式碼 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