|
Private r As RectangleF
Private m_image As Image = Image.FromFile("g:\picture.bmp")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try r = New RectangleF(0, 0, Me.ClientSize.Width, Me.ClientSize.Height) Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub
Private Sub mydrawimage() Try Dim g As Graphics = Me.CreateGraphics g.DrawImage(m_image, r) g.Dispose() Catch ex As Exception
End Try End Sub Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
mydrawimage()
End Sub
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
r = New RectangleF(0, 0, Me.ClientSize.Width, Me.ClientSize.Height)
mydrawimage() End Sub |
浙公网安备 33010602011771号