vb.net画图保存 vbnet savefiledialog用法

vb.net 如何实现在drawpanel中画图显示后复制显示在picturebox上?请具体说明

drawpanel是什么东东，自定义控件吗？如果类似于picturebox,使用

'自动重绘要设为True，如果有这个属性的话

DrawPanel.AutoRedraw = True

'保存到变量

Image img = DrawPanel.Image 

'直接设置Image属性即可

PictureBox1.Image = img

相关问答

Q1: vb.net picture 保存图片

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '好处：画的图刷新不会消失

PictureBox1.Image = Nothing

Dim wid As Integer = PictureBox1.ClientSize.Width

Dim hgt As Integer = PictureBox1.ClientSize.Height

Dim bm As New Bitmap(wid, hgt)

Dim g As Graphics = Graphics.FromImage(bm)

'画图代码，比如下面的直线

g.DrawLine(Pens.Red, 10, 10, 500, 10)

'画图代码

PictureBox1.Image = bm

PictureBox1.Refresh()

g.Dispose()

PictureBox1.Image.Save("C:\1.jpg")

End Sub

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

Q3: vb.net 绘图，重绘知识

继承（Inherits）控件就可以重写它vb.net画图保存的属性和方法vb.net画图保存，图标可以在paint中重绘，用gdi，工具主要在drawing和drawing2d中。

combobox弹出vb.net画图保存的框增加图标吗vb.net画图保存？个人看法可能需要得到那个句柄，才可以重绘，但那个好像是一体的，不知道能不能弄到句柄。

textbox可以自定义高度。只是以行高度为单位，改变字体大小即可，没必要重写吧。

vb.net画图保存我也自学，感觉基础容易学，进阶资料少。循序渐进也没序可循，基本是在摸索。

都是想到什么问题，就立下一个目标，然后攻破他，结果可能是尝试几天后，发现目标超出能力范围。

晦涩是相对的，实践出真知，多动手，基础就好了。

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

Q5: vb.net 用timer触发画图时 如何让上一次绘制的图形保留下来

没试过。也许这样能行：画新图时强制使前一秒的屏幕不刷新重画。具体怎么实现继续探索。

关于vb.net画图保存和vbnet savefiledialog用法的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。