📄 frmvideoset.frm
字号:
VERSION 5.00
Begin VB.Form frmVideoSet
BorderStyle = 1 'Fixed Single
Caption = "采集卡设置"
ClientHeight = 4470
ClientLeft = 45
ClientTop = 330
ClientWidth = 5925
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4470
ScaleWidth = 5925
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame2
Height = 1335
Left = 120
TabIndex = 22
Top = 120
Width = 5655
Begin VB.TextBox txtImgWidth
Height = 285
Left = 960
TabIndex = 28
Top = 960
Width = 1455
End
Begin VB.TextBox txtImgHeight
Height = 285
Left = 3840
TabIndex = 27
Top = 960
Width = 1455
End
Begin VB.ComboBox comboColor
Height = 300
ItemData = "frmVideoSet.frx":0000
Left = 3840
List = "frmVideoSet.frx":0016
Style = 2 'Dropdown List
TabIndex = 26
Top = 240
Width = 1455
End
Begin VB.ComboBox comboStandard
Height = 300
ItemData = "frmVideoSet.frx":0055
Left = 960
List = "frmVideoSet.frx":0062
Style = 2 'Dropdown List
TabIndex = 25
Top = 240
Width = 1455
End
Begin VB.ComboBox comboSource
Height = 300
ItemData = "frmVideoSet.frx":007E
Left = 960
List = "frmVideoSet.frx":0091
Style = 2 'Dropdown List
TabIndex = 24
Top = 600
Width = 1455
End
Begin VB.TextBox txtDelay
Height = 285
Left = 3840
TabIndex = 23
Top = 600
Width = 975
End
Begin VB.Label Label4
Caption = "图片宽"
Height = 255
Left = 3000
TabIndex = 35
Top = 960
Width = 735
End
Begin VB.Label Label3
Caption = "颜色"
Height = 255
Left = 3000
TabIndex = 34
Top = 240
Width = 495
End
Begin VB.Label Label1
Caption = "图片高"
Height = 255
Left = 240
TabIndex = 33
Top = 960
Width = 735
End
Begin VB.Label Label10
Caption = "端口"
Height = 255
Left = 240
TabIndex = 32
Top = 600
Width = 495
End
Begin VB.Label Label11
Caption = "制式"
Height = 255
Left = 240
TabIndex = 31
Top = 240
Width = 615
End
Begin VB.Label Label20
Caption = "毫秒"
Height = 255
Left = 4920
TabIndex = 30
Top = 600
Width = 495
End
Begin VB.Label Label19
Caption = "快照时延"
Height = 255
Left = 3000
TabIndex = 29
Top = 600
Width = 855
End
End
Begin VB.Frame Frame1
Height = 2415
Left = 120
TabIndex = 3
Top = 1440
Width = 5655
Begin VB.HScrollBar srbTimeY
Height = 150
Left = 1920
Max = 576
TabIndex = 13
Top = 2040
Value = 10
Width = 3495
End
Begin VB.HScrollBar srbDateY
Height = 150
Left = 1920
Max = 576
TabIndex = 12
Top = 1560
Value = 10
Width = 3495
End
Begin VB.HScrollBar srbTimeX
Height = 150
Left = 1920
Max = 720
TabIndex = 11
Top = 1800
Value = 200
Width = 3495
End
Begin VB.HScrollBar srbDateX
Height = 150
Left = 1920
Max = 720
TabIndex = 10
Top = 1320
Value = 90
Width = 3495
End
Begin VB.CheckBox checkShowTime
Caption = "显示时间"
Height = 195
Left = 120
TabIndex = 9
Top = 1800
Width = 1095
End
Begin VB.CheckBox checkShowDate
Caption = "显示日期"
Height = 195
Left = 120
TabIndex = 8
Top = 1320
Width = 1095
End
Begin VB.HScrollBar srbBrightness
Height = 150
Left = 1920
Max = 10000
SmallChange = 16
TabIndex = 7
Top = 240
Value = 5000
Width = 3495
End
Begin VB.HScrollBar srbContrast
Height = 150
Left = 1920
Max = 10000
SmallChange = 16
TabIndex = 6
Top = 480
Value = 5000
Width = 3495
End
Begin VB.HScrollBar srbHue
Height = 150
Left = 1920
Max = 10000
SmallChange = 16
TabIndex = 5
Top = 720
Value = 5000
Width = 3495
End
Begin VB.HScrollBar srbSaturation
Height = 150
Left = 1920
Max = 10000
SmallChange = 16
TabIndex = 4
Top = 960
Value = 5000
Width = 3495
End
Begin VB.Label Label17
Caption = "Y:"
Height = 255
Left = 1680
TabIndex = 21
Top = 2040
Width = 135
End
Begin VB.Label Label16
Caption = "Y:"
Height = 255
Left = 1680
TabIndex = 20
Top = 1560
Width = 135
End
Begin VB.Label Label14
Caption = "X:"
Height = 255
Left = 1680
TabIndex = 19
Top = 1800
Width = 135
End
Begin VB.Label Label13
Caption = "X:"
Height = 255
Left = 1680
TabIndex = 18
Top = 1320
Width = 135
End
Begin VB.Label Label9
Caption = "亮度"
Height = 255
Left = 240
TabIndex = 17
Top = 240
Width = 615
End
Begin VB.Label Label8
Caption = "对比度"
Height = 255
Left = 240
TabIndex = 16
Top = 480
Width = 615
End
Begin VB.Label Label7
Caption = "色度"
Height = 255
Left = 240
TabIndex = 15
Top = 720
Width = 615
End
Begin VB.Label Label6
Caption = "饱和度"
Height = 255
Left = 240
TabIndex = 14
Top = 960
Width = 615
End
End
Begin VB.CommandButton cmdOK
Caption = "确定(&O)"
Default = -1 'True
Height = 375
Left = 2160
TabIndex = 2
Top = 3960
Width = 1215
End
Begin VB.CommandButton cmdClose
Cancel = -1 'True
Caption = "取消(&C)"
Height = 375
Left = 3720
TabIndex = 1
Top = 3960
Width = 1215
End
Begin VB.CommandButton cmdDefault
Caption = "缺省设置(&D)"
Height = 375
Left = 720
TabIndex = 0
Top = 3960
Width = 1215
End
End
Attribute VB_Name = "frmVideoSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/07/09
'描 述：CBB三表户外计量系统 Ver 5.2
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
'===========================================
'设置亮度、对比度、色度、饱和度为默认值
'===========================================
Private Sub btnDefaultProperty_Click()
srbBrightness.Value = 5000
srbContrast.Value = 5000
srbHue.Value = 5000
srbSaturation.Value = 5000
End Sub
'====================================================
'保存当前的视频图像到文件中（JPG格式）
'在这里，固定 JPG 图像的质量为100，实际取值范围为10-100
'====================================================
Private Sub btnSaveJpg_Click()
Dim ok As Boolean
ok = frmMain.videoMain.SaveImageToJpg(editJpgFile.Text, 100)
If ok = False Then
MsgBox "快照失败！"
End If
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdDefault_Click()
gVideoBrightness = 5000
gVideoContrast = 5000
gVideoHue = 5000
gVideoSaturation = 5000
gVideoStandard = 1
gVideoSource = 1
gVideoShowDate = True
gVideoShowDate = True
gVideoShowTime = 100
gVideoXDate = 0
gVideoYDate = 220
gVideoXTime = 130
gVideoYTime = 220
gVideoImageHeight = 240
gVideoImageWidth = 320
gVideoCapDelay = 15
gVideoCapWait = 200
refreshView
End Sub
Private Sub cmdOK_Click()
gVideoStandard = comboStandard.ListIndex
gVideoSource = comboSource.ListIndex
gVideoColor = comboColor.ListIndex
gVideoImageHeight = Val(txtImgHeight)
gVideoImageWidth = Val(txtImgWidth)
gVideoBrightness = srbBrightness.Value
gVideoContrast = srbContrast.Value
gVideoHue = srbHue.Value
gVideoSaturation = srbSaturation.Value
gVideoShowDate = IIf(checkShowDate.Value = 1, True, False)
gVideoXDate = srbDateX.Value
gVideoYDate = srbDateY.Value
gVideoShowTime = IIf(checkShowTime.Value = 1, True, False)
gVideoXTime = srbTimeX.Value
gVideoYTime = srbTimeY.Value
gVideoCapDelay = Val(txtDelay)
frmMain.loadVideoSet
SaveINI
Unload Me
End Sub
Sub refreshView()
srbBrightness.Value = gVideoBrightness
srbContrast.Value = gVideoContrast
srbHue.Value = gVideoHue
srbSaturation.Value = gVideoSaturation
comboStandard.ListIndex = gVideoStandard
comboSource.ListIndex = gVideoSource
checkShowDate.Value = IIf(gVideoShowDate, 1, 0)
checkShowTime.Value = IIf(gVideoShowTime, 1, 0)
srbDateX.Value = gVideoXDate
srbDateY.Value = gVideoYDate
srbTimeX.Value = gVideoXTime
srbTimeY.Value = gVideoYTime
txtImgHeight = gVideoImageHeight
txtImgWidth = gVideoImageWidth
comboColor.ListIndex = gVideoColor
txtDelay = gVideoCapDelay
End Sub
Private Sub Form_Load()
refreshView
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -