Private Sub CommandButton1_Click()
Dim cCont As Control
Dim strControl As String
If ComboBox1.ListIndex > -1 Then
strControl = "Forms." & ComboBox1 & ".1"
End If
Set cCont = Me.Controls.Add _
(strControl, "CopyOf")
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "CheckBox"
.AddItem "CommandButton"
.AddItem "TextBox"
.AddItem "ToggleButton"
End With
End Sub
Kontrol Eklemek
Bu Konudaki Yorumlar |
Kontrol Eklemek - Yazar: accessman - 12/01/2020, 08:03
Cvp: Kontrol Eklemek - Yazar: accessman - 12/01/2020, 08:06
Cvp: Kontrol Eklemek - Yazar: accessman - 12/01/2020, 08:12
Cvp: Kontrol Eklemek - Yazar: accessman - 12/01/2020, 08:17
Cvp: Kontrol Eklemek - Yazar: accessman - 12/01/2020, 08:19
Cvp: Kontrol Eklemek - Yazar: accessman - 12/01/2020, 08:20
Cvp: Kontrol Eklemek - Yazar: accessman - 12/01/2020, 08:23
Cvp: Kontrol Eklemek - Yazar: accessman - 12/01/2020, 08:25
Cvp: Kontrol Eklemek - Yazar: feraz - 17/01/2020, 22:20
Cvp: Kontrol Eklemek - Yazar: ozanakkaya - 17/01/2020, 15:27
Cvp: Kontrol Eklemek - Yazar: accessman - 17/01/2020, 15:35
Cvp: Kontrol Eklemek - Yazar: feraz - 17/01/2020, 22:25
Cvp: Kontrol Eklemek - Yazar: accessman - 18/01/2020, 12:08
|
Konuyu Okuyanlar: