VB.net与VB不同.
VB.net已经有专门绘图的类.
可以定义笔刷然后用Drawing类中的方法绘制.
Private Sub DrawEllipse()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
myPen.Dispose()
formGraphics.Dispose()
End Sub
Private Sub DrawRectangle()
.net ?其实还是很好绘制图形的
你可以看下?Graphics ?类
Dim d As New Bitmap(Me.Width, Me.Height) ?'一个图片吧
? ? Dim g As Graphics = Graphics.FromImage(d)'绘制 ?准备在这个图片是进行
然后 ?就是你绘制的东西了
线 就是 ?g.DrawLine()
复杂的就是 ? ? ?g.DrawBezier()
等 ?如果你用的是 VS的 ?编译 ?上面都有详细的参数说明
Dim?d?As?New?Bitmap(Me.Width,?Me.Height)
Dim?g?As?Graphics?=?Graphics.FromImage(d)
g.Dispose()
Me.BackgroundImage?=?d
第一段:分析:
①.,这一类随时间而变化的曲线图,通常把横轴作为时间,把纵轴作为相应的值,今天这一节就是密度值.
第二段:在VB.NET中作图,需要知道并解决几个问题:
为了使得它与数学中的坐标系统相一致,可以使用VB.NET中Graphics类的两个方法;
①.、TranslateTransform----平移变换
格式:Graphics.TranslateTransform(dx,dy)
其中:dx 和 dy分别是Single数据类型
格式:Graphics.ScaleTransform(sx,sy)
其中:sx 和 sy分别是Single数据类型;
例如:为了符合数学中的一般格式,可以使用下述代码:
Graphics.ScaleTransform(1, -1)
这样就把Y轴的正方向给翻过来了.
第三段:VB.NET中绘制图形
①.,绘制圆或椭圆
'绘制图形的三步曲
'1,获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = Me.CreateGraphics
Dim MyPen As New Pen(Color.Black)
Dim MyBrush As New SolidBrush(Color.Orange)
注意:最后两个数值如果不等,就是绘制椭圆
当圆足够小,就是点了.
'或者直接用
参考一下下面这段代码:
'?首先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)
'?最后释放画图对象
效果大致如下图所示:
以上就是土嘎嘎小编为大家整理的vb.net如何画图相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!