易截截图软件、单文件、免安装、纯绿色、仅160KB

如何给VB的form加滚动条

VB的form有个背景图片属性，我要在画图的过程中
给VB的form背景关联一个背景图片
有的时候背景图片很大，超过了form的最大程度
我想问下，怎么给form添加滚动条，在拖动的时候可以看到整幅的图片
图片的大小不知道
这不是VB.NET，没有autoscroll属性。
希望各位大侠帮帮忙，最好能贴出代码
非常感谢，在线等待
要知道图片大小，然后设置滚动条MAXVALUE，在事件里移动，没自动的。
引用
要知道图片大小，然后设置滚动条MAXVALUE，在事件里移动，没自动的。

图片的大小是随机的
我也不知道客户要准备多大的图片
因为每个电脑分辨率不一样
别用 form 了吧....
引用
别用 form 了吧....

不用form那用什么？
能给个如果解决的例子么？
通过属性设置的背景图片不能滚动，建议自己用 PaintPicture 进行显示。
用PictureBox
这个例子用滚动条移动 PictureBox 控件穿过窗体。要试用此例，先把代码粘贴到包含一小的 PictureBox 控件和 HScrollBar 控件的窗体的声明部分，然后按 F5 键，并单击滚动条。

Private Sub Form_Load ()
  HScroll1.Max = 100 ' 设置最大值.
  HScroll1.LargeChange = 20 ' 敲击 5 次后穿过.
  HScroll1.SmallChange = 5 ' 敲击 20 次后穿过.
  Picture1.Left = 0 ' 图形从左边开始.
  Picture1.BackColor = QBColor(3) ' 设置图形框的颜色.
End Sub
Private Sub HScroll1_Change ()
  ' 按照滚动条移动图形.
  Picture1.Left = (HScroll


相关问答：

关于VB DIM ds as new DataSet问题 - VB / 基础类

DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.

dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......

vb - VB / 基础类

在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。

不知道怎么实现的不要说话

这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb读取用word转换成的xml里的数据 - VB / 基础类

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' 读入所有字符到变量中 ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号