滚动条的滑块宽度问题。急!
我做的程序因为分辨率问题,会出现局部无法显示。因此加了滚动条。可是滚动条加上后的滑块宽度太小,所以从上到下滚完需要拖动很长时间,而其实无法显示的部分很小。
If SSTab1.Height > Me.Height Then
'Height of form is smaller than PictureBox. Show Vertical SB
VScroll1.Visible = True
Else
VScroll1.Visible = False
End If
If SSTab1.Width > Me.Width Then
HScroll1.Visible = True
Else
HScroll1.Visible = False
End If
'Set width/height
If Me.WindowState <> 1 Then
HScroll1.Width = Me.ScaleWidth - VScroll1.Width
VScroll1.Height = Me.ScaleHeight
'Set position
HScroll1.Left = 0
HScroll1.Top = Me.ScaleHeight - HScroll1.Height
VScroll1.Left = Me.ScaleWidth - VScroll1.Width
VScroll1.Top = 0
'Set/Reset Maximum value
VScroll1.Max = (SSTab1.Height - Me.Height) + HScroll1.Height
HScroll1.Max = (SSTab1.Width - Me.Width) + VScroll1.Width
End If
以上是关于屏幕变化时,滚动条的实现和参数设置。我想知道怎么样能使滑块宽一些,这样从上到下的拖动就可以小一些。
我曾经试过
VScroll1.Max = (SSTab1.Height /Me.Height) + HScroll1.Height
但是拖动时会出现有些部分还是显示不出来的情况。我希望找到不论那种分辨率都能看到全部,而且滚动幅度小的。