vb.net画图代码 vbs代码画图

vb.net读取txt的数据作图问题

一、分析vb.net画图代码：

1vb.net画图代码，这一类随时间而变化的曲线图，通常把横轴作为时间，把纵轴作为相应的值，在这里就是密度值。

2，点的集合就是线；一组时间、密度值，对应一个点，把点连接起来就构成了线。

二、在VB.NET中作图，需要知道并解决几个问题vb.net画图代码：

1，与VB6一样，VB.NET中默认的坐标系统，左上角为坐标原点，X轴的正向为从左向右，Y轴的正向是从上向下。

为了使得它与数学中的坐标系统相一致，可以使用VB.NET中Graphics类的两个方法；

1、TranslateTransform----平移变换

格式：Graphics.TranslateTransform(dx,dy)

其中：dx 和 dy分别是Single数据类型

2、ScaleTransform----缩放变换

格式：Graphics.ScaleTransform(sx,sy)

其中：sx 和 sy分别是Single数据类型；

例如：为了符合数学中的一般格式，可以使用下述代码：

Graphics.ScaleTransform(1, -1)

这样就把Y轴的正方向给翻过来了。

三、VB.NET中绘制图形

1，绘制圆或椭圆

'绘制图形的三步曲

'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)

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

MyGraphics.FillEllipse(Brush, 200, 200, 100, 100)

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

MyGraphics.DrawEllipse(Pen, 200, 200, 100, 100)

注意：最后两个数值如果不等，就是绘制椭圆

当圆足够小，就是点了。

2，绘制直线

'1，获得一个Graphics对象

Dim MyGraphics As Graphics

MyGraphics = Me.CreateGraphics

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

Dim MyPen As New Pen(Color.Black)

MyGraphics.DrawLine(MyPen, 200, 200, 100, 100)

'或者直接用

Me.CreateGraphics.DrawLine(New Pen(Color.Black), 50, 50, 200, 200)

相关问答

Q1: vb.net 画图

用image,然后graphics.fromimage()

画完vb.net画图代码了这个是个定格vb.net画图代码的图片.

Q2: vb.net 画图对象问题

参考一下下面这段代码vb.net画图代码：

‘ 首先picturebox1 加载一张图像

FolderBrowserDialog1.Description = "选择图片文件夹导入图片"

FolderBrowserDialog1.ShowDialog()

path = FolderBrowserDialog1.SelectedPath()

If path = "" Then Return

strSrcFile = Dir(path  "\*.tif")

PictureBox1.Image = Image.FromFile(path  "\"  strSrcFile)

’  然后再在picturebox1中用graphic画图而不清空原图像

' 建立一个画图对象

Dim g As Graphics = Me.PictureBox1.CreateGraphics

‘ 定义画笔

Dim myPen As System.Drawing.Pen = New System.Drawing.Pen(Color.Blue)

’ 画出矩形框并且填充颜色（颜色保持50%vb.net画图代码的透明度vb.net画图代码，使得下面原来的图片背景能看得到）

g.DrawRectangle(myPen, New System.Drawing.Rectangle(50, 50, 30, 20))

g.FillRectangle(New SolidBrush(Color.FromArgb(50, Color.YellowGreen)), New System.Drawing.Rectangle(50, 50, 30, 20))

' 最后释放画图对象

g.Dispose()

效果大致如下图所示：

Q3: 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

Q4: vb.net 画图 如何保持图形

不用PictureBoxTest.Image属性vb.net画图代码，直接把图形绘制到PictureBoxTest上面就可以vb.net画图代码了。

Dim button As Integer = 0

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) _

    Handles Button1.Click

    Using g As Graphics = Graphics.FromHwnd(PictureBoxTest.Handle)

        Dim penRed As Pen = New Pen(Color.Red, 1)     '定义红色画笔  

        Dim penblue As Pen = New Pen(Color.Blue, 1) '定义蓝色画笔 

        If button = 0 Then

            g.DrawLine(penRed, 0, 0, 100, 100)

            button = 1

        ElseIf button = 1 Then

            g.DrawLine(penblue, 100, 100, 200, 200)

            button = 0

        End If

    End Using

End Sub

vb.net画图代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs代码画图、vb.net画图代码的信息别忘了在本站进行查找喔。