Tool wie z.B. Snipping-Tool

  • VB.NET

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von konjan.

    Tool wie z.B. Snipping-Tool

    Hallo @ all,

    ich möchte gerne ein Tool programmieren wie z.B. das Snipping-Tool von Microsoft.
    Mein Anliegen ist es jedoch, dass das Programm nicht zuerst einen screenshot erstellt und man dann auf diesem den bereich auswählen kann, den man haben möchte.

    Das heisst, wenn ich z.B. die F11 Taste betätige soll man wie z.B. beim Printkey eine Rectangle Funktion haben, mit welcher man dann den Bereich auswählen kann.

    Vielen Dank im Vorraus :)


    Mit freundlichen Grüßen
    Jan Konrad

    konjan schrieb:

    Vielen Dank im Vorraus
    Wofür bedankst du dich? Du hast ja nich mal eine Frage gestellt, auf die man antworten könnte. :|

    konjan schrieb:

    Mein Anliegen ist es jedoch, dass das Programm nicht zuerst einen screenshot erstellt und man dann auf diesem den bereich auswählen kann, den man haben möchte.
    So wird das aber üblicher Weise gemacht, denn ein Auswahlfenster benötigt (wie der Name schon sagt) ein eigenes Fenster. Das führt dazu, dass z.B. KOntextmenüs verschwinden und andere Objekte ihren Fokus verlieren.

    konjan schrieb:

    Das heisst, wenn ich z.B. die F11 Taste betätige soll man wie z.B. beim Printkey eine Rectangle Funktion haben, mit welcher man dann den Bereich auswählen kann.
    Schön, dass man das soll. Und jetzt? Möchtest du wissen, wie das geht? Was hast du bereits? Woran haperts?

    Schau mal da:
    stackoverflow.com/questions/31…uivalent-of-snipping-tool
    Von meinem iPhone gesendet

    mein Problem ist es, das Auswahlfenster zu programmieren. den Code für die Koordinaten der maus beim klicken und meim wieder loslassen habe ich bereits. ich habe ein Problem mit dem Auswahlfenster und wie das bild erzeugt werden soll, da es eben kein kompletten screenshot machen soll sondern direkt nur den gewählten bereich.

    Ich höffe das war nicht zu umständlich erklärt.

    mfg
    Jan

    konjan schrieb:

    Mein Anliegen ist es jedoch, dass das Programm nicht zuerst einen screenshot erstellt und man dann auf diesem den bereich auswählen kann, den man haben möchte.


    ahm..das Snipping -Tool von Windows 7 funktioniert genau so wie du es nachbauen willst? Du wählst zuerst den Bereich aus mittels Aufziehn eines Rechtecks und dann hast du den Screenshot.....
    Wer fragt, ist ein Narr für eine Minute. Wer nicht fragt, ist ein Narr sein Leben lang.

    Wenn Du den Bereich ziehen willst, leg ein unsichtbares Fenster über den gesamten Bildschirm und behandle dort die Mouse-Events.
    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!

    @datsspeed: Ich frage mich immer wieder, warum es solche Beiträge gibt. Da dieses Thema On-Topic ist, nehme ich an, das der Ersteller darauf abzielt, ein entsprechendes Tool selbst zu programmieren.
    „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

    -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

    @Lukas ich frage mich immer weshalb es solche beiträge wie deine gibt. Frag mal Dr. G. vom SampleScreenshoot tool (=freeware) gibt es zum teil auch sourcen offen die er dann auch nutzen könnte.

    lg

    @datsspeed und genau das ist das Problem die benutzen ALLE (auch das snipping tool die funktion, dass diese erst einen kompletten screenshot erstellen und man dann aus dem screenshot ausschneidet (das erkennt man daran dass der bildschirm einfriert).

    Der Grund warum ich selbst so ein Programm programmieren möchte ist, weil unsere Citrix Server nicht viel Zwischenspeicher besitzen und dadurch bei 24" Monitoren und 24bit Farben der Zwischenspeicher oft nicht reicht da zuerst ein kompletter Screenshot erstellt wird.
    Als übergangslösung haben wir nun auf 12bit umgestellt, aber das ist keine optimale Lösung.

    HolzShots subber Ding ;)
    [Beta] HolzShots v0.9.6.150

    Du musst immer daran denken, was unterscheidet mein Programm von den anderen. Was bringt die Leute dazu mein Programm zu verwenden.
    Ist mein Programm nur für mich / Familie / etc.....

    Warum das Rad neu erfinden wenn es das bereits gibt? Klar kannst du dabei Erfahrung und Wissen sammeln das ist auch ganz deine Entscheidung und Zeit.

    dennoch viel Erfolg, Spaß und Wissen beim Proggen

    Grüßle Marco

    So ich habe nun diese beiden Codes:
    Die Form1 ist die Hauptform, welche startet.

    VB.NET-Quellcode

    1. Public Class Form1
    2. Public x0, y0, x1, y1 As Integer
    3. Public w, h As Integer
    5. Public Sub form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. x0 = 0
    7. y0 = 0
    8. x1 = 0
    9. x1 = 0
    10. w = 300
    11. h = 200
    12. End Sub
    14. Public Function Screenshot() As Bitmap
    15. Dim b As New Bitmap(w, h)
    16. Try
    17. Dim g As Graphics = Graphics.FromImage(b)
    18. g.CopyFromScreen(x0, y0, x1, y1, New Size(w, h))
    19. b.Save("c:\Test.png", System.Drawing.Imaging.ImageFormat.Png)
    20. g.Dispose()
    21. Catch ex As Exception
    22. MsgBox(ex.ToString)
    23. End Try
    24. Return b
    25. End Function
    27. Public Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
    28. Me.Hide()
    29. Timer1.Enabled = True
    30. End Sub
    32. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    33. FormKlick.Show()
    34. Timer1.Enabled = False
    35. End Sub
    36. End Class


    Anschließend habe ich noch eine 2. Form (FormKlick) wo ich die Koordinaten per Mausklick hole:

    VB.NET-Quellcode

    1. Public Class FormKlick
    3. Public Sub FormKlick_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    5. Me.WindowState = FormWindowState.Maximized
    7. End Sub
    8. Public Sub nForm_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
    9. Form1.x0 = e.Location.X
    10. Form1.y0 = e.Location.Y
    11. End Sub
    13. Sub nForm_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
    14. Form1.x1 = e.Location.X
    15. Form1.y1 = e.Location.Y
    16. Form1.w = Form1.x1 - Form1.x0
    17. Form1.h = Form1.y1 - Form1.y0
    19. ' MsgBox("x0: " + Form1.x0.ToString)
    20. ' MsgBox("y0: " + Form1.y0.ToString)
    21. ' MsgBox("x1: " + Form1.x1.ToString)
    22. ' MsgBox("y1: " + Form1.y1.ToString)
    23. ' MsgBox("w: " + Form1.w.ToString)
    24. ' MsgBox("h: " + Form1.h.ToString)
    26. Me.Hide()
    27. Timer1.Enabled = True
    28. End Sub
    30. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    31. Form1.Screenshot()
    32. Form1.Show()
    33. Timer1.Enabled = False
    34. End Sub
    35. End Class


    Das Programm erstellt mir das Bild in der richtigen Größe, aber das Bild ist leer.
    Was mache ich hier falsch?!

    Pack das ganzen Screenshot-Zeug in die FormKlick.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class FormKlick
    2. Public x0, y0 As Integer
    3. Public w, h As Integer
    5. Private main As Form1
    7. Public Sub Init(frm As Form1)
    8. main = frm
    9. End Sub
    11. Public Sub FormKlick_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    12. Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    13. Me.WindowState = FormWindowState.Maximized
    14. End Sub
    15. Public Sub nForm_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
    16. x0 = e.Location.X
    17. y0 = e.Location.Y
    18. End Sub
    20. Sub nForm_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
    21. Dim x1, y1 As Integer
    22. x1 = e.Location.X
    23. y1 = e.Location.Y
    25. w = Math.Abs(x1 - x0)
    26. h = Math.Abs(y1 - y0)
    27. w = Math.Max(1, w)
    28. h = Math.Max(1, h)
    30. y0 = Math.Min(y0, y1)
    31. x0 = Math.Min(x0, x1)
    33. Me.Hide()
    34. Timer1.Enabled = True
    35. End Sub
    37. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    38. Timer1.Enabled = False
    39. Screenshot()
    40. main.Show()
    41. End Sub
    43. Public Function Screenshot() As Bitmap
    44. Dim b As New Bitmap(w, h)
    45. Dim g As Graphics = Graphics.FromImage(b)
    46. 'g.CopyFromScreen(x0, y0, x1, y1, New Size(w, h))
    47. g.CopyFromScreen(x0, y0, x0, y0, New Size(w, h))
    48. b.Save("c:\Temp\Test.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
    49. g.Dispose()
    51. Return b
    52. End Function
    53. End Class

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Public Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. Me.Hide()
    5. Timer1.Enabled = True
    6. End Sub
    8. Private klick As FormKlick
    10. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    11. If klick Is Nothing OrElse klick.IsDisposed Then
    12. klick = New FormKlick
    13. End If
    14. klick.Init(Me)
    15. If Not klick.Visible Then
    16. klick.Show()
    17. End If
    19. Timer1.Enabled = False
    20. End Sub
    21. End Class

    Fang ganz weit oben links an zu ziehen. Irgendwo ist da noch der Wurm drin.
    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!

    Es hat funktioniert!
    Es war alles richtig, nur bei dem CopyFromScreen musste ich etwas ändern:

    VB.NET-Quellcode

    1. g.CopyFromScreen(x0, y0, 0, 0, New Size(w, h))


    Schon hats funktioniert. Danke für die viele Hilfe :)
    Besonderen Dank an RodFromGermany

    mfg
    Jan

Facebook
Telefonspende