UserForm'da TextBox kaydırma çubuklarını Birlikte Kullanmak.

[asdsxx]

Sayın Hocalarım Excel Userform'da iki adet (TextBox1 ve TextBox2) isimli 2 adet metin kutusu var. Bu TextBox ların "Dikey" kaydırma çubuklarını birlikte hareket ettirmek mümküm mü?
Yani, TextBox1 deki dikey kaydırma çubuğunu hareket ettirince diğer textbox kutusunun Dikey kaydırma çubuğuda hareket edecek. Yada tersi.
Hangi TextBox kutusundaki kaydırma çubuğunu hareket ettirirsem diğeride hareket edecek.
Saygılar...

 

[Biolightant]

Merhaba,
Şu şekilde bir çözüm işinizi görür mü?

İlk olarak, iki TextBox’ın ScrollBars özelliğini iptal edin.
Daha sonra, her iki TextBox’ı da bir Frame içine koyun ve Frame’in ScrollBars özelliğini "Vertical" olarak ayarlayın.
Son olarak, Frame’in Height değerini TextBox’lardan küçük yapın.

Böylece, Frame’in kaydırma çubuğunu hareket ettirdiğinizde, içindeki iki TextBox da birlikte hareket edecektir.

 

[asdsxx]

Merhaba,
Şu şekilde bir çözüm işinizi görür mü?

İlk olarak, iki TextBox’ın ScrollBars özelliğini iptal edin.
Daha sonra, her iki TextBox’ı da bir Frame içine koyun ve Frame’in ScrollBars özelliğini "Vertical" olarak ayarlayın.
Son olarak, Frame’in Height değerini TextBox’lardan küçük yapın.

Böylece, Frame’in kaydırma çubuğunu hareket ettirdiğinizde, içindeki iki TextBox da birlikte hareket edecektir.

Hocam dediğinizi yaptım ama çalışmadı. Sadece Framem'in yüksekliği (mesafesi) kadar textbox lar hareket ediyor. Frame kaydırma çubuk mesafesi bitince TextBox lar hareket etmiyor. Halbuki textbox larda daha çok kaydırılacak bölüm var.

 

[Biolightant]

Şu kodu bir uygulayin

Frame1.ScrollHeight = TextBox1.Height + (TextBox1.Top * 2)

Olmazsa örnek dosya yükleyin onun üzerinden çözüm üretmeye çalışalım.