VB窗体加滚动条的问题

来源：百度知道 编辑：UC知道 时间：2024/07/16 06:14:03
我设计的一个软件界面，一个窗体内需要加很多控件，整个屏幕是显示不完全的（大概要两屏幕才能显示完整），谁能帮我设计个上下拖动的滚动条，最好是能设计个界面传给我，这样我能够有个参照，我的邮箱：lixiao_027@yahoo.com.cn
谢谢！！

用picturebox作为父控件，子类化窗口添加滚动条控制picturebox移动。代码发给你了哈。。。

将控件分分类,使用Microsoft Tabbed Dialog Control控件,将一个窗口分成多个选项卡多好? 用MDI窗口也可以啊

qiannianzhizuen@sina.com发了也许由帮助

'解决窗体加滚动条问题，一个VScroll1，2个Frame，Frame2在Frame1上面
'控件数组Label1(0)在Frame2上面
Option Explicit
Dim N As Integer
Private Sub Command1_Click()
On Error Resume Next
Dim i As Integer, lngLabelH As Long, lngLabelTop As Long
lngLabelH = Label1(0).Height + 100
lngLabelTop = Label1(0).Top + lngLabelH
N = Val(InputBox("你想创建多少个控件？"))
For i = 1 To N
Load Label1(i)
Set Label1(i).Container = Frame2
Label1(i).Move Label1(0).Left, lngLabelTop
Label1(i).Visible = True
Label1(i).Caption = i & "/" & N
lngLabelTop = lngLabelTop + lngLabelH
Next i
If lngLabelTop > Frame2.Height Then
Frame2.Height = lngLabelTop + 100
VScroll1.Max = (Frame2.Height - Frame1.Height) \ lngLabelH
VScroll1