Introduction To Screen Capture - نسخة قابلة للطباعة

كود :

Public Interface IBeltGlyph



    Property Bounds As Rectangle

    Property Visible As Boolean

    ReadOnly Property GlyphCursor As Cursor

    ReadOnly Property GlyphPosition As BeltGlyphHitPosition

    Function HitBeltGlyph(pt As Point) As Boolean

    Sub PaintBeltGlyph(g As Graphics, glyphBackColor As Color, glyphBorderColor As Color, glyphGradientColor As Color)



End Interface ' IBeltGlyph

كود :

Public Interface IBeltBehaviour



    Property BeltBackColor As Color

    Property BeltBorderColor As Color

    Property BeltGradientColor As Color

    Property BeltBounds As Rectangle

    Property BeltDisplayBounds As Rectangle

    Property BetlText As String



    ReadOnly Property BeltDefaultLocation As Point

    ReadOnly Property BeltDefaultSize As Size

    ReadOnly Property BeltMinimumSize As Size

    ReadOnly Property BeltMinimumThickness As Single

    ReadOnly Property BeltMaximumThickness As Single



    Function GetBeltScreenBounds() As Rectangle

    Function GetBeltWorkingBounds() As Rectangle



    Function IsBeltOnMaximum(rect As Rectangle) As Boolean

    Function IsBeltOnMinimum(rect As Rectangle) As Boolean

    Function TranslateBelt(pt As Point, rect As Rectangle) As Rectangle

    Function BeltToClient(rect As Rectangle) As Rectangle

    Function BeltToClient(rect As Rectangle, minWidth As Single, maxWidth As Single) As Rectangle



    Function BeltToScreen(rect As Rectangle, beltWidth As Single) As Rectangle

    Function BeltToScreen(rect As Rectangle) As Rectangle

    Function GetBeltDeskTopPosition(x As Integer, y As Integer, w As Integer, h As Integer) As Rectangle

   

    Sub DisoposeBeltButtons()

    Sub UpdateBeltButtons()

    Sub AttachBeltButtons()



    Sub ReSizeDragBelt(position As BeltGlyphHitPosition, pt As Point)

    Sub ReSizeDragBelt(position As BeltGlyphHitPosition, dx As Integer, dy As Integer)

    Sub UpdateBeltGlyph(rect As Rectangle)

    Sub InitializeBeltWindow()

    Sub OnBeltLocationChanged(beltLocation As Point)

    Sub OnBeltSizeChanged(beltSize As Point)



    Sub BeltCloseButtonClick(sender As Object, e As EventArgs)

    Sub BeltCaptureButtonClick(sender As Object, e As EventArgs)

    Sub BeltStopCaptureButtonClick(sender As Object, e As EventArgs)

    Sub BeltMouseMove(e As MouseEventArgs)

    Sub BeltMouseDown(e As MouseEventArgs)

    Sub BeltMouseUp(e As MouseEventArgs)

    Sub BeltPaint(e As PaintEventArgs)



End Interface

كود :

Public Class ClientGlyph

    Implements IBeltGlyph



#Region " Field "



    Private isVisible As Boolean = True

    Private rect As Rectangle = New Rectangle(0, 0, 0, 0)



#End Region



#Region " Property "





    Public Property Bounds As Rectangle Implements IBeltGlyph.Bounds

        Get

            Return Me.rect

        End Get

        Set(value As Rectangle)

            Me.rect = value

        End Set

    End Property



    Public ReadOnly Property GlyphCursor As Cursor Implements IBeltGlyph.GlyphCursor

        Get

            Return Cursors.Arrow

        End Get

    End Property



    Public ReadOnly Property GlyphPosition As BeltGlyphHitPosition Implements IBeltGlyph.GlyphPosition

        Get

            Return BeltGlyphHitPosition.BeltClient

        End Get

    End Property



    Public Property Visible As Boolean Implements IBeltGlyph.Visible

        Get

            Return Me.isVisible

        End Get

        Set(value As Boolean)

            Me.isVisible = value

        End Set

    End Property



#End Region



#Region " Method "



    Public Function HitBeltGlyph(pt As Point) As Boolean Implements IBeltGlyph.HitBeltGlyph

        Return Me.isVisible AndAlso Me.Bounds.Contains(pt)

    End Function



    Public Sub PaintBeltGlyph(g As Graphics, glyphBackColor As Color, glyphBorderColor As Color, glyphGradientColor As Color) Implements IBeltGlyph.PaintBeltGlyph

        ' Do not paint anything to keep the clientglyph area clear during screen capture

    End Sub



#End Region



End Class

كود :

  Private Sub BeltCaptureButtonClick(sender As Object, e As EventArgs) Implements IBeltBehaviour.BeltCaptureButtonClick

        'Me.clientGlyph.Visible = False

        'Me.Invalidate(Me.clientGlyph.Bounds)

        System.Threading.Thread.Sleep(500)

        Dim g As Graphics = CType(Nothing, Graphics)

        Try

            Dim captured As Bitmap = New Bitmap(Me.clientGlyph.Bounds.Width, Me.clientGlyph.Bounds.Height)

            g = Graphics.FromImage(captured)

            g.CopyFromScreen(Me.clientGlyph.Bounds.X, Me.clientGlyph.Bounds.Y, 0, 0, captured.Size)

            Dim fileName As String = ".\captured .jpeg"

            captured.Save(fileName)

        Catch ex As Exception

        Finally

            g.Dispose()

        End Try

    End Sub