Buton ile textbox label ekleme

[Amaxx]

arkadaşlar buton ile textbox label ekleme kodu nasıl yazılır acaba? örnek dosyam ekteki gibi....

 

[veyselemre]

Fazla uğraşmadan bu şekilde yazılabilir.

Private Sub CommandButton1_Click()
    Set ekle = Me.Controls.Add("forms.label.1")
    With ekle
        .Top = 84 + Val(Me.Tag) * 18
        .Left = Me.Label407.Left
        .Width = Me.Label407.Width
        .Height = Me.Label407.Height
        .Font.Size = Me.Label407.Font.Size
        .TextAlign = fmTextAlignLeft
        .Caption = Val(Me.Tag) + 1 & " nolu oda"
    End With
    Set ekle = Me.Controls.Add("forms.label.1")
    With ekle
        .Top = 84 + Val(Me.Tag) * 18
        .Left = Me.Label380.Left
        .Width = Me.Label380.Width
        .Height = Me.Label380.Height
        .Font.Size = Me.Label380.Font.Size
        .TextAlign = fmTextAlignLeft
        .Caption = "mm"
    End With
    Set ekle = Me.Controls.Add("forms.textbox.1")
    With ekle
        .Top = 78 + Val(Me.Tag) * 18
        .Left = Me.T1en.Left
        .Width = Me.T1en.Width
        .Height = Me.T1en.Height
        .Font.Size = Me.T1en.Font.Size
    End With
    Set ekle = Me.Controls.Add("forms.textbox.1")
    With ekle
        .Top = 78 + Val(Me.Tag) * 18
        .Left = Me.T1boy.Left
        .Width = Me.T1boy.Width
        .Height = Me.T1boy.Height
        .Font.Size = Me.T1boy.Font.Size
    End With
    Set ekle = Me.Controls.Add("forms.textbox.1")
    With ekle
        .Top = 78 + Val(Me.Tag) * 18
        .Left = Me.TextBox3.Left
        .Width = Me.TextBox3.Width
        .Height = Me.TextBox3.Height
        .Font.Size = Me.TextBox3.Font.Size
        .SpecialEffect = 3
    End With
    Me.Tag = Me.Tag + 1
Set ekle = Nothing
End Sub
Private Sub UserForm_Initialize()
    Me.Tag = 4
End Sub

 

[Amaxx]

veysel bey çok güzel olmuş, teşekkürler elinize sağlık

bir de ben formu gördüğünüz üzere bu textboxtaki değerleri çarpıp alanları yazdırmak istiyorum.

Private Sub T1boy_Change()
TextBox1.Value = Val(T1en) * Val(T1boy)
TextBox2.Value = Val(T2en) * Val(T2boy)
TextBox3.Value = Val(T3en) * Val(T3boy)
TextBox4.Value = Val(T4en) * Val(T4boy)
End Sub

ben bu kodu her textbox için yapıyorum ama eklenecek textboxlar için nasıl yazmam gerekir?

 

[veyselemre]

Örneği geliştirebilirsiniz.

 

[Amaxx]

çok teşekkürler. süper olmuş... hem de bilmediğim yeni şeyler var içinde inşallah örencez

 

[berkay18]

Dosya silinmiş olduğu için indirip inceleme şansım yok
bu yüzden hatanın nereden kaynaklanabileceğini bulamadım,
yukarıdaki kodu uygulamaya çalıştığım zaman Me.Label yazılarının tamamına method or data member bulunamadı yazıyor.
Kod ile textbox ve label ekleme konusunda ikinci bir yardım istiyorum...