新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Panel控件就是容器,在窗体上添加一个Panel1控件,将其拖放到合适的位置与大小,然后设置Panel1控件的:
创新互联公司长期为千余家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为市南企业提供专业的网站设计制作、成都网站设计,市南网站改版等技术服务。拥有十余年丰富建站经验和众多成功案例,为您定制开发。
AutoScroll 属性为True
Panel1.AutoScrollMinSize 属性
Panel1控件里,添加你的图片框(此时可以滚动Panel1控件里的滚动条)
OK了吧!
vb.net没有自动重画功能,要在Paint事件中写代码对图形重画。
另外一种情况,如果在Image属性设置了一幅图像,图像能够保持完整性的。所以你可以把图形绘在位图上,把位图绑定到Image属性上。
先绑定一幅位图:
Dim bm as New BitMap(800,600)
PictureBox1.Image=bm
作图时不是对图片框,而是在位图上作图。
dim gr As Grapthics=Graphics.FromImage(bm) '建立位图的绘图设备
接下来就可用gr 的绘图方法作图
作完图,PictureBox1.Refresh 刷新一下。
不是语言让图片动起来的,而是图片本身就能动,例如gif格式图片本身就是动画。如果你讲的是图片在网页上移动,而不是图片本身内容的动作,那么不是vb.net的功能必须用java脚本来实现。
画一个Picture1、VScroll1、HScroll1,再在Picture1里画一个Image1。将Image1的Stretch设为False,AutoSize(如果有这个属性的话)设为True,Left、Top都设为0,图片要放到Image1中。将VScroll1、HScroll1的Min都设为0。
在Form_Load中打
VScroll1.Max = Image1.Height - Picture1.ScaleHeight
HScroll1.Max = Image1.Width - Picture1.ScaleWidth
在VScroll1的Scroll中打
Image1.Top = 0 - VScroll1.Value
在HScroll1的Scroll中打
Image1.Left = 0 - HScroll1.Value
最后要注意以上代码要求Image1中的图片大小必须超过Picture1所能显示的范围,而且Image1中的图片不宜过大,否则会报错。
将pic1 置于另一个pic2内 滚动条控件控制pic1的left top 就可以达到你的目的