ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[baksu]

Merhaba,


UserForm1 üzerinde Frame1 var ve frame1' içinde fazlaca textboxlar var, frame1 in görünmeyen alanının dikey scroolbar ile kaydırılarak görünmesi gerekiyor. Nasıl bir kod gerekir.


Teşekkürler...

[Tarkan VURAL]

Merhaba Sn baksu, sitemize hoş geldiniz.

Kod: Tümünü seç

Private Sub UserForm_Initialize()
Frame1.ScrollBars = fmScrollBarsVertical
Frame1.ScrollHeight = Frame1.InsideHeight * 2
End Sub

[M Kubilay Karabulut]

Kod: Tümünü seç

Private Sub UserForm_Activate()
'www.excelvba.net
With Me.Frame1
.ScrollBars = fmScrollBarsVertical
.ScrollHeight = .InsideHeight * 2
.ScrollWidth = .InsideWidth * 9
End With
End Sub

[Tarkan VURAL]

Geç kaldın Kubilay kanka

[baksu]

Çok teşekkür ederim, ellerinize sağlık....

[hayalbert]

Tarkan Bey çalışmalarınızı gıpta ederek izliyorum, bariz bir şekilde forumdakilere fayda sağlamak için fedakarca emek veriyorsunuz.

Ben bu örneği Multipage için da kullanabilir miyiz diye soracaktım veya başka bir deyişle çok fazla combobox, textbox ve label kullanmak zorunda olduğum bir userformum var ekranda bu userformuaşağı kayar şekilde kullanabilirsem çok faydalı olacak.

Saygılarımla

[Tarkan VURAL]

Fikir vereyim : Multipage içine, Multipage büyüklüğünde Frame ekleyin. Yukarıdaki kodları kullanın.

[hayalbert]

Çok teşekkür ederim.
Bu soru da muhtemelen size çok basit gelecek ama vbe de altta kalan kısma nasıl ulaşacağım ?

Saygılarımla

[Haldun Alay]

VBE'de altta kalan kısım derken Immediate Window'dan bahsediyorsanız Ctrl-G tuş bileşimini kullanabilirsiniz.

[hayalbert]

Hayır,
Userformun altta kalan kısmından bahsediyorum.
Yukarıdaki atamalarla framin yüksekliği ikiye katlanıyor ama userformun boyu aynı kalıyor...