📄 frm3.frm
字号:
VERSION 5.00
Begin VB.Form frm3
Caption = "Demo"
ClientHeight = 8085
ClientLeft = 3330
ClientTop = 1485
ClientWidth = 8490
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 8085
ScaleWidth = 8490
Begin VB.CommandButton cmdGetSN
Caption = "GetSensorSN"
Height = 375
Left = 4080
TabIndex = 31
Top = 7080
Width = 1575
End
Begin VB.TextBox txtFPTepLate1
Height = 1575
Left = 5880
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 29
Text = "frm3.frx":0000
Top = 6480
Width = 2535
End
Begin VB.CommandButton CmdFPConver
Caption = "FPconverToBiokey"
Height = 375
Left = 4080
TabIndex = 28
ToolTipText = "convert finger template to other template that it was used by Biokey SDK"
Top = 6480
Width = 1695
End
Begin VB.TextBox txtFPTepLate
Height = 1335
Left = 5880
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 26
Text = "frm3.frx":0006
Top = 4680
Width = 2535
End
Begin VB.TextBox txtDisableDeviceT
Appearance = 0 'Flat
Height = 375
Left = 6360
TabIndex = 25
Top = 3840
Width = 1815
End
Begin VB.CommandButton cmdDisableDT
Caption = " DisableDeviceWithTimeOut"
Height = 375
Left = 4080
TabIndex = 24
Top = 3840
Width = 2175
End
Begin VB.CommandButton cmdBeep
Caption = "Beep"
Height = 375
Left = 4080
TabIndex = 23
Top = 5640
Width = 1575
End
Begin VB.CommandButton cmdPlayVoiceByIndex
Caption = "PlayVoiceByIndex"
Height = 375
Left = 4080
TabIndex = 22
Top = 4440
Width = 1575
End
Begin VB.CommandButton cmdRestartDevice
Caption = "RestartDevice"
Height = 375
Left = 4080
TabIndex = 21
Top = 5040
Width = 1575
End
Begin VB.TextBox txtProductCode
Appearance = 0 'Flat
Enabled = 0 'False
Height = 375
Left = 5760
TabIndex = 20
Top = 3240
Width = 2415
End
Begin VB.CommandButton cmdGetProductCode
Caption = "GetProductCode"
Height = 375
Left = 4080
TabIndex = 19
Top = 3240
Width = 1575
End
Begin VB.TextBox txtSDeviceMAC
Appearance = 0 'Flat
Height = 375
Left = 5760
TabIndex = 18
Top = 2040
Width = 2415
End
Begin VB.CommandButton cmdSetDeviceMAC
Caption = "SetDeviceMAC"
Height = 375
Left = 4080
TabIndex = 17
Top = 2040
Width = 1575
End
Begin VB.TextBox txtSerialNumber
Appearance = 0 'Flat
Enabled = 0 'False
Height = 375
Left = 5760
TabIndex = 16
Top = 2640
Width = 2415
End
Begin VB.CommandButton cmdGetSerialNumber
Caption = "GetSerialNumber"
Height = 375
Left = 4080
TabIndex = 15
Top = 2640
Width = 1575
End
Begin VB.TextBox txtGetDeviceMAC
Appearance = 0 'Flat
Enabled = 0 'False
Height = 375
Left = 5760
TabIndex = 14
Top = 1440
Width = 2415
End
Begin VB.CommandButton cmdGetDeviceMAC
Caption = "GetDeviceMAC"
Height = 375
Left = 4080
TabIndex = 13
Top = 1440
Width = 1575
End
Begin VB.TextBox txtSetIP
Appearance = 0 'Flat
Height = 375
Left = 5760
TabIndex = 12
Top = 840
Width = 2415
End
Begin VB.CommandButton cmdSetDeviceIP
Caption = "SetDeviceIP"
Height = 375
Left = 4080
TabIndex = 11
Top = 840
Width = 1575
End
Begin VB.TextBox txtDeviceIP
Appearance = 0 'Flat
Enabled = 0 'False
Height = 375
Left = 5760
TabIndex = 10
Top = 240
Width = 2415
End
Begin VB.CommandButton cmdGetDeviceIP
Caption = "GetDeviceIP"
Height = 375
Left = 4080
TabIndex = 9
Top = 240
Width = 1575
End
Begin VB.CommandButton cmdGetDevInfo
Caption = "GetDeviceInfo"
Height = 375
Left = 120
TabIndex = 8
Top = 2880
Width = 1455
End
Begin VB.ListBox ls2
Appearance = 0 'Flat
Height = 4320
ItemData = "frm3.frx":0189
Left = 120
List = "frm3.frx":018B
TabIndex = 7
Top = 3240
Width = 3855
End
Begin VB.CommandButton cmdWriteLcd
Caption = "WriteLCD"
Height = 375
Left = 120
TabIndex = 6
Top = 1680
Width = 1455
End
Begin VB.ListBox ls1
Height = 2400
ItemData = "frm3.frx":018D
Left = 1680
List = "frm3.frx":018F
TabIndex = 5
Top = 240
Width = 2295
End
Begin VB.CommandButton cmdGetDeviStat
Caption = "GetDeviceStatus"
Height = 375
Left = 120
TabIndex = 4
Top = 2400
Width = 1455
End
Begin VB.CommandButton cmdDisEnableClock
Caption = "DisEnableClock"
Height = 375
Left = 120
TabIndex = 3
Top = 1320
Width = 1455
End
Begin VB.CommandButton cmdEnableClock
Caption = "EnableClock"
Height = 375
Left = 120
TabIndex = 2
Top = 960
Width = 1455
End
Begin VB.CommandButton cmdDisEnable
Caption = "DisEnableDevice"
Height = 375
Left = 120
TabIndex = 1
Top = 600
Width = 1455
End
Begin VB.CommandButton cmdEnable
Caption = "EnableDevice"
Height = 375
Left = 120
TabIndex = 0
Top = 240
Width = 1455
End
Begin VB.Label Label2
Caption = "finger template for BIOKEY SDK"
Height = 255
Left = 5880
TabIndex = 30
Top = 6240
Width = 2535
End
Begin VB.Label Label1
Caption = "finger template for machine"
Height = 375
Left = 5880
TabIndex = 27
Top = 4320
Width = 2535
End
End
Attribute VB_Name = "frm3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**********************************************
'Time:2005-6-22 *
'purpose:Demo *
'author:YongHong Pei,work for zksoftware *
'contact:pyhppp@hotmail.com *
'**********************************************
'follow code get access testing by zkemsdk 5.10.90
Private Sub cmdBeep_Click()
'Some machine does not,for example,F4 can
frm2.CZKEM1.Beep 150
End Sub
Private Sub cmdDisableDT_Click()
frm2.CZKEM1.DisableDeviceWithTimeOut CInt(frm2.txtMachNum.Text), CInt(txtDisableDeviceT.Text)
End Sub
Private Sub cmdDisEnable_Click()
'The device will be in work state
frm2.CZKEM1.EnableDevice CInt(frm2.txtMachNum.Text), False
End Sub
Private Sub cmdDisEnableClock_Click()
'pls look the time of machine
frm2.CZKEM1.EnableClock 0
End Sub
Private Sub cmdEnable_Click()
frm2.CZKEM1.EnableDevice CInt(frm2.txtMachNum.Text), True
End Sub
Private Sub cmdEnableClock_Click()
'pls look the time of machine
frm2.CZKEM1.EnableClock 1
End Sub
Private Sub CmdFPConver_Click()
Dim TmpData1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -