📄 frmconfig.frm
字号:
VERSION 5.00
Begin VB.Form frmConfig
BorderStyle = 3 'Fixed Dialog
Caption = "VB源码之友2005"
ClientHeight = 5910
ClientLeft = 45
ClientTop = 435
ClientWidth = 8595
Icon = "frmConfig.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 394
ScaleMode = 3 'Pixel
ScaleWidth = 573
StartUpPosition = 2 '屏幕中心
Begin VBFriend2006.CommandButton cmdResume
Height = 375
Left = 4290
TabIndex = 4
Top = 5370
Width = 1275
_ExtentX = 2249
_ExtentY = 661
Caption = "恢复默认值"
Enabled = 0 'False
ForeColor = 32768
DotBackColor = -2147483633
End
Begin VBFriend2006.CommandButton cmdClose
Height = 375
Left = 7140
TabIndex = 2
Top = 5370
Width = 1095
_ExtentX = 1931
_ExtentY = 661
Caption = "关闭"
DotBackColor = -2147483633
End
Begin VBFriend2006.CommandButton cmdSave
Height = 375
Left = 5910
TabIndex = 1
ToolTipText = "需注册才能保存"
Top = 5370
Width = 1095
_ExtentX = 1931
_ExtentY = 661
Caption = "保存"
Enabled = 0 'False
DotBackColor = -2147483633
End
Begin VBFriend2006.SetDlg SetDlg1
Height = 5385
Left = -30
TabIndex = 0
Top = 0
Width = 8610
_ExtentX = 15187
_ExtentY = 9499
Begin VB.PictureBox picBar
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 4575
Left = 2070
ScaleHeight = 4575
ScaleWidth = 6375
TabIndex = 5
Top = 630
Width = 6375
End
Begin VB.Timer tmrLink
Interval = 1000
Left = 1380
Top = 4770
End
Begin VB.Image imgLink
Height = 465
Left = 330
MouseIcon = "frmConfig.frx":038A
MousePointer = 99 'Custom
Picture = "frmConfig.frx":04DC
ToolTipText = "叶帆Blog"
Top = 4560
Width = 1320
End
End
Begin VB.Image imgFlag
Height = 480
Left = 120
Picture = "frmConfig.frx":0C41
ToolTipText = "Sky Walker工作组"
Top = 5280
Width = 480
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "叶帆软件系列 版权所有 2005～2008(C)"
ForeColor = &H00404040&
Height = 375
Left = 660
TabIndex = 3
Top = 5460
Width = 3375
End
Begin VB.Image imgBar
Height = 465
Index = 0
Left = 2250
Picture = "frmConfig.frx":150B
Top = 5010
Visible = 0 'False
Width = 1320
End
Begin VB.Image imgBar
Height = 465
Index = 1
Left = 2580
Picture = "frmConfig.frx":1C70
Top = 5010
Visible = 0 'False
Width = 1320
End
Begin VB.Image imgBar
Height = 465
Index = 2
Left = 2940
Picture = "frmConfig.frx":2427
Top = 5010
Visible = 0 'False
Width = 1320
End
Begin VB.Image imgBar
Height = 495
Index = 3
Left = 3270
Picture = "frmConfig.frx":3119
Top = 5010
Visible = 0 'False
Width = 1320
End
Begin VB.Image imgBar
Height = 495
Index = 4
Left = 3600
Picture = "frmConfig.frx":5365
Top = 5010
Visible = 0 'False
Width = 1320
End
Begin VB.Image imgBar
Height = 495
Index = 5
Left = 3930
Picture = "frmConfig.frx":75B1
Top = 5010
Visible = 0 'False
Width = 1320
End
End
Attribute VB_Name = "frmConfig"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************************************************************************
'**模 块 名：frmConfig
'**说 明：YFsoft 版权所有2005 - 2006(C)
'**创 建 人：叶帆
'**日 期：2005-11-09 22:53:48
'**修 改 人：
'**日 期：
'**描 述：参数配置
'**版 本：V1.0.0
'*************************************************************************
Option Explicit
Private intLink As Integer '链接计数
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private frmOld As Form
'*************************************************************************
'**函 数 名：cmdClose_Click
'**输 入：无
'**输 出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作 者：叶帆
'**日 期：2005-11-09 23:21:00
'**修 改 人：
'**日 期：
'**版 本：V1.0.0
'*************************************************************************
Private Sub cmdClose_Click()
Unload Me
End Sub
'*************************************************************************
'**函 数 名：cmdResume_Click
'**输 入：无
'**输 出：无
'**功能描述：恢复参数
'**全局变量：
'**调用模块：
'**作 者：叶帆
'**日 期：2005-11-10 10:52:32
'**修 改 人：
'**日 期：
'**版 本：V1.0.0
'*************************************************************************
Private Sub cmdResume_Click()
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------
frmOld.ResumeValue
'------------------------------------------------
Exit Sub
'----------------
ToExit:
End Sub
'*************************************************************************
'**函 数 名：cmdSave_Click
'**输 入：无
'**输 出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作 者：叶帆
'**日 期：2005-11-10 10:49:32
'**修 改 人：
'**日 期：
'**版 本：V1.0.0
'*************************************************************************
Private Sub cmdSave_Click()
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------
frmOld.SaveValue
'------------------------------------------------
Exit Sub
'----------------
ToExit:
End Sub
'*************************************************************************
'**函 数 名：Form_Load
'**输 入：无
'**输 出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作 者：叶帆
'**日 期：2005-11-09 23:05:08
'**修 改 人：
'**日 期：
'**版 本：V1.0.0
'*************************************************************************
Private Sub Form_Load()
Dim strItem As String
Dim strInfo As String
strItem = strItem & "基本配置" & "|"
strItem = strItem & "模块说明" & "|"
strItem = strItem & "函数说明" & "|"
strItem = strItem & "出错处理" & "|"
strItem = strItem & "变量命名" & "|"
strItem = strItem & "代码自动补齐" & "|"
strItem = strItem & "代码自动替换" & "|"
strItem = strItem & "源码统计" & "|"
strItem = strItem & "在线注册"
strInfo = strInfo & "基本参数配置" & "|"
strInfo = strInfo & "定制模块说明的格式" & "|"
strInfo = strInfo & "定制函数(或过程)说明的格式" & "|"
strInfo = strInfo & "错误处理方式设置" & "|"
strInfo = strInfo & "变量命名规则设定" & "|"
strInfo = strInfo & "代码命令自动补齐" & "|"
strInfo = strInfo & "代码关键字自动替换" & "|"
strInfo = strInfo & "源码信息统计及查看" & "|"
strInfo = strInfo & "软件注册 － 成为注册用户"
SetDlg1.SetItem strItem, strInfo
SetDlg1_ItemClick 0, "", ""
'---------------------------------------------------------------
'---------------------------------------------------------------
End Sub
'*************************************************************************
'**函 数 名：Form_Unload
'**输 入：Cancel(Integer) -
'**输 出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作 者：叶帆
'**日 期：2005-11-09 23:53:07
'**修 改 人：
'**日 期：
'**版 本：V1.0.0
'*************************************************************************
Private Sub Form_Unload(Cancel As Integer)
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------
Unload frmConfig_01
Unload frmConfig_02
Unload frmConfig_03
Unload frmConfig_04
Unload frmConfig_05
Unload frmConfig_06
'------------------------------------------------
Exit Sub
'----------------
ToExit:
Resume Next
End Sub
'*************************************************************************
'**函 数 名：SetDlg1_ItemClick
'**输 入：index(Integer) -
'** ：strItem(String) -
'** ：strInfo(String) -
'**输 出：无
'**功能描述：选择
'**全局变量：
'**调用模块：
'**作 者：叶帆
'**日 期：2005-11-09 23:27:11
'**修 改 人：
'**日 期：
'**版 本：V1.0.0
'*************************************************************************
Private Sub SetDlg1_ItemClick(Index As Integer, strItem As String, strInfo As String)
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------
'Unload frmOld '关闭原先的窗体
Select Case Index
Case 0:
Set frmOld = frmConfig_01
Case 1:
Set frmOld = frmConfig_02
frmOld.Tag = 0
frmOld.Form_Load
Case 2:
Set frmOld = frmConfig_02
frmOld.Tag = 1
frmOld.Form_Load
Case 3:
Set frmOld = frmConfig_03
Case 4:
Set frmOld = frmConfig_04
frmOld.Tag = 0
frmOld.Form_Load
Case 5:
Set frmOld = frmConfig_04
frmOld.Tag = 1
frmOld.Form_Load
Case 6:
Set frmOld = frmConfig_04
frmOld.Tag = 2
frmOld.Form_Load
Case 7:
Set frmOld = frmConfig_05
Case 8:
Set frmOld = frmConfig_06
End Select
SetParent frmOld.hWnd, picBar.hWnd
frmOld.Show
'------------------------------------------------
Exit Sub
'----------------
ToExit:
Resume Next
End Sub
'*************************************************************************
'**函 数 名：tmrLink_Timer
'**输 入：无
'**输 出：无
'**功能描述：链接控制
'**全局变量：
'**调用模块：
'**作 者：叶帆
'**日 期：2004-09-21 13:07:49
'**修 改 人：
'**日 期：
'**版 本：V2.1.547
'*************************************************************************
Private Sub tmrLink_Timer()
Dim strTools(0 To 5) As String
Dim lngTime(0 To 5) As Long
strTools(0) = "叶帆Blog"
strTools(1) = "CSDN"
strTools(2) = "程序太平洋"
strTools(3) = "共享软件声讯注册"
strTools(4) = "共享软件声讯注册"
strTools(5) = "共享软件声讯注册"
lngTime(0) = 3
lngTime(1) = 2
lngTime(2) = 2
lngTime(3) = 3
lngTime(4) = 3
lngTime(5) = 3
Static intNum As Integer
intNum = intNum + 1
If intNum >= lngTime(intLink) Then
intNum = 0
intLink = intLink + 1
If intLink > 5 Then
intLink = 0
End If
imgLink.ToolTipText = strTools(intLink)
imgLink.Picture = imgBar(intLink).Picture
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -