Multipage NewTextBox

[bozacioglu]

Kolay Gelsin İyi Çalışmalar. Öğrenci_İşleri isimli Userformumda bulunan Multipage1 deki 1.ETÜT isimli sayfama kod dizilimi ile textbox eklemek istiyorum. Set olayını nasıl başlatmalıyım. Yardımcı olabilir misiniz. Teşekkür ederim.
Set NewTextBox = Öğrenci_Etütİşleri.MultiPage1.Pages("1. ETÜT").Controls.Add ("Forms.MultiPage1.Pages.TextBox.1")
With NewTextBox

.Top = t
.Height = 20

End with

 

[bozacioglu]

Cevabını buldum. Teşekkür ederim. İyi Çalışmalar
Set NewTextBox = Öğrenci_Etütİşleri.MultiPage1.Pages(0).Controls.Add("Forms.TextBox.1")
With NewTextBox

 

[bozacioglu]

Set NewTextBox = Me.TAKİP_SAYFA.Pages(0).Controls.Add("Forms.TextBox.1")
kodu ile oluşturulan textbox ı nasıl silebilirim.
Araştırdığım kadarıyla şu şekil yaptım ama hata veriyor.
Me.TAKİP_SAYFA.Pages(0).Controls("txtÇıkış" & k & i) . Clear Hata veriyor
Me.TAKİP_SAYFA.Pages(0).Controls("txtÇıkış" & k & i) . Clear() Hata veriyor
Me.TAKİP_SAYFA.Pages(0).Controls("txtÇıkış" & k & i) = Clear Sadece içeriği temizliyor
Me.TAKİP_SAYFA.Pages(0).Controls("txtÇıkış" & k & i) = Delete Sadece içeriği temizliyor

 

[Korhan Ayhan]

Aşağıdaki gibi bir döngü kullanabilirsiniz. Kendinize uyarlarsınız.

Private Sub CommandButton1_Click()
    Dim My_Control As Object
    For Each My_Control In Me.MultiPage1.Pages(0).Controls
        If InStr(My_Control.Name, "TextBox") = 1 Then
            Me.Controls.Remove My_Control.Name
        End If
    Next
End Sub

 

[bozacioglu]

Çok teşekkür ederim. işimi gördü. İyi Çalışmalar.