当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > vb.net 中实现画图

ASP.NET
asp.net ajax功能强大的UpdatePanel控件
mscorwks.dll在.Net中的地位及代码保护应用
使用.NET实现你的IP切换器
在ADO.NET中用参数化查询缩短开发时间
Login控件：用户登录失败的消息提示
如何用C#来部署数据库
.net打包自动安装数据库
数据库开发个人总结(ADO.NET小结)
ASP.NET如何进行性能优化问题(2)
ASP.NET如何进行性能优化问题(1)
用.Net实现基于CSS的AJAX开发(6)
用.Net实现基于CSS的AJAX开发(5)
用.Net实现基于CSS的AJAX开发(4)
用.Net实现基于CSS的AJAX开发(3)
用.Net实现基于CSS的AJAX开发(2)
用.Net实现基于CSS的AJAX开发(1)
C#下用P2P技术实现点对点聊天
ASP.NET服务器端异步Web方法
在asp.net中如何从视频文件中抓取一桢并生成图像文件
.NET中多线程的同步资源访问

No. « 1 2 3 4 »

技术文章搜索

关键字

ASP.NET 中的 vb.net 中实现画图

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 33 ::
收藏到网摘: n/a

项目中要用图形来显示一个阀门的开度，以及控制阀的开度。本来是要用什么公司买的控件中的饼图之类的实现，不过我觉得也是麻烦，就想，还是自己画吧。

首先添加一个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

到此以及可以实现拉动条的时候，图像跟着变化，并显示百分比。