1 Frage zu Capture-fenster

Um die Größe des Capture-Fensters in avicap32 mit VBA nachträglich zu ändern, kannst du die `SendMessage`-Funktion verwenden, um die `WM_CAP_SET_SCALE`-Nachricht an das Capture-Fenster zu senden. Hier ist ein Beispiel, wie das in VBA gemacht werden kann: 1. Deklariere die notwendigen API-Funktionen und Konstanten: ```vba Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare PtrSafe Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As LongPtr, ByVal nID As Long) As LongPtr Private Const WM_CAP_START = &H400 Private Const WM_CAP_SET_SCALE = WM_CAP_START + 53 ``` 2. Erstelle eine Funktion, um das Capture-Fenster zu erstellen und seine Größe zu ändern: ```vba Sub ChangeCaptureWindowSize() Dim hWndCapture As LongPtr Dim parentHWnd As LongPtr Dim newWidth As Long Dim newHeight As Long ' Setze die Größe des neuen Fensters newWidth = 640 newHeight = 480 ' Erstelle das Capture-Fenster parentHWnd = Application.hWndAccessApp hWndCapture = capCreateCaptureWindow("Capture Window", 0, 0, 0, newWidth, newHeight, parentHWnd, 0) If hWndCapture <> 0 Then ' Ändere die Größe des Capture-Fensters SendMessage hWndCapture, WM_CAP_SET_SCALE, newWidth, newHeight Else MsgBox "Fehler beim Erstellen des Capture-Fensters." End If End Sub ``` Dieses Beispiel zeigt, wie du ein Capture-Fenster erstellst und seine Größe nachträglich änderst. Beachte, dass `capCreateCaptureWindow` ein Fenster erstellt, das als Kindfenster des angegebenen Elternfensters (`parentHWnd`) fungiert. Die `SendMessage`-Funktion wird verwendet, um die Größe des Fensters zu ändern. Stelle sicher, dass du die richtigen Werte für `newWidth` und `newHeight` setzt, um die gewünschte Größe des Capture-Fensters zu erreichen.