vbnet绘图消失的简单介绍

vb 绘图不显示，怎么回事？？

可以显示啊，不能显示的图形是坐标超出范围了，你可以在PicDRAW上查看坐标！

把图片控件的AutoReDraw设为True可以显示 Form_Load()

中的图形，以及以后来窗体刷新时图形不丢失。

相关问答

Q1: vb.net 程序绘图运行过程中图片不显示，程序运行完后才显示

你想的以及接近了，要达到你要的效果，需要使用多线程，写入数据库和显示绘图的结果各一个线程

Q2: VB中窗体绘图在最小化后消失，如何解决？

当窗体被隐藏之后，在窗体重新出现时，系统将触发Paint事件，重绘整个窗体，此时如果Paint方法为空，那么您使用graphic对象绘制的图将全部消失。

要使您绘制的图能始终出现，您就必须在Paint事件触发时，在其方法中添加绘制窗体的代码。由于您的图是任意的，所以您可以通过使用一个全局的数组或数据结构存储在Form上的图像信息，然后在Form_Paint方法中读取图像信息并重绘。如果Form上绘制了新的图像，那么您可以将这个图像信息添加到全局的数组或数据结构中，以保证在Form上始终是正确的图像。

另外：

VB.NET2008中的AutoRedraw问题

.NET 2009-05-04 15:55:22 阅读44 评论0 字号：大中小

VB6中的PictureBox控件的有AutoRedraw属性,设置为True,则窗口最小化或被覆盖后重新打开窗口,原来的图形还在(使用Line等函数画的图形),但VB.NET没有了这个属性,为此烦了好久,MSDN上也没有找到明确的代用方法,上星期去书店翻了翻,终于明白怎么会事.

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim Bmp As Bitmap

Dim Gra As Graphics

Dim Pen As New Pen(Color.White)

Bmp = New Bitmap(PictureBox1.Width, PictureBox1.Height)

Gra = Graphics.FromImage(Bmp)

Dim Dia As Single = Math.Min(PictureBox1.Height, PictureBox1.Width) * 0.5!

Gra.DrawArc(Pen, (PictureBox1.Width - Dia) / 2.0!, (PictureBox1.Height - Dia) / 2.0!, Dia, Dia, 0, 360)

Gra.DrawLine(Pen, 0, 0, PictureBox1.Width / 2.0!, PictureBox1.Height / 2.0!)

PictureBox1.Image = Bmp

End Sub

上面代码画的图形在最小化后重新打开图形还在,下面的则没有了.

Private Sub PictureBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.DoubleClick

Dim Gra As Graphics = PictureBox1.CreateGraphics()

Dim Pen As New Pen(Color.Magenta)

Dim Dia As Single = Math.Min(PictureBox1.Height, PictureBox1.Width) * 0.5!

Gra.DrawRectangle(Pen, (PictureBox1.Width - Dia) / 2.0!, (PictureBox1.Height - Dia) / 2.0!, Dia, Dia)

End Sub

希望对你有帮助！

Q3: vb.net 画图 如何保持图形

不用PictureBoxTest.Image属性，直接把图形绘制到PictureBoxTest上面就可以了。

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

Q4: VB.net做的程序在进程结束后托盘图标不会消失，需要鼠标滑过才会消失，怎么处理这个问题？

只有windows 7等以上版本的操作系统才可以自动消失。其他windows NT内核版本，例如：windows 2003,windows xp,windows 2000等老版本，要让图标托盘消失，必须至少要两种方法：

1：退出程序时，在代码里调用删除托盘图标的代码。

2：程序崩溃时或者是手动结束进程后，图标遗留在右下角，只能用鼠标移动到上面，它才会消失。

所以，必须要在代码里面写上退出托盘的程序，因为很多人当然也包括我自己，有时候编写代码，只编写了启动托盘的代码，没有写退出托盘的代码，以为程序退出了，托盘图标会自己消失。而事实上不是这样的，托盘的启动和退出，必须要自己来显式的在程序里面实现。启动托盘实现后，必须要实现退出托盘。

所以建议大家在编写托盘图标程序时，在退出程序的时候，显式的调用删除托盘图标的代码就可以了。