Skip to main content

AccessTr.neT


Kontrol Eklemek

Kontrol Eklemek

#7
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

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
Task