Private Sub VideoPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles picOriginal.Paint Dim g As Graphics = e.Graphics Dim recta As Rectangle = New Rectangle(Xx(1), yy(1), hh(1), www(0)) Dim pen As Pen = New Pen(Color.FromArgb(128, 32, 100, 200), 1) Dim b As Brush = New SolidBrush(pen.Color) g.FillRectangle(b, recta) End Sub
Private Sub picOriginal_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picOriginal.MouseUp CALL PAINT EVENT? Catch ex As Exception Exit Sub End Try En sub
Quote:Calling this.Invalidate() will cause the Paint event to fire.
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)