Gizli haldeki ardışık metinkutularının, veri girdikçe, sırayla gözükür hale gelmesi.

[Mahmut Kök]

Textbox1, textbox2 şeklinde sıralanmış halde bulunan metinkutuları var. Bunlardan sadece birincisi gözükür halde, diğerleri ise gizli (.visible=false).

Bu metinkutularına veri girerken, aralarda boş kutu kalmaması gerekiyor. Bunun için de, gizli halde tuttuğum metin kutularının, bir önceki metinkutusuna veri girildiğinde gözükür hale gelmesini istiyorum. Yani, 10 metinkutusu var, ama sadece 1. kutu gözüküyor. Birinci kutuya veri girdiğimizde 2. kutu gözükür olacak, 2. kutuya veri girdiğimizde 3. kutu gözükür hale gelecek...

Bunu metinkutularına teker teker tanımlayacağım kodlarla yapabilirim; ancak metinkutusu sayısı oldukça fazla olduğundan uzun sürecek bir iş olur ve de hata olasılığı artar diye düşünüyorum. Sınıf modülü tanımlayarak bahsettiğim işlemin daha kolay bir şekilde, birkaç satır kod yazarak yapılabileceğini sanıyorum. Sınıf modülü konusunda bilgisi olan veya bahsettiğim uygulamanın, farklı bir yöntemle daha kolay hazırlanabileceğini düşünen arkadaşlarımın yardımcı olmasını diliyorum.

Herkese şimdiden teşekkürler. İyi çalışmalar.

 

[omerceri]

Leventm'in böyle bir örneği vardı. Şimdi bulamadım. bir araştırırsan.
O örnekte çok sayıda TexBox üretmene gerek yoktu. Çalışma anında gerektiğ kadar üretebiliyordun.

 

[omerceri]

Örnek ekte

 

[Mahmut Kök]

Sayın omerceri, ilginizden dolayı çok teşekkür ederim. Benim formum hazır vaziyette olduğundan, üzerindeki metinkutularında değişiklik yapmak istemiyorum. Sadece, bahsettiğim şekilde gizli-görünür olması yeterli olacak. Bir diğer husus da, ortalardan bir veri sildiğimde, sonraki metinkutularının da gizli hale gelmesi gerekiyor. İlginize tekrar teşekkür ederim..

 

[Levent Menteşoğlu]

Bir class module oluşturun ve bu modüle aşağıdaki kodları kopyalayın. (Modül adı class1 olmalıdır)

Public WithEvents txt As MSForms.TextBox
Private Sub txt_Change()
ad = Replace(txt.Name, "TextBox", "")
If txt = "" Then
For a = ad + 1 To 10
UserForm1.Controls("textbox" & a) = ""
UserForm1.Controls("textbox" & a).Visible = False
Next
Exit Sub
End If
If ad < 10 Then UserForm1.Controls("textbox" & ad + 1).Visible = True
End Sub

Aşağıdaki kodlarıda userformun kod sayfasına kopyalayın.

Dim txt(10) As New Class1
Private Sub UserForm_Initialize()
For a = 1 To 10
Set txt(a).txt = Controls("textbox" & a)
Next
End Sub

 

[Mahmut Kök]

Hocam çok teşekkür ederim. Her zamanki gibi harikasınız. Saygılar...

 

[İsmail Küçükşengün]

Sayın Leventm;

Çok çalışmaya örnek olabilecek bu kodlarınız için ben de çok teşekkür ederim.

 

[celine]

Sn leventm, Sn ömerceri'nin yolladığı programı kendi programıma entegre edemiyorum benim çoğaltmak istediğim 4 tane texbox: Malın cinsi, miktarı, fiyatı, tutarı textboxları. Dosyayı ekliyorum, ne yapmalıyım?

 

[onurdogan]

Arkadaşlar dosyalar inmiyor. Yardımcı olabilir misin? Çok kullanışlı bir kod faydalanmak istiyorum.