Kontrol Eklemek - Baskı Önizleme

Kontrol Eklemek - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Örnekleri ve Uygulamaları (https://accesstr.net/forum-excel-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Kontrol Eklemek (/konu-kontrol-eklemek.html)

Sayfalar: 1 2 3

Cvp: Kontrol Eklemek - accessman - 12/01/2020

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

Cvp: Kontrol Eklemek - accessman - 12/01/2020

Private Sub CommandButton1_Click()
Dim cCont As Control

Set cCont = Me.Controls.Add _
        ("Forms.CommandButton.1", "CopyOf")

    With cCont
        .Caption = "Thanks for creating me"
        .AutoSize = True
    End With

End Sub

Cvp: Kontrol Eklemek - ozanakkaya - 17/01/2020

Merhaba, bu yazdıklarınız örnek mi, soru mu?

Cvp: Kontrol Eklemek - accessman - 17/01/2020

Örnek kodlar
bazılarını anladım bazılarını anlamadım ama belki benden daha iyi anlayan birisi vardır diye ekledim

Cvp: Kontrol Eklemek - feraz - 17/01/2020

(12/01/2020, 08:25)accessman yazdı: Private Sub CommandButton1_Click()
Dim cCont As Control

Set cCont = Me.Controls.Add _
        ("Forms.CommandButton.1", "CopyOf")

    With cCont
        .Caption = "Thanks for creating me"
        .AutoSize = True
    End With

End Sub

CopyOf adında bir Button ekleniyor kod ile.
Ve görünür adıda Thanks for creating me

Cvp: Kontrol Eklemek - feraz - 17/01/2020

Gifteki gibi.