Question

VB滚动条控制窗口位置

咳，我也说不好，就是说，我做了个程序，把宽设置的很大（50000，可能更多），当然屏幕显示不过来，我就想在窗体底部加一个滚动条（横跨整个窗体，就是宽50000），通过滚动条的滚动实现移动窗体，宽只显示20000，而且有标题栏和叉号、最小化（我设置的不能最大化）。请问肿么弄？
实验成功的话再给你55分，我豁出去啦！

Answer 1

不需要最大化除了自画窗体之外 还可以通过把Form的MaxButton设置为False来使最大化按钮失效
想实现滚动条移动窗体只能通过把控件放在载体上面来实现
给你一个简单的思路
新建一个窗体 在窗体上放一个符合你需求 宽度比窗体大的Picture1
在窗体底部放一个HScroll1
把HScroll1的max属性设置为你需要的宽度 貌似最大是32767....
复制如下代码
Private Sub HScroll1_Change()
Picture1.Left = 40 - HScroll1.Value
End Sub
运行窗体，拖动滚动条，Picture1会随着滚动条移动

Answer 2

留下QQ我传你个代码

追问

你留个邮箱
我的邮箱都是透露我真名的
所以谢谢你啦，再给你10分

Answer 3

这位兄弟，能发我一个吗
邮箱 yinggood@qq.com