Snipping Tool zeichnet extrem langsam

  • VB.NET
  • .NET (FX) 4.0

Es gibt 24 Antworten in diesem Thema. Der letzte Beitrag () ist von Blackn0va.

    Snipping Tool zeichnet extrem langsam

    Hallo,

    ich bin gerade dabei ein kleines Tool zu schreiben, dieses tool i st eine Trayapp, mithilfe dieser app kann man ein Support Ticket erstellen und ein Screenshot anfügen.
    Nun zu meinem Problem, das Zeichnen Funktioniert, also das Markieren mit der maus, aber es ist extrem langsam, mit:

    VB.NET-Quellcode

    1. Me.DoubleBuffered = True

    Funktioniert es leider nicht, hat irgend jemand eine Idee dazu? Hier der Code vom Snipping.vb


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class SnippingTool
    3. Private Shared _Screen As Screen
    5. Private Shared BitmapSize As Size
    7. Private Shared Graph As Graphics
    9. Private Structure MultiScreenSize
    10. Dim minX As Integer
    11. Dim minY As Integer
    12. Dim maxRight As Integer
    13. Dim maxBottom As Integer
    14. End Structure
    16. Private Shared Function FindMultiScreenSize() As MultiScreenSize
    18. Dim minX As Integer = Screen.AllScreens(0).Bounds.X
    19. Dim minY As Integer = Screen.AllScreens(0).Bounds.Y
    21. Dim maxRight As Integer = Screen.AllScreens(0).Bounds.Right
    22. Dim maxBottom As Integer = Screen.AllScreens(0).Bounds.Bottom
    24. For Each aScreen As Screen In Screen.AllScreens
    25. If aScreen.Bounds.X < minX Then
    26. minX = aScreen.Bounds.X
    27. End If
    29. If aScreen.Bounds.Y < minY Then
    30. minY = aScreen.Bounds.Y
    31. End If
    33. If aScreen.Bounds.Right > maxRight Then
    34. maxRight = aScreen.Bounds.Right
    35. End If
    37. If aScreen.Bounds.Bottom > maxBottom Then
    38. maxBottom = aScreen.Bounds.Bottom
    39. End If
    40. Next
    41. Dim m_MultiScreenSize As MultiScreenSize
    42. With m_MultiScreenSize
    43. .minX = minX
    44. .minY = minY
    45. .maxBottom = maxBottom
    46. .maxRight = maxRight
    47. End With
    48. Return m_MultiScreenSize
    49. End Function
    50. Public Shared Function Snip() As Image
    51. Dim m_MultiScreenSize As MultiScreenSize = FindMultiScreenSize()
    53. Dim bmp As New Bitmap(m_MultiScreenSize.maxRight - m_MultiScreenSize.minX,
    54. m_MultiScreenSize.maxBottom - m_MultiScreenSize.minY,
    55. System.Drawing.Imaging.PixelFormat.Format32bppPArgb)
    56. Dim gr As Graphics = Graphics.FromImage(bmp)
    58. Graph = gr
    60. gr.SmoothingMode = Drawing2D.SmoothingMode.None
    61. BitmapSize = bmp.Size
    63. Using snipper = New SnippingTool(bmp)
    65. snipper.Location = New Point(m_MultiScreenSize.minX, m_MultiScreenSize.minY)
    67. If snipper.ShowDialog() = DialogResult.OK Then
    68. Return snipper.Image
    69. End If
    71. End Using
    73. Return Nothing
    75. End Function
    77. Public Sub New(ByVal screenShot As Image)
    78. InitializeComponent()
    79. Me.DoubleBuffered = True
    80. Me.BackgroundImage = screenShot
    81. 'Me.BackgroundImageLayout = ImageLayout.None
    82. Me.ShowInTaskbar = False
    83. Me.StartPosition = FormStartPosition.Manual
    84. Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
    85. End Sub
    86. Public Property Image() As Image
    87. Get
    88. Return m_Image
    89. End Get
    90. Set(ByVal value As Image)
    91. m_Image = value
    92. End Set
    93. End Property
    94. Private m_Image As Image
    96. Private rcSelect As New Rectangle()
    97. Private pntStart As Point
    99. Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
    100. '*** Start Snip bei MausUp
    102. If e.Button <> MouseButtons.Left Then
    103. Return
    104. End If
    106. pntStart = e.Location
    107. rcSelect = New Rectangle(e.Location, New Size(0, 0))
    108. Me.Invalidate()
    109. End Sub
    110. Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs)
    111. '*** Modiviziere die Selection ***
    113. If e.Button <> MouseButtons.Left Then
    114. Return
    115. End If
    116. Dim x1 As Integer = Math.Min(e.X, pntStart.X)
    117. Dim y1 As Integer = Math.Min(e.Y, pntStart.Y)
    118. Dim x2 As Integer = Math.Max(e.X, pntStart.X)
    119. Dim y2 As Integer = Math.Max(e.Y, pntStart.Y)
    120. rcSelect = New Rectangle(x1, y1, x2 - x1, y2 - y1)
    121. Me.Invalidate()
    122. End Sub
    124. Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
    125. '*** Bild Vervollständigen mit MouseUp ***
    126. If rcSelect.Width <= 0 OrElse rcSelect.Height <= 0 Then
    127. Return
    128. End If
    129. Image = New Bitmap(rcSelect.Width, rcSelect.Height)
    130. Using gr As Graphics = Graphics.FromImage(Image)
    131. gr.DrawImage(Me.BackgroundImage, New Rectangle(0, 0, Image.Width, Image.Height),
    132. rcSelect, GraphicsUnit.Pixel)
    133. End Using
    134. DialogResult = DialogResult.OK
    135. End Sub
    136. Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    137. '*** Zeichnet die aktuelle auswahl ***'
    138. Using br As Brush = New SolidBrush(Color.FromArgb(120, Color.White))
    139. Dim x1 As Integer = rcSelect.X
    140. Dim x2 As Integer = rcSelect.X + rcSelect.Width
    141. Dim y1 As Integer = rcSelect.Y
    142. Dim y2 As Integer = rcSelect.Y + rcSelect.Height
    143. e.Graphics.FillRectangle(br, New Rectangle(0, 0, x1, Me.Height))
    144. e.Graphics.FillRectangle(br, New Rectangle(x2, 0, Me.Width - x2, Me.Height))
    145. e.Graphics.FillRectangle(br, New Rectangle(x1, 0, x2 - x1, y1))
    146. e.Graphics.FillRectangle(br, New Rectangle(x1, y2, x2 - x1, Me.Height - y2))
    147. End Using
    148. Using pen As New Pen(Color.Red, 3)
    149. e.Graphics.DrawRectangle(pen, rcSelect)
    150. End Using
    151. End Sub
    152. Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
    153. '*** Erlaubt das abbrechen miit der Escape Taste ***
    154. If keyData = Keys.Escape Then
    155. Me.DialogResult = DialogResult.Cancel
    156. End If
    157. Return MyBase.ProcessCmdKey(msg, keyData)
    158. End Function
    160. Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
    161. MyBase.OnLoad(e)
    162. Dim m_MultiScreenSize As MultiScreenSize = FindMultiScreenSize()
    163. Me.Size = New Size(m_MultiScreenSize.maxRight - m_MultiScreenSize.minX,
    164. m_MultiScreenSize.maxBottom - m_MultiScreenSize.minY)
    166. Graph.CopyFromScreen(m_MultiScreenSize.minX, m_MultiScreenSize.minY, 0, 0, BitmapSize)
    167. End Sub
    169. End Class



    Der Aufruf erfolgt mit

    VB.NET-Quellcode

    1. '*** Screenshot erzeugen ***
    2. Dim Bild As Image = SnippingTool.Snip()

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Blackn0va“ ()

    Also ich weiß jetzt das

    VB.NET-Quellcode

    1. InitializeComponent()

    schuld daran ist das es nicht DoubleGebuffert wird, lösche ich also die Zeile und mache noch die Me.FormBorderStyle = FormBorderStyle.None dann den DoubleBuffered auf true funktioniert es, aber das bringt bei jedem Start eine andere Überraschung mit sich.

    @Blackn0va
    Sieh Dir mal die Control.DrawToBitmap()-Methode an, damit wird üblicherweise ein Screenshot geholt.
    msdn.microsoft.com/de-de/libra…awtobitmap(v=vs.110).aspx
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Erstmal danke für die Antwort,

    nicht das ich es falsch verstehe.

    Ich habe eine Form für das snipping, das bei Active den gesamten desktop (2 monitore) auf eine milchige Form quasi kopiert, und mit der maus wähle ich den bereich aus den ich gespeichert haben möchte.

    Wo ist da dann g enau der unterschied zuControl.DrawToBitmap().

    Ich bin noch recht neu und tu mich noch ziehmlich schwer..


    Wie würde das dann in etwa aussehen?

    VB.NET-Quellcode

    1. Using pen As New Pen(Color.Red, 2)
    2. e.Graphics.DrawRectangle(pen, rcSelect)
    3. End Using


    VB.NET-Quellcode

    1. Public Sub DrawToBitmap (
    2. bitmap As Bitmap,
    3. rcSelect As Rectangle
    4. )


    iwie so ^

    @Blackn0va Sorry, falscher Befehl.
    Mit DrawToBitmap() kannst Du ein Control oder Deine Form fotografieren.
    Einen Screenshot machst Du mit Graphics.CopyFromScreen.
    Dieses Beispiel fotografiert den 1. und den 2. Screen am und speichert die Bilder im Temp-Verzeichnis:

    VB.NET-Quellcode

    1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    2. Dim bmp As Bitmap = Screenshot(0)
    3. bmp.Save("c:\Temp\Test0.png", System.Drawing.Imaging.ImageFormat.Png)
    4. bmp = Screenshot(1)
    5. bmp.Save("c:\Temp\Test1.png", System.Drawing.Imaging.ImageFormat.Png)
    6. End Sub
    8. Function Screenshot(index As Integer) As Bitmap
    9. Dim img As Bitmap
    10. Dim x0 As Integer
    11. If index = 0 Then
    12. ' Koordinaten des 1. Screens
    13. x0 = 0
    14. img = New Bitmap(Screen.AllScreens(0).WorkingArea.Width, Screen.AllScreens(0).WorkingArea.Height)
    15. Else
    16. ' Koordinaten des 2. Screens
    17. x0 = Screen.AllScreens(0).WorkingArea.Width
    18. img = New Bitmap(Screen.AllScreens(1).WorkingArea.Width, Screen.AllScreens(1).WorkingArea.Height)
    19. End If
    21. Using g As Graphics = Graphics.FromImage(img)
    22. g.CopyFromScreen(x0, 0, 0, 0, img.Size)
    23. g.Dispose()
    24. End Using
    25. Return img
    26. End Function

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    aber ich möchte den ausschnitt mit der maus Zeichnen :)


    das zeichnen und die koordinaten mit der maus zu bestimmen klappt ja, es wird auch das bild verarbeitet und gespeichert, das problem ist, das die bewegung der maus, also wenn ich den ausschnitt mit der maus Markiere, das hackt wie die sau, da gehen nicht mehr wie 4fps (gefühlt).

    Blackn0va schrieb:

    aber ich möchte den ausschnitt mit der maus Zeichnen
    Aber dann musst Du an der Stelle, wo ich die Screen-Begrenzungen eintrage, einfach die Mauskoordinaten eintragen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @Blackn0va Vielleicht geht das so einfacher:
    Mach Dir eine Form, die fast durchsichtig ist (Parameter Opacity), und in der kannst Du dann mit den MouseDown und MouseUp-Events Deine Koordinaten festlegen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    genau so hab ich das ja gemacht, aber er mekkert nur ..:

    VB.NET-Quellcode

    1. Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
    2. '*** Bild Vervollständigen mit MouseUp ***
    3. If rcSelect.Width <= 0 OrElse rcSelect.Height <= 0 Then
    4. Return
    5. End If
    7. Image = New Bitmap(rcSelect.Width, rcSelect.Height)
    8. 'Using gr As Graphics = Graphics.FromImage(Image)
    9. ' gr.DrawImage(Me.BackgroundImage, New Rectangle(0, 0, Image.Width, Image.Height),
    10. ' rcSelect, GraphicsUnit.Pixel)
    11. 'End Using
    13. Using g As Graphics = Graphics.FromImage(Image)
    14. g.CopyFromScreen(0, 0, Image.Width, Image.Height, Image.Size)
    15. g.Dispose()
    16. End Using
    18. DialogResult = DialogResult.OK
    19. End Sub

    Blackn0va schrieb:

    aber er mekkert nur
    Welche Zeile?
    Welche Fehlermeldung?
    Wie ist Image deklariert?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Also 8 -11 so funktioniert es aber wackelt wie sau, und 13 - 16 is die eben umgebaute version die nicht funktioniert.

    Ja das Image ist als Bitmap deklariert :whistling:


    Hier mal die ganze form

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class SnippingTool
    2. Shadows Text As String
    4. Private Shared _Screen As Screen
    6. Private Shared BitmapSize As Size
    8. Private Shared Graph As Graphics
    10. Private Structure MultiScreenSize
    11. Dim minX As Integer
    12. Dim minY As Integer
    13. Dim maxRight As Integer
    14. Dim maxBottom As Integer
    16. End Structure
    18. Private Shared Function FindMultiScreenSize() As MultiScreenSize
    20. Dim minX As Integer = Screen.AllScreens(0).Bounds.X
    21. Dim minY As Integer = Screen.AllScreens(0).Bounds.Y
    23. Dim maxRight As Integer = Screen.AllScreens(0).Bounds.Right
    24. Dim maxBottom As Integer = Screen.AllScreens(0).Bounds.Bottom
    26. For Each aScreen As Screen In Screen.AllScreens
    27. If aScreen.Bounds.X < minX Then
    28. minX = aScreen.Bounds.X
    29. End If
    31. If aScreen.Bounds.Y < minY Then
    32. minY = aScreen.Bounds.Y
    33. End If
    35. If aScreen.Bounds.Right > maxRight Then
    36. maxRight = aScreen.Bounds.Right
    37. End If
    39. If aScreen.Bounds.Bottom > maxBottom Then
    40. maxBottom = aScreen.Bounds.Bottom
    41. End If
    42. Next
    43. Dim m_MultiScreenSize As MultiScreenSize
    44. With m_MultiScreenSize
    45. .minX = minX
    46. .minY = minY
    47. .maxBottom = maxBottom
    48. .maxRight = maxRight
    49. End With
    50. Return m_MultiScreenSize
    51. End Function
    53. Public Shared Function Snip() As Image
    55. Dim m_MultiScreenSize As MultiScreenSize = FindMultiScreenSize()
    57. Dim bmp As New Bitmap(m_MultiScreenSize.maxRight - m_MultiScreenSize.minX,
    58. m_MultiScreenSize.maxBottom - m_MultiScreenSize.minY,
    59. System.Drawing.Imaging.PixelFormat.Format32bppPArgb)
    60. Dim gr As Graphics = Graphics.FromImage(bmp)
    62. Graph = gr
    64. gr.SmoothingMode = Drawing2D.SmoothingMode.None
    65. BitmapSize = bmp.Size
    67. Using snipper = New SnippingTool(bmp)
    68. snipper.Location = New Point(m_MultiScreenSize.minX, m_MultiScreenSize.minY)
    70. If snipper.ShowDialog() = DialogResult.OK Then
    71. Return snipper.Image
    72. End If
    74. End Using
    76. Return Nothing
    78. End Function
    80. Public Sub New(ByVal screenShot As Image)
    82. InitializeComponent()
    83. Me.DoubleBuffered = True
    84. Me.BackgroundImage = screenShot
    85. 'Me.BackgroundImageLayout = ImageLayout.None
    86. Me.ShowInTaskbar = False
    87. Me.StartPosition = FormStartPosition.Manual
    88. Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
    90. End Sub
    91. Public Property Image() As Image
    92. Get
    93. Return m_Image
    94. End Get
    95. Set(ByVal value As Image)
    96. m_Image = value
    97. End Set
    98. End Property
    99. Private m_Image As Image
    101. Private rcSelect As New Rectangle()
    102. Private pntStart As Point
    104. Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
    105. '*** Start Snip bei MausDown
    106. If e.Button <> MouseButtons.Left Then
    107. Return
    108. End If
    110. pntStart = e.Location
    111. rcSelect = New Rectangle(e.Location, New Size(0, 0))
    112. Me.DoubleBuffered = True
    113. Me.Invalidate()
    114. End Sub
    115. Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs)
    116. '*** Modiviziere die Selection ***
    118. If e.Button <> MouseButtons.Left Then
    119. Return
    120. End If
    121. Dim x1 As Integer = Math.Min(e.X, pntStart.X)
    122. Dim y1 As Integer = Math.Min(e.Y, pntStart.Y)
    123. Dim x2 As Integer = Math.Max(e.X, pntStart.X)
    124. Dim y2 As Integer = Math.Max(e.Y, pntStart.Y)
    125. rcSelect = New Rectangle(x1, y1, x2 - x1, y2 - y1)
    126. Me.Invalidate()
    127. End Sub
    129. Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
    130. '*** Bild Vervollständigen mit MouseUp ***
    131. If rcSelect.Width <= 0 OrElse rcSelect.Height <= 0 Then
    132. Return
    133. End If
    135. Image = New Bitmap(rcSelect.Width, rcSelect.Height)
    136. 'Using gr As Graphics = Graphics.FromImage(Image)
    137. ' gr.DrawImage(Me.BackgroundImage, New Rectangle(0, 0, Image.Width, Image.Height),
    138. ' rcSelect, GraphicsUnit.Pixel)
    139. 'End Using
    141. Using g As Graphics = Graphics.FromImage(Image)
    142. g.CopyFromScreen(Me.BackgroundImage, New Graphics(0, 0, Image.Width, Image.Height, Image.Size))
    143. g.Dispose()
    144. End Using
    146. DialogResult = DialogResult.OK
    147. End Sub
    148. Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    149. '*** Zeichnet die aktuelle auswahl ***'
    150. Using br As Brush = New SolidBrush(Color.FromArgb(120, Color.White))
    151. Dim x1 As Integer = rcSelect.X
    152. Dim x2 As Integer = rcSelect.X + rcSelect.Width
    153. Dim y1 As Integer = rcSelect.Y
    154. Dim y2 As Integer = rcSelect.Y + rcSelect.Height
    155. e.Graphics.FillRectangle(br, New Rectangle(0, 0, x1, Me.Height))
    156. e.Graphics.FillRectangle(br, New Rectangle(x2, 0, Me.Width - x2, Me.Height))
    157. e.Graphics.FillRectangle(br, New Rectangle(x1, 0, x2 - x1, y1))
    158. e.Graphics.FillRectangle(br, New Rectangle(x1, y2, x2 - x1, Me.Height - y2))
    159. End Using
    161. '*** Wír zeichnen mit der Maus mit einem 2px Breiten Stift das gwünschte Bild
    162. Using pen As New Pen(Color.Red, 2)
    163. e.Graphics.DrawRectangle(pen, rcSelect)
    164. End Using
    166. End Sub
    167. Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
    168. '*** Erlaubt das abbrechen miit der Escape Taste ***
    169. If keyData = Keys.Escape Then
    170. Me.DialogResult = DialogResult.Cancel
    171. End If
    172. Return MyBase.ProcessCmdKey(msg, keyData)
    173. End Function
    175. Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
    176. MyBase.OnLoad(e)
    177. Dim m_MultiScreenSize As MultiScreenSize = FindMultiScreenSize()
    178. Me.Size = New Size(m_MultiScreenSize.maxRight - m_MultiScreenSize.minX,
    179. m_MultiScreenSize.maxBottom - m_MultiScreenSize.minY)
    180. Graph.CopyFromScreen(m_MultiScreenSize.minX, m_MultiScreenSize.minY, 0, 0, BitmapSize)
    181. End Sub
    183. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    185. '*** Label nach 5 Sekunden ausblenden ***
    186. Me.Label1.Text = ""
    187. Me.Label1.Enabled = False
    189. End Sub
    191. End Class




    Dabei glaube ich das es an Zeile 82/83 liegt, denn, sobald ich die Form initialisiere mit

    VB.NET-Quellcode

    1. InitializeComponent()


    funktioniert das DoubleBuffered nicht mehr. Komentiere ich es aus also die initialisierung funktioniert douublebuffered.. iwo is der Wurm drinne

    Nach dem das Bild gemacht wirde, wird in einer weiteren box das Bild in klein Vorgestellt und der User entscheidet sich für dieses Bild oder er macht ein neues, erst dann wird gespeichert, und die email generiert.

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Blackn0va“ ()

    Blackn0va schrieb:

    Also 8 -11 so funktioniert es aber wackelt wie sau, und 13 - 16 is die eben umgebaute version die nicht funktioniert.
    Worauf beziehen sich die Zahlen?
    Mit InitializeComponent() wird die GUI erstellt.
    ===
    Wenn Du viel Quelltext postest, mach da bitte einen
    Spoiler anzeigen
    Spoiler
    drumherum.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    auf den hier :) sorry

    Blackn0va schrieb:

    genau so hab ich das ja gemacht, aber er mekkert nur ..:

    VB.NET-Quellcode

    1. Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
    2. '*** Bild Vervollständigen mit MouseUp ***
    3. If rcSelect.Width <= 0 OrElse rcSelect.Height <= 0 Then
    4. Return
    5. End If
    7. Image = New Bitmap(rcSelect.Width, rcSelect.Height)
    8. 'Using gr As Graphics = Graphics.FromImage(Image)
    9. ' gr.DrawImage(Me.BackgroundImage, New Rectangle(0, 0, Image.Width, Image.Height),
    10. ' rcSelect, GraphicsUnit.Pixel)
    11. 'End Using
    13. Using g As Graphics = Graphics.FromImage(Image)
    14. g.CopyFromScreen(0, 0, Image.Width, Image.Height, Image.Size)
    15. g.Dispose()
    16. End Using
    18. DialogResult = DialogResult.OK
    19. End Sub

    Blackn0va schrieb:

    VB.NET-Quellcode

    1. g.Dispose()
    kannste streichen, dafür ist das Using da.
    Ansonsten sehe ich da keinen funktionalen Unterschied.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Blackn0va schrieb:

    project zukommen lassen
    Klar, hänge es, bereinigt (ohne bin- und obj-Ordner) als ZIP an Deinen Post.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Guten Morgen allerseitz :)

    Aslo ich hab das jetzt mal mit FillRegion versucht, aber das Wackelt genau so, vlt hab ich es auch falsch gemacht, was ich eher glaube :)

    VB.NET-Quellcode

    1. Dim fillRect As New Rectangle(x1, y1, x2, y2)
    3. Dim fillRegion As New [Region](fillRect)
    5. '*** Fillregion würde hier besser passen
    6. e.Graphics.FillRegion(br, fillRegion)


    wie würdet ihr das FillRectangle in FillRegion umschreiben?

    '*Alt

    VB.NET-Quellcode

    1. e.Graphics.FillRectangle(br, New Rectangle(0, 0, x1, Me.Height))
    2. e.Graphics.FillRectangle(br, New Rectangle(x2, 0, Me.Width - x2, Me.Height))
    3. e.Graphics.FillRectangle(br, New Rectangle(x1, 0, x2 - x1, y1))
    4. e.Graphics.FillRectangle(br, New Rectangle(x1, y2, x2 - x1, Me.Height - y2))


    '*Neu

    VB.NET-Quellcode

    1. e.Graphics.FillRegion(br, New Rectangle(x1, y1, x2, y2) ? Funktioniert leider nicht.


    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Blackn0va“ ()

    Blackn0va schrieb:

    wie würdet ihr das FillRectangle in FillRegion umschreiben?
    Gar nicct.
    Erstell eine Region mit dem vollen Rechteck und exclude dann das kleine Rechteck.

    VB.NET-Quellcode

    1. Dim reg = New System.Drawing.Region(DEIN_GROSSES_RECHTECK)
    2. reg.Exclude(DEIN_KLEINES_RECHTECK)
    3. e.Graphics.FillRegion(br, reg)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Moin :)

    danke für deine Tips, aber ich kann das irgendwie n icht umsetzen, da reicht es noch nicht :)
    es wird doch machbar sein, das das nicht wackelt, sondern eine flüssige zeichnung ist :(

    Er Zeichnet auf jeden fall schonmal was..

    VB.NET-Quellcode

    1. Dim reg = New Region(New Rectangle(x1, y2, x2 - x1, Me.Height - y2))
    2. reg.Exclude(rcSelect)
    3. e.Graphics.FillRegion(br, reg)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Blackn0va“ ()

Facebook
Telefonspende