正文
vb.net绘制实心圆的简单介绍
小程序:扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序
【扫一扫了解最新限行尾号】
复制小程序
vb.net读取txt的数据作图问题
一、分析:
1,这一类随时间而变化的曲线图,通常把横轴作为时间,把纵轴作为相应的值,在这里就是密度值。
2,点的集合就是线;一组时间、密度值,对应一个点,把点连接起来就构成了线。
二、在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)
vb 中 pset (500,800) 这个点,在vb.net中怎么写,求代码,谢谢
在VB.NET用绘制实心圆来完成vb.net绘制实心圆:
下面代码是用黑色在PictureBox1控件上vb.net绘制实心圆,'绘制一个实心圆vb.net绘制实心圆,该圆在:直线x=200,y=200,x=200+4,y=200+4所划的矩形区域内。
PictureBox1.CreateGraphics.FillEllipse(Brushes.Black, 200, 200, 4, 4)
绘制空心圆代码如下:
PictureBox1.CreateGraphics.DrawEllipse(Pens.Black, 200, 300, 4, 4)
注意:当最后两个数值不一样时,绘制椭圆。
在VB.Net中如何画实心的圆
在PictureBox1上画红色vb.net绘制实心圆的实心圆vb.net绘制实心圆:
Private Sub DrawCircle(ByVal cp As Point, ByVal radius As Integer, ByVal color As Brush)
Dim gr As Graphics
gr = PictureBox1.CreateGraphics
Dim rect As Rectangle = New Rectangle(cp.X - radius, cp.Y - radius, 2 * radius, 2 * radius)
gr.DrawEllipse(Pens.Black, rect)
gr.FillEllipse(color, rect)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
DrawCircle(New Point(120, 100), 80, Brushes.Red)
End Sub
VB.NET如何在PICTUREBOX里画一个点,或者说是一个可以规定半径的实心圆?我用的是Visual Basic 2005....
自己用GDI+画的 无论什么什么尺寸的picturebox都行
不过别太小了o(∩_∩)o
代码放在哪里自己决定啊
最好是放在 picturebox的resize时间里
每次picturebox大小改变都重画一次坐标
Dim b As New Bitmap(PictureBox1.Width, PictureBox1.Height)
Dim g As Graphics = Graphics.FromImage(b)
g.Clear(Color.White)
Dim p As New Pen(Color.Black)
p.EndCap = Drawing2D.LineCap.ArrowAnchor
g.DrawLine(p, 30, PictureBox1.Height - 30, 30, 30)
g.DrawLine(p, 30, PictureBox1.Height - 30, PictureBox1.Width - 30, PictureBox1.Height - 30)
Dim i As Integer
Dim bs As New SolidBrush(Color.Green)
Dim po As New Point
po.X = 0
po.Y = PictureBox1.Height - 35
For i = 700 To 1000 Step 50
g.DrawString(i, Me.Font, bs, po.X, po.Y)
g.DrawLine(p, po.X + 28, po.Y + 5, po.X + 30, po.Y + 5)
po.Y -= (PictureBox1.Height - 100) / 6
Next
po.X = 30
po.Y = PictureBox1.Height - 30
For i = 0 To 40 Step 5
g.DrawString(i, Me.Font, bs, po.X, po.Y + 5)
g.DrawLine(p, po.X, po.Y + 2, po.X, po.Y)
po.X += (PictureBox1.Width - 100) / 8
Next
PictureBox1.Image = b
vb 2013上怎么用 picturebox 画圆?(不要百度的答案)我为什么用不了Picture?求指点。
你vb.net绘制实心圆的代码是vb6.0的格式vb.net绘制实心圆,在vb2013的net模式下是无法通过调试的
vb2013中要用GDI+的方法,比如
Public Class Form1
Dim wid As Integer
Dim hgt As Integer
Dim bm As Bitmap
Dim g As Graphics
'下面是画坐标轴
Private Function draw_coordinate() As Boolean '画坐标轴
g.DrawLine(Pens.Red, -250, 0, 250, 0)
g.DrawLine(Pens.Green, 0, -250, 0, 250)
'画y轴刻度
For i = -250 To 250 Step 2
g.DrawLine(Pens.Green, -1, i, 1, i)
Next
For i = -250 To 250 Step 2
g.DrawLine(Pens.Red, i, -1, i, 1)
Next
PictureBox1.Image = bm
PictureBox1.Refresh()
Return True
End Function
'下面是画点(也是实心圆)
Private Function DrawCircle(ByVal cp As Point, ByVal radius As Integer, ByVal color As Brush) As Boolean '画实心圆
Dim rect As Rectangle = New Rectangle(cp.X - radius, cp.Y - radius, 2 * radius, 2 * radius)
g.DrawEllipse(Pens.Red, rect)
g.FillEllipse(color, rect)
PictureBox1.Image = bm
PictureBox1.Refresh()
Return True
End Function
Public Sub DrawEmptyCircle(ByVal mypen As Pen, ByVal Zeropoint As Point, ByVal r As Single) '画空心圆
'画圆
'Zeropoint:圆心,所在坐标系的原点为窗体左上角,向下向右为Y、X轴正方向。
'r:半径
g.DrawEllipse(mypen, Zeropoint.X - r, Zeropoint.Y - r, 2 * r, 2 * r)
PictureBox1.Image = bm
PictureBox1.Refresh()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
wid = PictureBox1.ClientSize.Width
hgt = PictureBox1.ClientSize.Height
bm = New Bitmap(wid, hgt)
g = Graphics.FromImage(bm)
g.TranslateTransform(250, 250) '坐标平移
g.ScaleTransform(1, -1) 'X轴不变,反转Y轴
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '演示画轴,画圆
draw_coordinate()
' DrawCircle(New Point(0, 0), 100, New System.Drawing.SolidBrush(Color.Red))'画实心圆
DrawEmptyCircle(New Pen(Color.Red), New Point(0, 0), 100) '画空心圆---圆心(0,0),半价100
End Sub
End Class
vb.net绘制实心圆的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于、vb.net绘制实心圆的信息别忘了在本站进行查找喔。