十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
思路:
成都创新互联拥有十余年的建站服务经验,在此期间,我们发现较多的客户在挑选建站服务商前都非常的犹豫。主要问题集中:在无法预知自己的网站呈现的效果是什么样的?也无法判断选择的服务商设计出来的网页效果自己是否会满意?成都创新互联业务涵盖了互联网平台网站建设、移动平台网站制作、网络推广、按需定制开发等服务。成都创新互联网站开发公司本着不拘一格的网站视觉设计和网站开发技术相结合,为企业做网站提供成熟的网站设计方案。
利用几个可以作为容器的控件,添加滚动条就可以了:
我举个例子:(这个问题我记得回答过的!)
添加1个PicTureBox1,作为容器
在PicTureBox1里添加PicTureBox2,在窗体上添加一个垂直滚动条。
把你所谓的许多控件放到PicTureBox2里,滚动条改变的是PicTureBox2在PicTureBox1里的Top属性,我想你通过一定的空间想象力,可以想到效果了吧?
注意:默认状态设置PicTureBox2的Top属性为0,当该属性为负值的时候,PicTureBox2显示的效果是向上移动,即下面原来隐藏的内容为可见了。
要设置PicTureBox2的AutoRedraw 属性为True。
若要左右移动效果,那么改变其 Left 属性,原理不再赘述了。
您好,您是想问vb.net连续绘制曲线图不消失怎么办?b.net连续绘制曲线图不消失的解决办法如下:
1、首先必须创建bitmap,关联到picturebox1.image上。
2、再在picturebox1.image上创建Graphics,再进行作图。即可显示线图。
简单举个例子,不知道能否对你有用。。。(说明下而已,不能运行)
此例为一个小模块,原创哦~~非抄袭!
Private Sub 量程自动识别(ByVal 传递过来的数据 As Single)
Dim 量程 As Long
If 数据 = Picture高度 Then
Exit Sub
End If
量程 = CLng(传递过来的数据 / 100 + 0.5) * 100 '获取新的高度
Picture1.ScaleHeight = 量程 'ScaleHeight属性为picture1的内部高度
Picture1.Cls '清空picture控件
Picture1.AutoRedraw = True '设置自动重绘有效
Picture1.DrawWidth = 1 '设置绘制线条宽度
End sub
哦,对了,之前采集的数据要记得保存起来(例如保存在数组中),之后要记得把以前所有的数据点都绘制上去哦。
判断最后一组数据在X轴上的位置,以此点的坐标为 picture1的 ScaleWidth ,上例只是高度的换成宽度不就好了呀。
还有你把之前的数据都存起来,每次清空picture时 重绘就OK了噢