文件名称：基于VB6.0 摄像头监视系统
文件大小：96KB
文件格式：RAR
更新时间：2018-02-10 07:02:01
VB6.0 摄像头 监视系统
Private Sub MDIForm_Load() Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000) '设置窗体左边坐标 Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000) '设置窗体顶端坐标 Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500) '设置窗体宽度 Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500) '设置窗体高度 CreateFolder App.Path & "\TEMP" '调过函数创建临时文件夹 EnableMenu '调用过程设置各菜单的可用状态 sngTime = 0 '设置录制时长为0(不限时长) strFileBMP = App.Path & "\TEMP\TMP.BMP" '保存的图片文件名 strFileAVI = App.Path & "\TEMP\TMP.AVI" '保存的视频文件名 Me.sbStatusBar.Panels(1).Text = "摄像头版本：" & _ frmCamera.ezVidCap1.GetDriverVersion() '在状态栏显示摄像头型号 Load frmCamera '载入摄像头窗体 frmCamera.ezVidCap1.TimeLimitEnabled = False '禁止摄像头控件的录取时间限制 frmCamera.Hide '隐藏摄像头窗体 Load frmVideo '载入预览窗体 frmVideo.Show '显示预览窗体 mnuPre1.Checked = True '选中预览菜单 Me.tbToolBar.Buttons(1).Value = tbrPressed '设置“预览”按钮为按下状态 End Sub
【文件预览】：
基于VB6.0 摄像头监视系统
----IMAGES()
--------key.ico(766B)
--------全屏.jpg(10KB)
--------录制.jpg(10KB)
--------设置.jpg(10KB)
--------预览.jpg(10KB)
--------拍照.jpg(10KB)
--------停止.jpg(10KB)
--------Thumbs.db(14KB)
----摄像头监视系统.vbw(82B)
----MSSCCPRJ.SCC(199B)
----摄像头监视系统.vbp(1KB)
----OCX()
--------register.bat(21B)
--------unregister.bat(24B)
--------ezvidc60.ocx(112KB)
----FORM()
--------frmAbout.frx(778B)
--------frmMain.frx(60KB)
--------frmMain.log(231B)
--------frmMain.frm(17KB)
--------frmFull.frm(2KB)
--------frmFull.log(53B)
--------frmCaptureRate.frm(3KB)
--------frmSplash.frx(69KB)
--------frmTime.frm(3KB)
--------frmShow.log(159B)
--------frmSplash.frm(7KB)
--------frmDocument.frm(7KB)
--------frmCamera.frm(3KB)
--------frmShow.frm(9KB)
--------frmCamera.log(71B)
--------frmFile.frm(3KB)
--------frmAbout.frm(9KB)
----BAS()
--------Module1.bas(1KB)
----TEMP()
--------Thumbs.db(8KB)