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

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

成都创新互联服务项目包括泸州网站建设、泸州网站制作、泸州网页制作以及泸州网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，泸州网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到泸州省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

自己看销链派得了亏贺

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

有关vb点虐 里的hatchbrush

Imports System.Drawing.Drawing2D

Public Class Form1

Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click

'定义一个 Graphics对象

'调用窗体的CreateGraphics 方法创建 Graphics 对象

Dim g As Graphics

g = Me.CreateGraphics

李嫌 '创建用实心菱形图案进行绘制，并使用红色作为前景色，蓝色作为背景色的画笔

Dim aHatchBrush As HatchBrush = New HatchBrush(HatchStyle.SolidDiamond, Color.Red, Color.Blue)

核物

'创建矩形的位置和大小

Dim x As Integer = 0

Dim y As Integer = 0

Dim width As Integer = 150

Dim height As Integer = 200

'调用图形方法FillRectangle 将定义的矩形绘制到创建Graphics 对象上

哪氏手 g.FillRectangle(aHatchBrush, x, y, width, height)

End Sub

End Class

vb点虐 绘制实时温度曲线

这个要用GDI+画。要看你点虐 版薯配本。

以下是VS2005中的顷启一段代码。

Me.PictureBox1.Height = 450

Me.PictureBox1.Width = 880

Dim gr As Graphics '定义画布

Dim bp As New Bitmap(880, 450) '定义位雀手如图,并进行赋值

Dim p As New Pen(Color.Black) '定义画笔

p.Width = 2 '宽度2

p.DashStyle = Drawing2D.DashStyle.Solid '样式直线

PictureBox1.Image = bp

gr = Graphics.FromImage(PictureBox1.Image)

gr.FillRectangle(Brushes.White, New Rectangle(0, 0, PictureBox1.Width, PictureBox1.Height))

gr.DrawLine(p, a, b, a, .Height - b) '绘制纵坐标

gr.DrawLine(p, a, .Height - b, .Width - a, .Height - b) '绘制横坐标

如何用VB.NET画同心圆

窗体上添加一个按钮，在该按钮的单击事件里编写代码如下：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'声明窗体的Me.CreateGraphics对象

Dim MyGraphics As Graphics = Me.CreateGraphics

Dim Cx As Integer = 150 '圆正哪心的X坐标

Dim Cy As Integer = 150 '圆心的Y坐标

Dim R As Integer '圆的半径

'绘制半径为R的圆

For R = 5 To 100 Step 5

MyGraphics.DrawEllipse(Pens.Black, New Rectangle(Cx - R, Cy - R, 2 * R, 2 * R))

Next

End Sub

‘用黑色画笔绘制一组同心圆，半径从5开始，增量为5。

说明：

DrawEllipse是VB.Net的Graphics类的绘制椭圆的方法；他有几种格式，上面使用的是一种；

DrawEllipse（画笔的颜色，绘制椭圆所需要闷清碰的矩形区域）

其中：绘制椭圆所需要的矩形区域，如果被定义为正方形，就演变成绘制圆，定义该区域由死个数值确定，第1个数值，确定蚂谈该区域左上角的X坐标，第2个数值，确定该区域左上角的Y坐标，第3个数值，确定该区域的宽度，第4个数值，确定该区域的高度。

例如1：

DrawEllipse(Pens.Black, New Rectangle(150, 150, 50, 50))

就是以圆心坐标为（100,100），绘制半径为50 的圆。其实在VB.NET中，是告诉系统在以左上角坐标（150,150），边长为50的正方形里绘制内切圆。理解了是在正方形里绘制内切圆，就可以通过数学计算，知道如何绘制了。

同理例如2：

DrawEllipse(Pens.Black, New Rectangle(150, 150, 100, 50))

就是以圆心坐标为（100,100），绘制半径为50 的圆。其实在VB.NET中，是告诉系统在以左上角坐标（150,150），长轴为100，短轴为50的内切椭圆。

文章题目：vb点虐 画笔 vbs 画图
标题来源：http://azwzsj.com/article/ddpjejg.html