【導讀】機也可組成一套智能數(shù)字化監(jiān)視系統(tǒng).或將監(jiān)視畫面保存為BMP圖片格式。另外，還支持全屏幕的現(xiàn)實方式，時監(jiān)視畫面可是范圍更大，圖。片看起來更清晰。本軟件可作為個人用戶、企業(yè)門衛(wèi)、員工信息采集等處使用。本系統(tǒng)投資小，對于有計算機的用戶，只需購置一個USB攝像頭即可（大。功能實用，提供錄像、拍照、回放功能。通過對監(jiān)視系統(tǒng)需要完成的功能進行分析，以及參照其他監(jiān)視系統(tǒng)的功能，隨時顯示監(jiān)視畫面；可設置錄制視頻的時長，滿時自動停止；統(tǒng)的可行性分析，為企業(yè)決策作依據(jù)。項目提出者；xxxxxxx公司。時間內完成本系統(tǒng)的開發(fā)。本系統(tǒng)作為免費軟件，免費提供給廣大用戶使用，對此項不作分析。

　　

【正文】 行時間控件 28. End Sub 第 1316 行處理輸入自定義比例時的情況。 第 1825 行根據(jù) PICTUREBOX 控件的尺寸，重新定義窗體的尺寸和各控件的顯示 位置。 （ 6） 在自定義比例文本框的 KEYPRESS 事件中編寫代碼，控制只能輸入 09之間的數(shù)字，當按回車健時，設置顯示比例，具體代碼如下： 1. Private Sub txtOther_KeyPress(KeyAscii As Integer) 2. If KeyAscii = 13 Then 39。若按回車鍵 3. Call txtOther_Validate(False) 39。調用過程，完成顯示比例設置 4. ElseIf KeyAscii = Asc(0) Or KeyAscii = Asc(9) Then 39。若輸入的不是 0~9 的數(shù)值 5. KeyAscii = 0 39。取消輸入值 6. End If 7. End Sub （ 7） 在自定義比例的文本框中將顯示比例輸入完成后，將執(zhí)行以下代碼設置 PICTUREBOX 的大小，同時調整窗體的大小。具體代碼如下： 1. Private Sub txtOther_Validate(Cancel As Boolean) 2. = False 39。禁 止時鐘控件 3. If Val() = 0 Then = 100 39。若輸入的值非法，設置其值為 100 4. = * Val() / 100 39。設置圖片控件的寬度 5. = * Val() / 100 39。設置圖片控件的高度 6. = + + 200 39。設置框架控件的坐標 7. If vbMaximized Then 39。若窗體不是最大化狀態(tài) 8. = + + 400 39。設置窗體寬度 9. = + + 800 39。設置窗體高度 10. If + + 800 Then 39。若窗體小于框架 11. = + + 800 39。設置窗體的高度 12. End If 13. End If 14. = True 39。允許時鐘控件 15. End Sub （ 8） 在 PICTUREBOX 控 件中雙擊時，將顯示全屏窗體 FRMFULL,在全屏模式下查看監(jiān)視效果。具體的代碼如下： 1. Private Sub picVideo_DblClick() 39。雙擊圖片控件 2. = False 39。禁止時鐘控件 3. vbModal 39。顯示全屏窗體 4. = True 39。允許時鐘控件 5. End Sub （ 9） 如果關閉當前預覽窗體，將執(zhí)行以下代碼，設置主窗體中的“預覽”菜單和按鈕的狀態(tài)。 1. Private Sub Form_Unload(Cancel As Integer) 2. (1).Value = tbrUnpressed 39。彈起工具欄中的預覽按鈕 3. = False 39。取消預覽菜單的選中狀態(tài) 4. End Sub 全屏窗體 “全屏”窗體中的控件很簡單，只有一個 PICTUREBOX 和一個計時器控件，如圖片 1011 所示，窗體各控件的屬性如表 103 所示。 圖 1011 全屏窗體 表 103 “全屏”窗體控件表 控件名稱 屬性 屬性值 控件名稱 屬性 屬性值 From 名稱 optRatio Timer1 名稱 timer1 Caption 全屏 Interval 10 BorderStyle 0None PictureBox 名稱 picFull 布置好窗體各控件的位置后，即可開始編寫代碼。 （ 1） 在窗體中定義一個模塊變量，用來保存圖片的臨時的文件名。 1. Dim strTemp As String 39。模塊變量， 保存臨時文件 （ 2） 在窗體的 LOAD 事件中編寫代碼，設置 PICTUREBOX 控件的寬度和高度和屏幕寬度和高度相同，就是說要占滿全屏幕，并設置臨時的文件名，具體的如下： 1. Private Sub Form_Load() 2. = 0 39。設置窗體無邊框 3. = 39。設置 PictureBox 控件為滿屏狀態(tài) 4. = 5. strTemp = amp。 \TEMP\T amp。 Format(Now, yyyymmddhhmmss) amp。 .tmp 39。設置臨時文件名 6. End Sub （ 3） 和“預覽”窗體相似，在全屏窗體的計時器控件中編寫代碼，從FRMCAMERA 窗體的 EZVIDCAP1 控件中捕獲單針的圖片，在顯示到PICTUREBOX 的窗體中，具體的代碼如下： 1. Private Sub timer1_Timer() 39。時鐘控件 2. With 3. If .CapSingleFrame Then 39。獲取一個單幀 4. 39。清空圖片控件 5. .SaveDIB strTemp 39。保存當前幀到緩沖文件 6. LoadPicture(strTemp), 0, 0, , 39。繪制圖片到圖片控件 7. 39。繪制保存的文件到圖片控件 8. Kill strTemp 39。刪除捕獲文件 9. End If 10. End With 11. End Sub （ 4） 在全屏的狀態(tài)下，雙擊 PICTUREBOX 控件可以退出全屏的窗體，具體的代碼如下： 1. Private Sub picFull_DblClick() 39。雙擊圖片控件 2. = False 39。禁止時鐘控件 3. Unload Me 4. End Sub 回放窗體 “回放”窗體用來顯示錄制的視頻片段，以及抓拍的圖片，此窗體如圖片 1012所示，窗 體各個控件的屬性如表 104 所示。 表 104 “回放”窗體控件表 控件名稱 屬性 屬性值 控件名稱 屬性 屬性值 From 名稱 frmShow CommandButton1 名稱 cmdPlay Caption 回放 Caption 循環(huán)圖片 ComboBox 名稱 cmbType CommandButton2 名稱 cmdDelete FileListBox 名稱 filShow Caption 刪除 Picturebox 名稱 pic1 CommandButton3 名稱 cmdDeleteAll WindowsMediaPlayer 名稱 wmp1 Caption 刪除所有 Visible False CommandButton4 名稱 cmdClose Timer 名稱 timer1 Caption 關閉 Interval 1000 圖 1012 回放窗體 在此窗體中，使用 WINDOWSMEDIAPLAYER 控件播放錄制的視頻片段，默認情況如下，此窗體用來查看圖 片，因此， WINDOWSEDIAPLAYER 控件初始設置為隱藏狀態(tài)。 布置好窗體的各個控件的位置之后，即可開始編寫代碼。 （ 1） 在 窗 體 的 LOAD 事 件 中 進 行 初 始 化 的 操 作 ， 設 置WINDOWSMEDIAPLAYER 控件的坐標和大小，并設置文件列表控件的初始值，具體的代碼如下： 第 36 行設置 WINDOWSMEDIAPLAYER 控件的坐標上和顯示圖片的PICTUREBOX 控件相同。 第 910 行設計文件列表控件顯示擴展名為 BMP 的圖片文件，并設置顯示文件的路徑。 第 1116 行給組合框添加顯示的類型數(shù)據(jù)，第 17 行調用 REFRESHH 過程刷新數(shù)據(jù)。 （ 2） REFRESHLIST 過程根據(jù)顯示類型的不同，分別設置各個控件的不同狀態(tài)，刷新顯示的數(shù)據(jù)，具體的代碼如下： 第 49 行處理回放的圖片，就是組合框中第 1 項中的那種情況，設置“循環(huán)圖片”按鈕可用，關閉 WINDOWSMEDIALPAYER 控件，并設置基為隱藏狀態(tài)，同時顯示 PICTUREBOX 控件，以顯示圖片。 第 1114 行處理回放圖片的視頻，就是組合框中第二項中的那種情況，設置“循環(huán)圖片”按鈕不可用，隱藏 PICTUREBOX 控件，同時顯示W(wǎng)INDOWSMEDIAPLAYER 控件，準備 播放選中的視頻片段。 第 1622 行根據(jù)文件列表是否有文件，決定兩個“刪除”按鈕的使用狀態(tài)。 （ 3） 在組合框中選擇回放不同的類型時，將分別設置文件列表框的那些字符竄，讓文件的列表框只顯示對應的類型的文件，具體的代碼如下： （ 4） 當在文件列表單擊選擇某一個文件名時，將根據(jù)顯示的類型決定是顯示圖片，還是播放視頻，具體的代碼如下： 第 49 行根據(jù)回放的類型不同，分別進行不同的處理。如果是回放的是圖片，就執(zhí)行第 5 行將圖片繪制到 PICTUREBOX 控件中，如果是回放的是視頻，就執(zhí)行第 78 行，將回放的文件設置給控件WINDOWSMEDIAPLAYER,并調用此控件中的方法開始播放視頻。 （ 5） 當在回放圖片時，單擊“循環(huán)圖片”的按鈕，可自動切換顯示文件列表框中的各個圖片，此按鈕的代碼如下： 如果要循環(huán)顯示圖片，只需要執(zhí)行第 3行允許計時器控件運行就可以，反之，就執(zhí)行第 7 行禁止計時器控件。 （ 6） 給計時器控件的事件編寫代碼，從文件列表框中一個一個的顯示圖片，具體的代碼如下： （ 7） 當文件列表中有文件時，兩個刪除按鈕都變?yōu)榭捎脿顟B(tài)，單擊“刪除”按鈕，可刪除選 中的文件（圖片或視頻都可以）此按鈕的代碼如下： （ 8） 單擊“刪除所有”按鈕，可刪除文件列表框中的列出的所 以的文件（圖片或視頻都可以）此按鈕的代碼如下： 第 711 行通過循環(huán)刪除文件列表框中的文件，在循環(huán)中每次執(zhí)行第 8行選中的文件列表框中的第 1 個文件，然后執(zhí)行刪除操作。 第八章 設計輔助窗體 在本系統(tǒng)中，除了上一節(jié)介紹的 4 個主要窗體以外，還需要制作一些輔助窗體，用來進行系統(tǒng)的設置，本節(jié)介紹這些窗體的設計。 設置幀率 在主窗體中選擇菜單“設置；設置 幀率 ”命令，將顯示設置 幀率 窗體，用來設置錄制的視頻時的 幀率 。此窗體如圖片 1013 所示，各控件的屬性如表 105所示。 圖 1013 設置幀率窗體 表 105 “設置幀率”窗體控件表 控件名稱 屬性 屬性值 控件名稱 屬性 屬性值 From 名稱 frmCaptureRate TextBox 名稱 txtRate Caption 設置幀率 CommandButton1 名稱 cmdOK VScrollBar 名稱 VScroll1 Caption 確定 Max 1 CommandButton2 名稱 cmdExit Min 100 Caption 退出 布置好窗體各控件的位置后，即可開始編寫 代碼。 （ 1） 在窗體的 LOAD 事件中編寫代碼，將 FRMCAMERA 窗體中 EZVIDCAP1 控件原來的 幀率 顯示在文本框中，同時設置滾動條的值和文本框相同，具體的代碼如下： （ 2） 在文本框的 KEYPRESS 事件中編寫代碼，只接收輸入 09 之間的數(shù)據(jù)，具體的代碼如下： （ 3） 當在文本框中輸入數(shù)字后，可以將輸入的值賦值給滾動條控件，使兩個控件中的值同步，具體的代碼如下： （ 4） 當單擊滾動條上下按鈕時，將滾動條的值填入文本框，讓文本框的內容隨滾動條變化，具體的代碼如下： （ 5） 當設置參數(shù)完畢后，單擊“確定”按鈕即可將輸入的值設置為 幀率 ，此按鈕的代 碼如下： 第 35 行檢查輸入的 幀率 是否正確。 第 6 行將輸入的 幀率 數(shù)據(jù)設置到 FRMCAMERA 窗體 EZVIDCAP1 控件的對應屬性中，即可完成相應的設置。 設置保存文件 在選擇菜單“文件；視頻文件”命令和“文件圖片”命令時，都將顯示設置文件保存位置和名稱的窗體，分別用來設置保存視頻文件和圖片文件位置和名稱。窗體如圖片 1014 所示，各個控件的屬性如表 106 所示。