注册 登录
编程论坛 VB6论坛

form里的控件太多了,运行时显示不全,窗体如何加滚动条在运行时看到全部?

bing0705 发布于 2018-05-21 17:09, 6545 次点击
form里的控件太多了,已经把字体调小了,运行时还是显示不全,窗体如何加滚动条在运行时通过移动滚动条看到全部?谢谢!
只有本站会员才能查看附件,请 登录

只有本站会员才能查看附件,请 登录
6 回复
#2
风吹过b2018-05-21 17:25
控件放 容器中,然后容器随滚动条 滚动进行滚动 。
容器有:PictureBox 、Frame

附加控件里还有 Tab类的控件 。
#3
wds12018-05-21 17:31
用picture窗体和VScroll1实现
将全部控控件放入picture

#4
wds12018-05-21 19:09
用frame1做的事例
【窗体添加frame1,vscroll1,在frame1上面添加label1(0)】
Private Sub Form_Load()
  VScroll1.Min = 10000
  VScroll1.Max = 21000 '
  VScroll1.Value = 10000
  VScroll1.SmallChange = 1000
  VScroll1.LargeChange = 1000
  VScroll1.Top = 100
  VScroll1.Left = Screen.Width - 500
  VScroll1.Height = Screen.Height - 1000
 
  Frame1.Height = 21000
  Frame1.Width = Screen.Width - 1000
  For i = 1 To 20
  Load Label1(i)
  Label1(i).Visible = True
  Label1(i).Top = i * 1000
  Label1(i).Caption = i
  Next
End Sub

Private Sub VScroll1_Change()
  Frame1.Top = VScroll1.Min - VScroll1.Value
End Sub
#5
ZHRXJR2018-05-21 20:22
如果你的图片中左边部分均是文本数据,其实我认为可以使用文本框显示比较好。
使文本框的 MultiLine 属性为 True,使文本框的 ScrollBars 属性为 2,这样文本框就可以接受多行文本了,并且有上下滚动条,比较方便。
在程序中给文本框赋值就可以了。
只有本站会员才能查看附件,请 登录

上面文本框数据是随便输入的。


[此贴子已经被作者于2018-5-21 20:43编辑过]

#6
xzlxzlxzl2018-05-22 23:25
我通常用MDI窗体做。方法是子窗体大小能放下所有控件,通过拖曳主窗体上下左右滚动条显示子窗体部分。
#7
xiangyue05102018-05-23 11:03
可以容器控件A中再放一个容器控件B,将窗口控件放在B上,B多大都可以。 然后根据A的ScrollBars数值修改B的Top或者Left
1