vb.net里使用trackbar控件控制图形
2010-04-27 11:09
411 查看
项目中要用图形来显示一个闸门的开度,以及控制闸的开度。首先添加一个trackbar,名字是“trackbar1”,一个label,名字是“l_a_shang”,一个groupbox,名字是“gb_right”,,然后添加拉动滚动条时的处理函数
上位机控制
dim m_start as integer
dim rcdraw as system.drawing.rectangle
private sub trackbar1_scroll(byval sender as object, byval e as system.eventargs) handles trackbar1.scroll
m_start = (100 - trackbar1.value)
me.l_a_shang.text = me.trackbar1.value.tostring
gb_right.invalidate() 重画gb_right
end sub
添加gb_right重画时的处理函数
private sub gb_right_paint(byval sender as object, byval e as system.windows.forms.painteventargs) handles gb_right.paint
rcdraw.x = trackbar1.location.x - 40
rcdraw.y = 20
rcdraw.height = 100
rcdraw.width = 20
e.graphics.drawrectangle(new pen(color.blue, 5), rcdraw)
dim i = trackbar1.location.x - 40
for i = trackbar1.location.x - 40 to trackbar1.location.x - 20
e.graphics.drawline(new pen(color.blue, 5), i, m_start + 20, i, 120)
next
me.l_a_shang.text = me.trackbar1.value.tostring + "%"
end sub
到此以及可以实现拉动条的时候,图像跟着变化,并显示百分比。
上位机控制
dim m_start as integer
dim rcdraw as system.drawing.rectangle
private sub trackbar1_scroll(byval sender as object, byval e as system.eventargs) handles trackbar1.scroll
m_start = (100 - trackbar1.value)
me.l_a_shang.text = me.trackbar1.value.tostring
gb_right.invalidate() 重画gb_right
end sub
添加gb_right重画时的处理函数
private sub gb_right_paint(byval sender as object, byval e as system.windows.forms.painteventargs) handles gb_right.paint
rcdraw.x = trackbar1.location.x - 40
rcdraw.y = 20
rcdraw.height = 100
rcdraw.width = 20
e.graphics.drawrectangle(new pen(color.blue, 5), rcdraw)
dim i = trackbar1.location.x - 40
for i = trackbar1.location.x - 40 to trackbar1.location.x - 20
e.graphics.drawline(new pen(color.blue, 5), i, m_start + 20, i, 120)
next
me.l_a_shang.text = me.trackbar1.value.tostring + "%"
end sub
到此以及可以实现拉动条的时候,图像跟着变化,并显示百分比。
相关文章推荐
- [VB.NET]请问题如何使用 正值表达式 来控制使用者Textbox控件输入内容?
- 100% .NET Control_使用CurrencyManager 创建一个导航条来控制DatagGrid的XNavBar控件(VB.NET).
- [VB.NET]在vb.net中有没有类似vb6控件数组的方法控制一组控件?
- (转)vb.net入门——设置值的控件:RadioButton的使用
- 使用泛型在VB.NET中实现VB6.0中的控件数组
- VB.NET 中 使用 ListView 控件的简单例子
- VS2017移动开发(C#、VB.NET)——Numeric控件的使用方式
- Vb.net控件使用备注
- VisualStudio移动开发(C#、VB.NET)Smobiler开发平台——SliderView控件的使用方式
- VB.NET实现的控制外部应用程序窗口或控件行为的函数源程序
- vb.net中serialport控件的一些使用经验
- 使用树形控件显示VB.NET层级数据
- vb.net中serialport控件的一些使用经验 .
- [VB.NET]自定义控件与使用该控件的文件应该怎样放置才对哪?
- 流程图控件FlowChart.NET使用教程:加载图形数据和创建图形对象
- VisualStudio移动开发(C#、VB.NET)Smobiler开发平台——ImageTabBar控件的使用方式
- n[VB.NET]使用Splitter控件
- VS移动开发(C#、VB.NET)Smobiler开发平台——SliderView控件的使用方式 4000
- VisualStudio移动开发(C#、VB.NET)Smobiler开发平台——AlbumView相册控件的使用方式
- vb.net WebBrowser控件使用