VScrollBar,可以上下拖动表单,查看MSDN,没有找到相关帮助
最好能提供例子,谢谢
最好能提供例子,谢谢
解决方案 »
- 我是新手想问一下VB中的一个简单问题 如何计算Textbox中的段落,最好有简单实现的函数,
- 数组不定义,直接a(100)= "aa ",系统是否自动生成了a(0 to 100)?
- 请教有关com口对开关电路的判断问题(使用mscomm32.ocx)
- vb中如何调用Oracle存储过程
- 一个关于API的问题,急求解答
- 怎样对RichtextBox进行剪切、复制、删除、查找等操作!
- 关于多媒体声音编程的一个难题!!!
- 问:如果我要从内存里把某个DLL卸载掉,有什么API函数?
- 如何在vb中实现网络自定义数据传递
- 在VB中调用存储过程返回一个记录集到ado的recordset的问题(高手请进)
- [求助]控制主音量和控制主音量左右平衡的程序,200分
- Access数据库,表的“自动编号”可以编多少?
然后:
Private Sub VScroll1_Change()
Picture1.Top = -VScroll1.Value + 590
End Sub
注意,这时候要 控件.top=控件.top+偏移量。
with picture
.top=0
.left=0
.width=form1.width
.height=form1.width
end with
if pictrue2.height>picture1.height then
vscroll1.visable=true
vscroll1.min=1
vscroll1.max=picture2.height-picture1.height
endif
end subPrivate Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value
End Sub你试试这个可以吗? 我没调试,现在没有VB软件没法试,可能有些错误,不过大概就是这样的了。
先在FORM里加了PICTURE1和VSCROLL,然后加PICTURE2,把所有控件内容放在PICTURE2,通过PICTURE1的VSCROLL控制PICTURE2上下移动,但现在PICTURE2高度调到最大还是无法放满所有控件,怎么办???