April 2006
Beginner
1114 pages
98h 16m
English
Content preview from Programming Excel with VBA and .NETBecome an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
O’Reilly covers everything we've got, with content to help us build a world-class technology community, upgrade the capabilities and competencies of our teams, and improve overall team performance as well as their engagement.I wanted to learn C and C++, but it didn't click for me until I picked up an O'Reilly book. When I went on the O’Reilly platform, I was astonished to find all the books there, plus live events and sandboxes so you could play around with the technology.I’ve been on the O’Reilly platform for more than eight years. I use a couple of learning platforms, but I'm on O'Reilly more than anybody else. When you're there, you start learning. I'm never disappointed.I'm always learning. So when I got on to O'Reilly, I was like a kid in a candy store. There are playlists. There are answers. There's on-demand training. It's worth its weight in gold, in terms of what it allows me to do.
Name
form.ScrollBars [= fmScrollBars]
Synopsis
Sets or returns how scrollbars are displayed. Can be one of these settings:
fmScrollBarsNone (default) fmScrollBarsHorizontal fmScrollBarsVertical fmScrollBarsBoth
Depending on the setting of KeepScrollBarsVisible, scrollbars may or may not be visible on a form. The ScrollHeight and ScrollWidth properties determine whether the form is scrollable.
The following code shows how these properties interact by adding 100 lines of text to a label, then resizing the label so that it extends off the form. The UpdateScrollSize procedure calculates the required dimensions for the form and sets ScrollHeight and ScrollWidth so users can view the entire form area:
Private Sub UserForm_Initialize( ) ' Scrollbar settings Me.ScrollBars = fmScrollBarsBoth Me.KeepScrollBarsVisible = fmScrollBarsNone ' Initialize data FillLabel ' Update scrollbars. UpdateScrollSize End Sub ' Adds 100 lines of text to a label, then ' resizes it to demo scrolling a form. Private Sub FillLabel( ) Dim i As Integer Label1.Caption = "" For i = 1 To 100 Label1.Caption = Label1.Caption & _ "Line: " & i & String(90, "*") & vbCrLf Next Label1.AutoSize = True End Sub ' Find the dimensions required to display all of the controls ' on the form and reset ScrollHeight and ScrollWidth to match. Private Sub UpdateScrollSize( ) Dim c As Control, maxHeight As Double, maxWidth As Double For Each c In Me.Controls maxHeight = c.Top + c.height maxWidth = c.Left + c.width If maxHeight > Me.ScrollHeight ...
Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
and much more.
Read now
Unlock full access
More than 5,000 organizations count on O’Reilly
O’Reilly covers everything we've got, with content to help us build a world-class technology community, upgrade the capabilities and competencies of our teams, and improve overall team performance as well as their engagement.Julian F.
I wanted to learn C and C++, but it didn't click for me until I picked up an O'Reilly book. When I went on the O’Reilly platform, I was astonished to find all the books there, plus live events and sandboxes so you could play around with the technology.Addison B.
I’ve been on the O’Reilly platform for more than eight years. I use a couple of learning platforms, but I'm on O'Reilly more than anybody else. When you're there, you start learning. I'm never disappointed.Amir M.
I'm always learning. So when I got on to O'Reilly, I was like a kid in a candy store. There are playlists. There are answers. There's on-demand training. It's worth its weight in gold, in terms of what it allows me to do.