如果PictureBox中的内容高度或宽度超过PictureBox本身的高度或宽度时,如何让它显示出滚动条?在线等!
解决方案 »
- 关于Enum的疑问
- 如何使combox框的下拉框中的数据随输入而变换?(在线)
- dao对access数据库访问的问题!在线等!
- 100分求:InstallShield6.X 7.0如何制作UnInstall?
- 关于treeview和listview最基本的操作
- 一家公司的笔试试题 求解答!
- 如何让一个窗体移动的时候另一个也跟着动?就像winamp的三个窗体都随主窗体动?在线
- 第二个问题
- ??????????非常痛苦,再搞不出来就被炒鱿鱼
- 为什么,这里的程序员,都喜欢一些无聊的问题,而对技术却不怎么关心???????
- 用stream如何读取当前text的文本转换成二进制保存?
- 读数据文件(.txt),向数据库(access)中写入数据的问题(Vb+access)
Form1.Width = 5000
Form1.Height = 5000
Form1.ScaleMode = vbPixels
Picture1.ScaleMode = vbPixels
Picture1.AutoRedraw = True
Picture1.BorderStyle = 0
' picture1.Picture =load("路径")
Picture1.Move 0, 0
HScroll1.Top = Form1.ScaleHeight - HScroll1.Height
HScroll1.Left = 0
HScroll1.Width = Form1.ScaleWidth
VScroll1.Top = 0
VScroll1.Left = Form1.ScaleWidth - VScroll1.Width
VScroll1.Height = Form1.ScaleHeight - HScroll1.Height
HScroll1.Max = Picture1.Width - Form1.ScaleWidth
VScroll1.Max = Picture1.Height - Form1.ScaleHeight
VScroll1.Visible = (Picture1.Height > Form1.ScaleHeight)
HScroll1.Visible = (Picture1.Width > Form1.ScaleWidth)
End Sub
Private Sub Form_Resize()
Picture1.Move 0, 0
HScroll1.Top = Form1.ScaleHeight - HScroll1.Height
HScroll1.Left = 0
HScroll1.Width = Form1.ScaleWidth
VScroll1.Top = 0
VScroll1.Left = Form1.ScaleWidth - VScroll1.Width
VScroll1.Height = Form1.ScaleHeight - HScroll1.Height
VScroll1.Visible = (Picture1.Height > Form1.ScaleHeight)
HScroll1.Visible = (Picture1.Width > Form1.ScaleWidth)
End SubPrivate Sub HScroll1_Change()
Picture1.Left = -HScroll1.Value
Form1.Caption = HScroll1.Value
End SubPrivate Sub Picture1_Resize()
Picture1.Width = Picture1.Width
Picture1.Height = Picture1.Height
HScroll1.Max = Picture1.Width - Form1.Width
VScroll1.Max = Picture1.Height - Form1.Height
End SubPrivate Sub VScroll1_Change()
Picture1.Top = -VScroll1.Value
Form1.Caption = -VScroll1.Value
End Sub以前写的一个模板还在,不过比较粗糙,
上面是窗体当容器,窗体上放picturebox和滚动条就可以了
用上面的代码做一点点修改