vn.net 输出问题

来源:百度知道 编辑:UC知道 时间:2024/06/10 21:33:10
以下是我的代码:

Public Class Form1
Declare Auto Function GetDC Lib "user32.dll" (ByVal hwnd As Integer) As IntPtr
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim p As System.IntPtr = GetDC(0)
Dim png As New Bitmap("e:\bg.png")
Dim g As Graphics = Graphics.FromHdc(p)
g.DrawImage(png, 1000, 100, png.Width, png.Height)
End Sub
End Class

但为什么输出后图片闪一下消失,或象花屏一样的
感谢楼下同志,不仅仅是输出图像,关键是在窗体以外输出一个半透明的PNG,

只是输出后就消失或花屏。

Public Class Form1
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim png As New Bitmap("e:\bg.png")
Dim g As Graphics = Me.CreateGraphics
g.DrawImage(png, 1000, 100, png.Width, png.Height)
g.Dispose
End Sub
End Class

另:我记得貌似还有AutoRedraw=True