📄 frmdemo.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmDemo
BorderStyle = 1 'Fixed Single
Caption = "非接触式IC卡接口函数演示"
ClientHeight = 6105
ClientLeft = 45
ClientTop = 330
ClientWidth = 7215
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6105
ScaleWidth = 7215
StartUpPosition = 2 '屏幕中心
Begin MSComctlLib.StatusBar InfoState
Align = 2 'Align Bottom
Height = 420
Left = 0
TabIndex = 24
Top = 5685
Width = 7215
_ExtentX = 12726
_ExtentY = 741
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 2
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 2646
MinWidth = 2646
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 10055
MinWidth = 10055
Text = "Winner Studio (0577)8848030 zhanghua@rocketmail.com"
TextSave = "Winner Studio (0577)8848030 zhanghua@rocketmail.com"
EndProperty
EndProperty
End
Begin VB.Frame fraParameter
Height = 2970
Left = 105
TabIndex = 1
Top = 150
Width = 5055
Begin VB.ComboBox comBlockNo
Height = 300
Left = 1410
TabIndex = 25
Top = 1200
Width = 1320
End
Begin VB.OptionButton optPassWordB
Caption = "B密码"
Height = 285
Left = 2460
TabIndex = 14
Top = 2520
Width = 750
End
Begin VB.OptionButton optPasswordA
Caption = "A密码"
Height = 180
Left = 1365
TabIndex = 13
Top = 2565
Value = -1 'True
Width = 855
End
Begin VB.TextBox txtPasswordB
Height = 300
Left = 1410
TabIndex = 12
Top = 2040
Width = 1305
End
Begin VB.TextBox txtPasswordA
Height = 300
Left = 1410
TabIndex = 11
Top = 1614
Width = 1305
End
Begin VB.TextBox txtSectorNo
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
Height = 300
Left = 1410
TabIndex = 6
Top = 768
Width = 1305
End
Begin VB.ComboBox comPort
Height = 300
ItemData = "frmDemo.frx":0000
Left = 1410
List = "frmDemo.frx":000A
TabIndex = 4
Top = 345
Width = 1305
End
Begin VB.Label Label1
Caption = "使用密码:"
Height = 210
Left = 330
TabIndex = 10
Top = 2580
Width = 885
End
Begin VB.Label lblPasswordB
Caption = "B密码:"
Height = 210
Left = 330
TabIndex = 9
Top = 2118
Width = 885
End
Begin VB.Label lblPasswordA
Caption = "A密码:"
Height = 210
Left = 330
TabIndex = 8
Top = 1686
Width = 885
End
Begin VB.Label lblBlockNo
Caption = "块号:"
Height = 210
Left = 330
TabIndex = 7
Top = 1254
Width = 885
End
Begin VB.Label lblSectorNo
Caption = "扇区号:"
Height = 210
Left = 330
TabIndex = 5
Top = 822
Width = 885
End
Begin VB.Label lblPort
Caption = "串口选择:"
Height = 210
Left = 330
TabIndex = 3
Top = 390
Width = 885
End
End
Begin VB.Frame fraResult
Height = 1890
Left = 75
TabIndex = 2
Top = 3150
Width = 7050
Begin VB.TextBox txtValue
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Enabled = 0 'False
Height = 315
Left = 1710
Locked = -1 'True
TabIndex = 22
Top = 1395
Width = 1395
End
Begin MSFlexGridLib.MSFlexGrid DisplayGrid
Height = 1170
Left = 60
TabIndex = 21
Top = 150
Width = 6945
_ExtentX = 12250
_ExtentY = 2064
_Version = 393216
Rows = 3
Cols = 17
RowHeightMin = 360
BackColor = 16777215
BackColorBkg = 12632256
ScrollBars = 0
FormatString = " |00|01|02|03|04|05|06|07|08|09|0A|0B|0C|0D|0E|0F;字节序号|内容(HEX)|内容(ASCII)"
End
Begin VB.Label lblValue
Caption = "数值块,计数单位:"
Enabled = 0 'False
Height = 240
Left = 135
TabIndex = 23
Top = 1440
Width = 1470
End
End
Begin VB.Frame fraMenu
Height = 2985
Left = 5235
TabIndex = 0
Top = 150
Width = 1875
Begin VB.CommandButton cmdMenu
Caption = "减少(数值块)"
Height = 360
Index = 6
Left = 180
TabIndex = 26
Top = 2580
Width = 1530
End
Begin VB.CommandButton cmdMenu
Caption = "增加(数值块)"
Height = 360
Index = 5
Left = 180
TabIndex = 20
Top = 2170
Width = 1530
End
Begin VB.CommandButton cmdMenu
Caption = "初始化(数值块)"
Height = 360
Index = 4
Left = 180
TabIndex = 19
Top = 1763
Width = 1530
End
Begin VB.CommandButton cmdMenu
Caption = "写卡操作"
Height = 360
Index = 3
Left = 180
TabIndex = 18
Top = 1356
Width = 1530
End
Begin VB.CommandButton cmdMenu
Caption = "读卡操作"
Height = 360
Index = 2
Left = 180
TabIndex = 17
Top = 949
Width = 1530
End
Begin VB.CommandButton cmdMenu
Caption = "扇区密码校对"
Height = 360
Index = 1
Left = 180
TabIndex = 16
Top = 542
Width = 1530
End
Begin VB.CommandButton cmdMenu
Caption = "装载密码"
Height = 360
Index = 0
Left = 180
TabIndex = 15
Top = 135
Width = 1530
End
End
End
Attribute VB_Name = "frmDemo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -