首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

vb.net 2010 画直线图形(初学),该怎么解决

2013-12-22 
vb.net 2010 画直线图形(初学)本帖最后由 hanqiofln 于 2013-12-12 09:42:26 编辑在做窗体设计时,突然想到

vb.net 2010 画直线图形(初学)
本帖最后由 hanqiofln 于 2013-12-12 09:42:26 编辑 在做窗体设计时,突然想到要画一条直线,在VS2010里面有没有简单的方法,可以改变其颜色,宽度,长度等等参数!而且能随着窗体的最大化最小化而改变其相关参数,不至于使之变形难看。同理是否还有画其它图形的简单快捷方式!
[解决办法]
1.使用Drawing绘图(本质上是GDI+)
在窗口的Paint事件处理过程中绘图。每当窗口因为变更大小或被其它窗口遮盖导致无效区域时,均会调用此事件
(当然也会响应最大化最小化等引起的无效重绘)
e.Graphics.DrawLine是画线的方法,使用指定的画笔(Pen)在指定的位置画线。
画笔(Pen)对象规定线的宽度和颜色

 e.Graphics.DrawLines(new Pen(Color.Red, 1), 0,100,me.width,100)
[解决办法]
 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim gra As Graphics = Me.CreateGraphics
        Dim myPen As Pen = New Pen(Color.Red, 2)        '颜色,线的粗细
        gra.DrawLine(myPen, 1, 1, 100, 100)         '直线
        gra.DrawRectangle(myPen, 50, 60, 110, 120)          '距形
        gra.DrawArc(myPen, 50, 60, 60, 60, 60, 60)             '弧线
        gra.DrawEllipse(myPen, 280, 300, 200, 200)          '圆

    End Sub

热点排行