![]() ![]() SendMessage(hHwnd, WM_CAP_SET_SCALE, True, 0) If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then HHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, 640, 480, 32, 0) If bReturn Then (strName.Trim)ĭim iHeight As Integer = picCapture.Height ![]() Const WM_CAP_DRIVER_CONNECT As Integer = WM_CAP + 10Ĭonst WM_CAP_DRIVER_DISCONNECT As Integer = WM_CAP + 11Ĭonst WM_CAP_EDIT_COPY As Integer = WM_CAP + 30Ĭonst WM_CAP_SET_PREVIEW As Integer = WM_CAP + 50Ĭonst WM_CAP_SET_PREVIEWRATE As Integer = WM_CAP + 52Ĭonst WM_CAP_SET_SCALE As Integer = WM_CAP + 53ĭeclare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Object) As Integerĭeclare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integerĭeclare Function DestroyWindow Lib "user32" (ByVal hndw As Integer) As Booleanĭeclare Function capCreateCaptureWindowA 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 Short, ByVal hWndParent As Integer, ByVal nID As Integer) As Integerĭeclare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriver As Short, ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, ByVal cbVer As Integer) As BooleanīReturn = capGetDriverDescriptionA(x, strName, 100, strVer, 100) ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |