UserForm a nesne eklemede out of memory hatası

[Kenantu]

Merhaba Arkadaşlar

Üzerinde çalışmakta olduğum bir dosyamda bir UserForm oluşturdum bu formun üstünde Image , Textbox , ComboBox gibi nesneler ekliyorum bunların sayısını sorarsanız bayağı çok benim öğrenmek istediğim şey bunda bir sınır varmıdır yani bir UserForm üzerine kaç tane nesne ekleyebilirim.

Teşekkürler
İyi çalışmalar
KenanTunçay

 

[Zeki Gürsoy]

Merhaba.
Belki bir sınırı vardır ancak, bu sınır sizin kullanımınızın üzerinde olsa gerek.

Aşağıdaki örnek, form üzerine 10.000 adet TextBox ekler. Boş bir form ve buton ekleyerek aşağıdaki kodu test edebilirsiniz.

[SIZE=2]Private Sub CommandButton1_Click()
    
    Me.Width = 503.25
    Me.Height = 286.5
    Me.ScrollBars = fmScrollBarsVertical
    
    Dim txt As MSForms.TextBox
    
    For i = 1 To 10000
        
        Set txt = Me.Controls.Add("Forms.TextBox.1", "TextBox" & i, True)
        
        txt.Top = (txt.Height * i) - txt.Height
        
        txt.Text = "TextBox" & i
        
        Me.ScrollHeight = Me.InsideHeight * 678
        
    Next
    
End Sub[/SIZE]

 

[Kenantu]

Çok teşekkür ederim hemen deniyorum. Bu arada baktım dosyam içindeki bilgiler nedeni ile 21 MB ta çıkmış belkide ondan yapıyordur. Vermiş olduğunuz kodu deneyip derhal size dönüyorum Zeki bey. Ellerinize sağlık teşekkürler

 

[Kenantu]

Zeki hocam ben denedim 9690 tane ekledi geri kalanını göremedim burdan şu çıkıyor VBA penceresinde de bu kadar eklenebilir geriye tek olay kaldı dosyanın boyutu 21 MB demekki hata ondan dolayı geliyor.

Teşekkürler
İyi çalışmalar
Kenan Tunçay