vb.net在窗口上画图 vb中绘制图形

VB.net中如何画图？

分类: 电脑/网络 程序设计 其他编程语言

专注于为中小企业提供做网站、成都网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业旌德免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了上千多家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

问题描述:

VB6中的form1.circle (100,200),rgb(0,255,0)的语句如何在VB中使用啊？

急用啊！！！！！！！！

解析:

VB与VB不同。

VB已经有专门绘图的类。

可以定义笔刷然后用Drawing类中的方法绘制。

Private Sub DrawEllipse()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub

Private Sub DrawRectangle()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub

VB.net 如何画窗体？？

绘制和数据分离，就是说，Paint 事件永远是用来绘制的，具体绘制什么东西（也就是绘制的数据，如半径为4的圆），有数据决定，MouseClick 可以更改一些参数，然后由Paint 绘制：

MouseClick 事件里，重绘窗体，即：

int r = 0, x = 0, y = 0;

private void Form1_MouseClick(object sender, MouseEventArgs e)

{

r = 10;

x = e.X;

y = e.Y;

this.Invalidate();

}

private void Form1_Paint(object sender, PaintEventArgs e)

{

// 绘制一个r半径圆

e.Graphics.DrawEllipse(new Pen(Color.Red), x, y, r, r);

}

补充：

在 MouseClick 事件中去调用Form 的 Paint 事件，那么参数要如何传递？

参数是个全局变量，类似上面的r、x、y等，不是由e传过去的，

上述代码是c＃的，vb.net和c＃一样，都是用的fcl类库，你改一下就可以了，

如何通过vb.net WinForm窗体上画线条或弧线，让用户可以用鼠标捕捉（选中）已画的线条。

代码写起来可能比较麻烦，给你个思路，就是用GraphicsPath来绘制，然后通过绘制目标的鼠标移动事件来获取当前鼠标在绘制目标中的实际位置，再通过GraphicsPath的IsVisible()方法来确认鼠标是否包含在GraphicsPath中。

DrawLine直线比较容易处理，只要得到Line的坐标点，然后比较当前鼠标坐标就好。

vb.net 多线程 在界面上绘图

t.Suspend（）这是一个暂停的线程。是一个异步方法。

t.Sleep，我看到了一个同步方法。必须等待超过了该方法的运行，是继续进行到下一步骤。

差不多了，from.show的from.showdiaglog的区别！

疑问，我没有找到原因。

vb.net2010中如何在窗口中建立画布

'绘制图形的三步曲

'1，获得一个Graphics对象

Dim MyGraphics As Graphics

MyGraphics = Me.CreateGraphics

'2，定义一个Pen对象，用于绘制图形（轮廓线）

Dim MyPen As New Pen(Color.Black)

'3，定义一个Brush对象，用于填充图形（如果需要填充的话）

Dim MyBrush As New SolidBrush(Color.Orange)

MyGraphics.FillEllipse(MyBrush, 200, 200, 100, 100) '绘制一个实心圆，该圆在：直线x=200，y=200，x=200+100，y=200+100所划的矩形区域内

MyGraphics.DrawEllipse(MyPen, 200, 200, 100, 100) '绘制一个空心圆，该圆在：直线x=200，y=200，x=200+100，y=200+100所划的矩形区域内

VB.net的 使用画笔在窗体上绘制不同的图形的代码

首先引入System.Drawing和System.Drawing.Drawing2D

自己看得了

这里面说的有的可以填充的，是g.FillXXXX