📄 ucabout.ctl
字号:
VERSION 5.00
Begin VB.UserControl ucAbout
BackColor = &H80000005&
ClientHeight = 6495
ClientLeft = 0
ClientTop = 0
ClientWidth = 9120
ScaleHeight = 6495
ScaleWidth = 9120
Begin VB.PictureBox picBody
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 5925
Left = 210
ScaleHeight = 5925
ScaleWidth = 8715
TabIndex = 0
Top = 210
Width = 8715
Begin VB.Image imgLogo
Height = 960
Left = 5190
Picture = "ucAbout.ctx":0000
Top = 3435
Width = 3300
End
Begin VB.Label lblAbout
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "特瑞飞车辆收费管理系统 演示版"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 0
Left = 690
TabIndex = 20
Top = 420
Width = 4800
End
Begin VB.Label lblAbout
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "版权所有 (C) 2007-2008 特瑞飞软件"
Height = 180
Index = 1
Left = 2235
TabIndex = 19
Top = 990
Width = 2970
End
Begin VB.Label lblAbout
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "特瑞飞软件 Terrificsoft"
Height = 180
Index = 2
Left = 930
TabIndex = 18
Top = 1680
Width = 2070
End
Begin VB.Label lblAbout
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "地址:"
Height = 180
Index = 3
Left = 930
TabIndex = 17
Top = 1965
Width = 450
End
Begin VB.Label lblAbout
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "邮政编码:"
Height = 180
Index = 4
Left = 930
TabIndex = 16
Top = 2220
Width = 810
End
Begin VB.Label lblAbout
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "QQ:"
Height = 180
Index = 5
Left = 930
TabIndex = 15
Top = 2475
Width = 270
End
Begin VB.Label lblAbout
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "MSN: "
Height = 180
Index = 6
Left = 930
TabIndex = 14
Top = 2715
Width = 450
End
Begin VB.Label lblAbout
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "E-mail:"
Height = 180
Index = 7
Left = 930
TabIndex = 13
Top = 2970
Width = 630
End
Begin VB.Label lblAbout
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "北京市海淀区学院路37号"
Height = 180
Index = 8
Left = 1755
TabIndex = 12
Top = 1965
Width = 1980
End
Begin VB.Label lblAbout
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "100083"
Height = 180
Index = 9
Left = 1755
TabIndex = 11
Top = 2220
Width = 540
End
Begin VB.Label lblAbout
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "1861301"
Height = 180
Index = 10
Left = 1755
TabIndex = 10
Top = 2475
Width = 630
End
Begin VB.Label lblAbout
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "trfsoft@hotmail.com"
Height = 180
Index = 11
Left = 1755
TabIndex = 9
Top = 2715
Width = 1710
End
Begin VB.Label lblAbout
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "webmaster@trfsoft.com"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 180
Index = 12
Left = 1755
MouseIcon = "ucAbout.ctx":2036
MousePointer = 99 'Custom
TabIndex = 8
Top = 2970
Width = 1890
End
Begin VB.Label lblAbout
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Web地址:"
Height = 180
Index = 13
Left = 930
TabIndex = 7
Top = 3225
Width = 720
End
Begin VB.Label lblAbout
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "http://www.trfsoft.com"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 180
Index = 14
Left = 1755
MouseIcon = "ucAbout.ctx":2340
MousePointer = 99 'Custom
TabIndex = 6
Top = 3225
Width = 1980
End
Begin VB.Label lblAbout
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "业务范围:"
Height = 180
Index = 15
Left = 930
TabIndex = 5
Top = 3660
Width = 810
End
Begin VB.Label lblAbout
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "警告:"
Height = 180
Index = 17
Left = 930
TabIndex = 4
Top = 4380
Width = 450
End
Begin VB.Label lblAbout
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "本程序受到版权法和国际条约的保护。未经授权，不得复制或传播本软件的部分或全部，否则将受到最大可能的起诉。"
Height = 540
Index = 18
Left = 930
TabIndex = 3
Top = 4650
Width = 5025
WordWrap = -1 'True
End
Begin VB.Label lblAbout
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "教学软件开发 教学软件销售 计算机图书出版"
Height = 180
Index = 16
Left = 930
TabIndex = 2
Top = 3930
Width = 3600
End
Begin VB.Label lblAbout
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "特别说明：本系统数据所涉及的人名、商品和供货商信息仅为演示所用，并不保证所有信息都真实存在，如有雷同，纯属巧合。"
Height = 540
Index = 19
Left = 930
TabIndex = 1
Top = 5280
Width = 5025
WordWrap = -1 'True
End
End
End
Attribute VB_Name = "ucAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
'============================================
'功能：响应 用户控件的Resize事件，使fraBody自动居中
'============================================
Private Sub UserControl_Resize()
Dim nLeft, nTop As Integer
'计算新的Left和Top
nLeft = (UserControl.Width - picBody.Width) / 2
nTop = (UserControl.Height - picBody.Height) / 2
'只有当新的Left和Top > 0 时才移动fraBody
picBody.Left = IIf(nLeft > 0, nLeft, 0)
'picBody.Top = IIf(nTop > 0, nTop, picBody.Top)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -