📄 cellform.frm
字号:
VERSION 5.00
Object = "{DD44C0E7-B2CF-11D1-8DD3-444553540000}#1.0#0"; "cell32.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmCell
BorderStyle = 1 'Fixed Single
Caption = "Demo"
ClientHeight = 5910
ClientLeft = 4305
ClientTop = 1995
ClientWidth = 7575
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5910
ScaleWidth = 7575
StartUpPosition = 2 'CenterScreen
Visible = 0 'False
Begin CELLLib.Cell DemoCell
Height = 3372
Left = 120
TabIndex = 74
Top = 120
Width = 7332
_Version = 65536
_ExtentX = 12933
_ExtentY = 5948
_StockProps = 0
End
Begin VB.PictureBox picPicture
BorderStyle = 0 'None
Height = 1575
Index = 16
Left = 120
ScaleHeight = 1575
ScaleWidth = 7095
TabIndex = 38
Top = 3600
Width = 7095
Begin VB.CommandButton Command8
Caption = "打开"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5520
TabIndex = 67
Top = 120
Width = 1095
End
Begin VB.CommandButton Command7
Caption = "…"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4920
TabIndex = 66
Top = 120
Width = 375
End
Begin VB.TextBox Text5
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1320
TabIndex = 65
Top = 120
Width = 3495
End
Begin VB.Label Label17
Caption = "数据库文件"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 0
TabIndex = 64
Top = 120
Width = 1335
End
Begin VB.Label Label16
Caption = "CELL组件通过ODBC可打开任何ODBC数据库，另外，CELL组件可直接打开十余种文件数据库类型(不通过ODBC管理器)，详情请参考程序员手册。"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 780
Left = 0
TabIndex = 63
Top = 960
Width = 6780
WordWrap = -1 'True
End
End
Begin VB.PictureBox picPicture
BorderStyle = 0 'None
Height = 1575
Index = 17
Left = 120
ScaleHeight = 1575
ScaleWidth = 7095
TabIndex = 39
Top = 3600
Width = 7095
Begin VB.CommandButton Command11
Caption = "保存"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6120
TabIndex = 73
Top = 0
Width = 975
End
Begin VB.CommandButton Command10
Caption = "打开"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5040
TabIndex = 72
Top = 0
Width = 975
End
Begin VB.CommandButton Command9
Caption = "…"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4560
TabIndex = 71
Top = 0
Width = 375
End
Begin VB.TextBox Text6
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 960
TabIndex = 70
Top = 0
Width = 3375
End
Begin VB.Label Label19
Caption = "文件名"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 0
TabIndex = 69
Top = 0
Width = 735
End
Begin VB.Label Label18
Caption = "CELL组件支持由CELL表生成的*.cll文件，既可以打开该文件，也可以保存为这种文件。"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 780
Left = 0
TabIndex = 68
Top = 840
Width = 6780
WordWrap = -1 'True
End
End
Begin MSComDlg.CommonDialog CommonDialog
Left = 120
Top = 5280
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.PictureBox picPicture
BorderStyle = 0 'None
Height = 1575
Index = 15
Left = 120
ScaleHeight = 1575
ScaleWidth = 7095
TabIndex = 37
Top = 3600
Width = 7095
Begin VB.Label Label15
Caption = "下拉窗口按钮是一种类似于PowerBuilder中的一个东西，但在CELL中得到强化，使数据输入更加方便。"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 780
Left = 0
TabIndex = 62
Top = 0
Width = 6780
WordWrap = -1 'True
End
End
Begin VB.PictureBox picPicture
BorderStyle = 0 'None
Height = 1575
Index = 14
Left = 120
ScaleHeight = 1575
ScaleWidth = 7095
TabIndex = 36
Top = 3600
Width = 7095
Begin VB.CommandButton Command6
Caption = "设置当前页签"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5280
TabIndex = 60
Top = 120
Width = 1455
End
Begin VB.TextBox Text4
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3720
TabIndex = 59
Top = 120
Width = 1335
End
Begin VB.CommandButton Command5
Caption = "设置当前页号"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1200
TabIndex = 58
Top = 120
Width = 1335
End
Begin VB.TextBox Text3
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -