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中如何画图？视频
相关评论：19445567161：VB.net中如何画图?
宁沾柏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()formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200...
19445567161：vb.net中如何把picturebox定义为画布
宁沾柏Dim huabu As Graphicshuabu = picturebox.CreateGraphics使用的时候还需要定义画笔 Dim pen As New Pen(Brushes.Black, 1)然后就可以画图了 huabu.DrawLine(pen, 0, 0, 10, 10)更多的关于绘图和坐标变换的东西可以参考 http:\/\/www.codesky.net\/article\/201001\/124261.html http:\/\/blog.csdn....
19445567161：vb.net中使用GDI画图,然后平移,可是平移之前的图还在,怎么去掉平移之前...
宁沾柏如果是简单的移动，先把图形绘制到大小和PictureBox的Bitmap上，然后再绘制到PictureBox就行。不过在VB.NET中用GDI绘制最好用BufferedGraphics图形缓冲区，速度马马虎虎（VB就这样了），但是不闪烁，不存在背景擦除的问题。
19445567161：vb.net怎样在当前已打开的AutoCAD画图? 最好有个判断语句, 如果CAD已打...
宁沾柏Private Function isopen() As AutoCAD.AcadApplication Try dim CADapp_temp AutoCAD.AcadApplication = GetObject(, "AutoCAD.Application")return CADapp_temp Catch ex As Exception Return Nothing End Try End Function '调用上面的函数,如果为nothing表示没有打开，否则打开并返回对象 ...
19445567161：vb.net 如何实现在drawpanel中画图显示后复制显示在picturebox上?请具 ...
宁沾柏drawpanel是什么东东，自定义控件吗？如果类似于picturebox,使用 '自动重绘要设为True，如果有这个属性的话DrawPanel.AutoRedraw = True'保存到变量Image img = DrawPanel.Image '直接设置Image属性即可PictureBox1.Image = img
19445567161：vb.net2005怎么做曲线统计图啊。
宁沾柏Private Sub form3_paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint '设定RECTANGLE结构变量，确定画图的范围及大小 Dim rect As Rectangle = New Rectangle(280, 20, 200, 200)Dim rect2 As Rectangle = New Rectangle(270, 10, 400...
19445567161：...调用excel根据点画出曲线图并显示在VB.NET里
宁沾柏你可以通过用VB.net控制excel，让excel生成曲线图，然后利用excelVBA将图输出，最后导入到VB.net就可以了。
19445567161：VB.net绘图具体如何设置双缓冲
宁沾柏VB.NET画图是不能设置双缓冲的，双缓冲是指窗体，从来没说是针对控件。不用graphic.clear清理重画就不会闪烁。你可以先把容器删了再重新建立一个再去画。简单举例：Graphics g;Pen p;Panel pl;构造函数初始化：p=new Pen(Color.Red,2);pl=panel1;造成闪烁的画法：g=pl.CreateGraphics();g.Clear...
19445567161：vb.net PictureBox和Panel区别?在画图的时候有什么区别?
宁沾柏PICTURE主要是用与图片显示与汇图，panel是个容器，主要是为了窗口排版与布局用的，可以在其中添加所有其它的控件！
19445567161：vb6 paintpicture及API Bitblt函数如何运用??
宁沾柏来进行修改，或者就是重新组建工程开发新工具。微软后来开发了VB的继任者Visual Basic .NET，同时也是.NET平台的一部分。VB.NET编程语言是一种真正的面向对象编程语言（VB4-VB6 只能称为基于对象而不是面向对象，最明显的特征就是 VB4-VB6 都不支持类的继承），和传统 Visual Basic 并不完全兼容。
问题描述:
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中如何画图？视频
相关评论：
宁沾柏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()formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200...
宁沾柏Dim huabu As Graphicshuabu = picturebox.CreateGraphics使用的时候还需要定义画笔 Dim pen As New Pen(Brushes.Black, 1)然后就可以画图了 huabu.DrawLine(pen, 0, 0, 10, 10)更多的关于绘图和坐标变换的东西可以参考 http:\/\/www.codesky.net\/article\/201001\/124261.html http:\/\/blog.csdn....
宁沾柏如果是简单的移动，先把图形绘制到大小和PictureBox的Bitmap上，然后再绘制到PictureBox就行。不过在VB.NET中用GDI绘制最好用BufferedGraphics图形缓冲区，速度马马虎虎（VB就这样了），但是不闪烁，不存在背景擦除的问题。
宁沾柏Private Function isopen() As AutoCAD.AcadApplication Try dim CADapp_temp AutoCAD.AcadApplication = GetObject(, "AutoCAD.Application")return CADapp_temp Catch ex As Exception Return Nothing End Try End Function '调用上面的函数,如果为nothing表示没有打开，否则打开并返回对象 ...
宁沾柏drawpanel是什么东东，自定义控件吗？如果类似于picturebox,使用 '自动重绘要设为True，如果有这个属性的话DrawPanel.AutoRedraw = True'保存到变量Image img = DrawPanel.Image '直接设置Image属性即可PictureBox1.Image = img
宁沾柏Private Sub form3_paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint '设定RECTANGLE结构变量，确定画图的范围及大小 Dim rect As Rectangle = New Rectangle(280, 20, 200, 200)Dim rect2 As Rectangle = New Rectangle(270, 10, 400...
宁沾柏你可以通过用VB.net控制excel，让excel生成曲线图，然后利用excelVBA将图输出，最后导入到VB.net就可以了。
宁沾柏VB.NET画图是不能设置双缓冲的，双缓冲是指窗体，从来没说是针对控件。不用graphic.clear清理重画就不会闪烁。你可以先把容器删了再重新建立一个再去画。简单举例：Graphics g;Pen p;Panel pl;构造函数初始化：p=new Pen(Color.Red,2);pl=panel1;造成闪烁的画法：g=pl.CreateGraphics();g.Clear...
宁沾柏PICTURE主要是用与图片显示与汇图，panel是个容器，主要是为了窗口排版与布局用的，可以在其中添加所有其它的控件！
宁沾柏来进行修改，或者就是重新组建工程开发新工具。微软后来开发了VB的继任者Visual Basic .NET，同时也是.NET平台的一部分。VB.NET编程语言是一种真正的面向对象编程语言（VB4-VB6 只能称为基于对象而不是面向对象，最明显的特征就是 VB4-VB6 都不支持类的继承），和传统 Visual Basic 并不完全兼容。
