亚洲春色中文字幕久久久-三上亚,一吻二脱三床四吻胸,国产真实伦对白视频全集,在线毛片观看,精品成品入口黄网,国产毛aⅴ片久久久,亚洲AV色香蕉一区二区三区老师,萧皇后A级艳片,色情日本视频更新,99久久亚洲精品日本无码

標題: CCD采集控件 vb源代碼 [打印本頁]
作者: 周星星2017    時間: 2017-7-18 14:00
標題: CCD采集控件 vb源代碼
CCD采集控件的界面顯示：


vb源程序如下:
  1. VERSION 5.00
  2. Object = "{DF6D6558-5B0C-11D3-9396-008029E9B3A6}#1.0#0"; "ezvidc60.ocx"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Begin VB.Form Form1
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "Form1"
  7.    ClientHeight    =   9030
  8.    ClientLeft      =   45
  9.    ClientTop       =   375
  10.    ClientWidth     =   9585
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   9030
  15.    ScaleWidth      =   9585
  16.    StartUpPosition =   2  '屏幕中心
  17.    Begin VB.CommandButton Command4
  18.       Caption         =   "Command4"
  19.       Height          =   615
  20.       Left            =   2235
  21.       TabIndex        =   8
  22.       Top             =   7440
  23.       Width           =   1335
  24.    End
  25.    Begin VB.Timer Timer3
  26.       Enabled         =   0   'False
  27.       Interval        =   500
  28.       Left            =   360
  29.       Top             =   7537
  30.    End
  31.    Begin VB.TextBox Text1
  32.       Height          =   390
  33.       Left            =   1320
  34.       Locked          =   -1  'True
  35.       TabIndex        =   6
  36.       Top             =   8280
  37.       Width           =   8295
  38.    End
  39.    Begin VB.Timer Timer2
  40.       Enabled         =   0   'False
  41.       Left            =   7080
  42.       Top             =   8280
  43.    End
  44.    Begin VB.Timer Timer1
  45.       Interval        =   1000
  46.       Left            =   8400
  47.       Top             =   8280
  48.    End
  49.    Begin MSComctlLib.StatusBar StatusBar1
  50.       Align           =   2  'Align Bottom
  51.       Height          =   375
  52.       Left            =   0
  53.       TabIndex        =   5
  54.       Top             =   8655
  55.       Width           =   9585
  56.       _ExtentX        =   16907
  57.       _ExtentY        =   661
  58.       _Version        =   393216
  59.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
  60.          NumPanels       =   3
  61.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
  62.             AutoSize        =   1
  63.             Object.Width           =   7117
  64.          EndProperty
  65.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
  66.             Alignment       =   1
  67.             AutoSize        =   1
  68.             Object.Width           =   7117
  69.          EndProperty
  70.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
  71.             Style           =   5
  72.             Alignment       =   1
  73.             AutoSize        =   2
  74.             TextSave        =   "15:18"
  75.          EndProperty
  76.       EndProperty
  77.    End
  78.    Begin VB.CommandButton Command5
  79.       Caption         =   "Command5"
  80.       Height          =   615
  81.       Left            =   4125
  82.       TabIndex        =   4
  83.       Top             =   7440
  84.       Width           =   1335
  85.    End
  86.    Begin VB.CommandButton Command3
  87.       Caption         =   "Command3"
  88.       Height          =   615
  89.       Left            =   6015
  90.       TabIndex        =   3
  91.       Top             =   7440
  92.       Width           =   1335
  93.    End
  94.    Begin VB.CommandButton Command2
  95.       Caption         =   "Command2"
  96.       Height          =   615
  97.       Left            =   7905
  98.       TabIndex        =   2
  99.       Top             =   7440
  100.       Width           =   1335
  101.    End
  102.    Begin VB.CommandButton Command1
  103.       Caption         =   "Command1"
  104.       Height          =   615
  105.       Left            =   345
  106.       TabIndex        =   1
  107.       Top             =   7440
  108.       Width           =   1335
  109.    End
  110.    Begin vbVidC60.ezVidCap ezVidCap1
  111.       Height          =   7200
  112.       Left            =   0
  113.       TabIndex        =   0
  114.       Top             =   0
  115.       Width           =   9600
  116.       _ExtentX        =   16933
  117.       _ExtentY        =   12700
  118.       CenterVideo     =   0   'False
  119.       MakeUserConfirmCapture=   0
  120.       AbortLeftMouse  =   0
  121.       AbortRightMouse =   0
  122.       YieldEventEnabled=   -1  'True
  123.       UsePreciseCaptureControls=   -1  'True
  124.    End
  125.    Begin VB.Label Label1
  126.       Caption         =   "文件路徑："
  127.       BeginProperty Font
  128.          Name            =   "宋體"
  129.          Size            =   12
  130.          Charset         =   134
  131.          Weight          =   400
  132.          Underline       =   0   'False
  133.          Italic          =   0   'False
  134.          Strikethrough   =   0   'False
  135.       EndProperty
  136.       Height          =   255
  137.       Left            =   120
  138.       TabIndex        =   7
  139.       Top             =   8348
  140.       Width           =   1335
  141.    End
  142. End
  143. Attribute VB_Name = "Form1"
  144. Attribute VB_GlobalNameSpace = False
  145. Attribute VB_Creatable = False
  146. Attribute VB_PredeclaredId = True
  147. Attribute VB_Exposed = False
  148. Public strFileAVI As String     '保存視頻的文件名
  149. Public strFileBMP As String
  150. Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
  151. Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  152. Private Const SND_ASYNC = &H1 '允許異步
  153. Private Sub Command1_Click()
  154. Dim Filename
  155. ezVidCap1.CaptureAudio = True
  156. If Command1.Caption = "開始錄像" Then
  157. Command1.Caption = "停止錄像"
  158. Filename = Format(Now, "yyyymmddhhmmss") '生成日期時間序列
  159. CreateFolder App.Path & "\Temp"    '調過函數創建臨時文件夾
  160. strFileAVI = App.Path & "\Temp\" & Filename & ".AVI" '保存的視頻文件名,下面一句也可以
  161. 'strFileAVI = App.Path & "\TEMP\" & Minute(Now) & Second(Now) & ".AVI" '保存的視頻文件名
  162. With ezVidCap1
  163. .CaptureFile = strFileAVI   '捕獲視頻文件名
  164. .Preview = True '打開預覽
  165. .PreviewRate = 15   '預覽速率
  166. .CaptureVideo  '開始錄制視頻
  167. End With
  168.   Else
  169. ezVidCap1.CaptureEnd
  170.   Command1.Caption = "開始錄像"
  171.   End If
  172. End Sub
  173. Private Sub Command2_Click()
  174. Dim exit_ As Integer
  175. exit_ = exit1
  176. If exit_ = 11 Or exit_ = 10 Then
  177. Timer3.Enabled = True
  178. End If
  179. End Sub
  180. Private Sub Command3_Click()
  181. ezVidCap1.About
  182. End Sub

  184. Private Sub Command4_Click()
  185. Dim Filename
  186. Dim SaveimageOK As Boolean
  187. Filename = Format(Now, "yyyymmddhhmmss") '生成日期時間序列
  188. CreateFolder App.Path & "\Image"    '調過函數創建臨時文件夾
  189.   strFileBMP = App.Path & "\Image\" & Filename & ".bmp" '生新保存圖片文件的名稱
  190.     On Error Resume Next    '錯誤處理
  191.    SaveimageOK = ezVidCap1.SaveDIB(strFileBMP)   '保存圖片
  192.    If SaveimageOK = True Then
  193.    sndPlaySound App.Path & "\shutter.wav", 0
  194.    Text1.Text = strFileBMP
  195.    
  196.    End If
  197.      If Err Then '若有錯誤
  198.     Beep 1000, 100
  199.       MsgBox "請先停止錄像，再拍照，" & Chr(13) & "錯誤代碼：" & Err.Description, vbInformation, App.Title  '顯示錯誤信息
  200.     End If
  201. End Sub

  203. Private Sub Command5_Click()
  204. ezVidCap1.ShowDlgVideoSource
  205. End Sub



  209. Private Sub ezVidCap1_CaptureYield()    '捕獲事件
  210. DoEvents
  211. End Sub


  214. Private Sub Form_Load()
  215. If App.PrevInstance Then
  216. Beep 1000, 100
  217. fanhuizhi = MsgBox("程序正在運行，請關閉本程序", vbOKOnly, "警告")
  218. If fanhuizhi = 1 Then
  219.   End
  220. End If
  221. End If
  222. Text1.Text = "顯示最后一次拍照、錄制或者正在錄制文件的路徑"
  223. Form1.Caption = "ccd采集控件可錄像和截圖（自行研究）"
  224. Command1.Caption = "開始錄像"
  225. Command2.Caption = "退出"
  226. Command3.Caption = "關于控件"
  227. Command4.Caption = "拍照"
  228. Command5.Caption = "選擇視頻源"
  229. End Sub

  231. Private Sub ezVidCap1_StatusMessage(ByVal StatCode As Long, ByVal StatString As String)
  232.     '捕獲狀態事件
  233.   If StatCode <> 0 Then   '狀態碼不為0
  234.      StatusBar1.Panels(1).Text = Left(StatString, InStr(StatString, ")"))   '顯示狀態信息
  235.     '  If StatCode = 301 Then  '若是結束狀態
  236.       '  mnuRecStart.Caption = "開始錄制"    '修改菜單標題
  237.     '      frmCamera.Hide  '隱藏攝像頭窗體
  238.           ' frmVideo.Show   '顯示預覽窗體
  239.       ' End If
  240.     End If
  241.     DoEvents
  242. End Sub
  243. Private Sub ezVidCap1_PreRollComplete() '準備開始錄制
  244.    Dim lRet As Long
  245.     lRet = MsgBox("單擊“確定”按鈕開始錄制！" & Chr(13) & "單擊“取消”按鈕取消錄制！", vbOKCancel, App.Title) '顯示確認信息
  246.     If lRet = vbOK Then '單擊“確定”按鈕
  247.         ezVidCap1.PreciseCaptureStart   '開始錄制
  248.        Text1.Text = strFileAVI
  249.    Else    '單擊“取消”按鈕
  250.      ezVidCap1.PreciseCaptureCancel  '放棄錄制
  251.      Timer2.Enabled = True '錯開文件是否被占用時間
  252.      Timer2.Interval = 500
  253.    End If
  254. End Sub

  256. Private Sub DeleteFile(FilePath As String)
  257. ……………………

  259. …………限于本文篇幅 余下代碼請從51黑下載附件…………
復制代碼

所有資料51hei提供下載:
CCD采集控件代碼.rar (71 KB, 下載次數: 14)








歡迎光臨 (http://www.denmoz.com/bbs/) Powered by Discuz! X3.1