vb源代码vb小程序：摄像头视频图像的监控、截图、录像(改进：第二页).docx

vb源代码vb小程序：摄像头视频图像的监控、截图、录像（改进：第二页） Private Sub SetDir() ????Dim nStr As String ????If Trim(ctDir) = quot;quot; Then ctDir = App.Path amp; quot;\videosquot; 如果路径不存在，用默认文件名 C:\CAPTURE.AVI ????nStr = quot;设置录像保存的文件夹。quot; amp; vbCrLf amp; quot;输入“lt;gt;”表示使用默认文件夹：quot; amp; vbCrLf amp; App.Path amp; quot;\videosquot; ????nStr = Trim(InputBox(nStr, quot;录像保存的文件夹quot;, ctDir)) ????If nStr = quot;quot; Then Exit Sub ????ctDir = nStr ????If ctDir = quot;lt;gt;quot; Or ctDir = quot;lt;默认gt;quot; Then ctDir = quot;quot; End Sub Private Sub SetFile() ????Dim nStr As String, nF As String ???? ????nF = String(255, quot; quot;) ????SendMessage ctCapWin, WM_Cap_File_Get_File, Len(nF), ByVal nF ????nF = GetStrLeft(nF, vbNullChar) ??? ????If Trim(ctF) = quot;quot; Then ctF = quot;lt;默认gt;quot; 如果路径不存在，用默认文件名 C:\CAPTURE.AVI ????nStr = quot;设置录像保存的文件名(不带路径)。quot; amp; vbCrLf amp; quot;输入“lt;gt;”表示使用默认文件名：日期-时间.扩展名quot; ????nStr = Trim(InputBox(nStr, quot;录像保存的文件名quot;, ctF)) ????If nStr = quot;quot; Then Exit Sub ????ctF = nStr ????If ctF = quot;lt;gt;quot; Or ctF = quot;lt;默认gt;quot; Then ctF = quot;quot; ???? ????SendMessage ctCapWin, WM_Cap_File_Set_File, 0, ByVal ctF End Sub Private Function GetStrLeft(nStr As String, Fu As String) As String ???去掉 Fu 及后面的字符 ???Dim S As Long ???S = InStr(nStr, Fu) ???If S gt; 0 Then GetStrLeft = Left(nStr, S - 1) Else GetStrLeft = nStr End Function Private Function CheckDirFile(nDirFile) As Long ???检查目录或文件夹，返回值：0不存在，1是文件，2是目录 ???Dim nStr As String, nD As Boolean ???nStr = Dir(nDirFile, 23) ???If nStr = quot;quot; Then Exit Function ???nD = GetAttr(nDirFile) And 16 ???If nD Then CheckDirFile = 2 Else CheckDirFile = 1 End Function Private Sub Form_Load() ????Dim W As Long, H As Long ????Call SetCaption(quot;quot;) ?? ????Me.ScaleMode = 3: Picture1.ScaleMode = 3 ????Picture1.BorderStyle = 0 ????Set Command1(0).Container = Picture1 ????Set Check1(0).Container = Picture1 ????Call ReadSaveSet 读取用户设置 ????装载数组控件 ????AddKj Command1, quot;连quot;, quot;Conn