Form als Bild speichern

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Marceliboy.

    Genauere Info

    ich möchte meine Form, mit einer PictureBox, die meine Webcam anzeigt als *.jpg speichern
    Bisheriger Code der die Webcam anzeigt:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Public videoHandle As IntPtr
    5. Private Declare Auto Function SendMessage Lib "user32" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    6. Const EM_LINEFROMCHAR As Integer = &HC9
    8. Const EM_LINEINDEX As Integer = &HBB
    10. Private Declare Auto Function capCreateCaptureWindow Lib "avicap32.dll" (ByVal lpszWindowName As String, ByVal dwStyle As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hWndParent As IntPtr, ByVal nID As Integer) As IntPtr
    12. Private Const WS_CHILD As Integer = &H40000000
    13. Private Const WS_VISIBLE As Integer = &H10000000
    14. Private Const WM_USER As Short = &H400S
    15. Private Const WM_CAP_START As Short = &H400S
    16. Private Const WM_CAP_EDIT_COPY As Integer = (WM_CAP_START + 30)
    17. Private Const WM_CAP_DRIVER_CONNECT As Integer = (WM_CAP_START + 10)
    18. Private Const WM_CAP_SET_PREVIEWRATE As Integer = (WM_CAP_START + 52)
    19. Private Const WM_CAP_SET_OVERLAY As Integer = (WM_CAP_START + 51)
    20. Private Const WM_CAP_SET_PREVIEW As Integer = (WM_CAP_START + 50)
    21. Private Const WM_CAP_DRIVER_DISCONNECT As Integer = (WM_CAP_START + 11)
    22. Public Function CreateCaptureWindow(ByRef hWndParent As IntPtr, Optional ByRef x As Integer = 0, Optional ByRef y As Integer = 0, Optional ByRef nWidth As Integer = 320, Optional ByRef nHeight As Integer = 240, Optional ByRef nCameraID As Integer = 0) As IntPtr
    23. Dim previewHandle As IntPtr
    24. previewHandle = capCreateCaptureWindow("Video", WS_CHILD + WS_VISIBLE, x, y, nWidth, nHeight, hWndParent, 1)
    26. SendMessage(previewHandle, WM_CAP_DRIVER_CONNECT, nCameraID, 0)
    27. SendMessage(previewHandle, WM_CAP_SET_PREVIEWRATE, 30, 0)
    28. SendMessage(previewHandle, WM_CAP_SET_OVERLAY, 1, 0)
    29. SendMessage(previewHandle, WM_CAP_SET_PREVIEW, 1, 0)
    30. Return previewHandle
    31. End Function
    33. Public Function CapturePicture(ByRef nCaptureHandle As IntPtr) As System.Drawing.Image
    34. My.Computer.Clipboard.Clear()
    35. SendMessage(nCaptureHandle, WM_CAP_EDIT_COPY, 0, 0)
    37. Return My.Computer.Clipboard.GetImage
    38. End Function
    42. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    43. videoHandle = Me.CreateCaptureWindow(Me.PictureBox1.Handle)
    44. Dim Picture As System.Drawing.Image
    45. Picture = CapturePicture(videoHandle)
    46. Picture.Save(My.Computer.FileSystem.SpecialDirectories.Desktop + "\" + "pic.bmp")
    48. End Sub
    51. End Class

    Wenn Overlay genutzt wird, sollte der Screenshot nur ein einfarbiges Bild bringen. Also Overlay aus, AutoRedraw der Picturebox aus und dessen Grafik dann speichern. So habe ich damals Bilder für ein LCD digitalisiert. Allerdings progge ich nur in VB6 für den PC.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

Facebook
Telefonspende