Các tool như đặt thiết bị, hoặc đặt phòng họp có thể sử dụng code này.
Thay vì tạo sẵn các label bằng tay trên userform, chúng ta sẽ tạo tự động label bằng code.
Code trên module
Code trên nút bấm trên UserForm
Thay vì tạo sẵn các label bằng tay trên userform, chúng ta sẽ tạo tự động label bằng code.
Code trên module
Mã:
Sub addLabel()
Dim theLabel As Object
Dim labelCounter As Long
For labelCounter = 1 To 3
Set theLabel = UserForm1.Controls.Add("Forms.Label.1", "Test" & labelCounter, True)
With theLabel
.Caption = "Test" & labelCounter
.Left = 10
.Width = 50
.Top = 10 * labelCounter
'Chúng ta có thể tùy ý thiết định các thuộc tính khác
End With
Next
End Sub
Mã:
Private Sub CommandButton1_Click()
Call addLabel
End Sub
Bạn cần đăng nhập để thấy hình ảnh