eger textbox doluysa yenisini olustur

[taner3106]

userformda birkac tane textbox var. sonuncusunu tikladigimda yeni bir text box olusmasi icin ne yababilirim. yeri konusunda da left =10; top =(bir oncekine 3 birim bosluktan sonra). ve ayni sekilde bu yeni textboxa tikladigimda bir tane daha olusturacak.
tesekkurler

 

[Levent Menteşoğlu]

Ekte bir örnek hazırladım. Bu örnekte userformda başlangıçta sadece bir textbox vardır, en sondaki textboxa veri girdikçe bir altına yeni bir textbox ilave edilecektir. Uygulamada class module kullanılmıştır. Her eklenen textbox class module eklenmektedir.

 

[taner3106]

tsk

tesekkurler levent anlamaya calisiyorum. class modul benim icin yeni bir kavram.

 

[taner3106]

Ugrastim usrastim ama kisa bir yol bulamadim. Zannedersem benim isimi yapacak olan class modül. Ama class modül yazmayi beceremedim. Sitedeki örneklere baktim ama yine isin icinden cikamadim. Yapmak istedigim suydu:

- Sadece Fiil secili iken checkboxlar görünür olacak.

- Sadece Isim secili "artikel" ve "cogulda ek" yazili labeller, comboboxlar ve cogulda ek icin ayrilan textboxlar görünür olacak.

- Objeler görünmez olduktan sonra kalan objeler yukari kayacak.
- anlam sütunundaki ilk hücreye veri girildiginde yandaki sütunu görünür yapacak

- Anlam sütunundaki ikinci ve daha sonraki hücrelere veri girildiginde alttaki hücreyi görünür yapacak

- Kaydet butonuna tiklandiginda hangi optionbutton secili ise o sayfaya ilk bos satira yazdiracak. Checkbox Secili ise deger olarak x yazilacak.

Biliyorum istediklerim cok fazla oldu ama bir de eger mümkünse bu görünür-görünmez yapmak yerine kendisi olusturabilir mi acaba. Zannedersem o zaman daha hizli calisir.

Not: Kendi yazdigim kodlari dosyadan cikardim. Kodsuz olarak dosyayi ekliyorum.

Simdiden Tesekkürler.

 

[Levent Menteşoğlu]

Dosyanızı inceledim. İstediklerinizi yapmak için class module kullanmaya gerek yok. Nesneleri frame üzerine yerleştirip gruplayarak kolaylıkla çözüm üretilebilir. Ben dosyanızdaki checkboxlar için bir örnek yaptım. Yani birinci sorunuzun cevabı, Bundan hareketle diğer sorularınızada kendinizin çözüm bulacağınızı düşünüyorum. Eğer takıldığınız yer olursa tekrar sorarsanız yardımcı olmaya çalışırız.

 

[taner3106]

tamam sagol levent hocam. öyle yapalim. tesekkürler.

 

[taner3106]

sayin levent hocam,
frame icindeki textboxlara veri girdigimde bana o textboxun bir sonraki textboxunun visible özelligini true yapacak bir fonksiyon lazim. yardimci olabilir misin acaba.

ben
TextBox"X"_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
satir
End Sub

satir fonksiyonu icin
Sub satir()
a = UserForm1.ActiveControl.Count
UserForm1.Controls(a + 1).Visible = True
End Sub

yazdim ama aktif obje olarak baska birseyi aliyor

(textboxlarin count numaralari ve de textbox numaralari ardisik)

 

[taner3106]

sayin levent hocam olayi su sekilde cözdüm:

Sub satir()
a = UserForm1.ActiveControl.Name
b = Mid(a, 8, 3)
UserForm1.Controls("textbox" & b + 1).Visible = True
End Sub

 

[omerceri]

Sn Leventm
Örneği tekrar ekleyebilirmisiniz

 

[omerceri]

Sn Leventm
Aradığım çalışmayı yine sizin başka örneğinizden buldum.
Sağolun.

 

[emir_komutan]

Sn Leventm
Aradığım çalışmayı yine sizin başka örneğinizden buldum.
Sağolun.

merhaba arkadaş bulduğun örneğin linkini yazarmısın? Benimde konuyla ilgili bir örnek aradım ama bulamadım ........

 

[Levent Menteşoğlu]

Başlıktaki eksik dosyalar tekrar yerlerine eklenmiştir.