📄 frmconfig_01.frm
字号:
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "一次卷动半页"
BackColor = 16777215
End
Begin VBFriend2006.XpRadioButton optInput
Height = 285
Index = 2
Left = 180
TabIndex = 15
Top = 1740
Width = 1965
_ExtentX = 3466
_ExtentY = 503
Enabled = 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "一次卷动一页"
BackColor = 16777215
End
End
Begin VBFriend2006.XPText txtInput
Height = 315
Index = 1
Left = 1500
TabIndex = 16
Top = 645
Width = 4575
_ExtentX = 8070
_ExtentY = 556
Enabled = 0 'False
Text = "Sky Walker（天行者）"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
BackColor = -2147483643
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "【注】:只有注册用户才能保存参数设置"
ForeColor = &H00FF8080&
Height = 285
Left = 120
TabIndex = 20
Top = 4185
Width = 4545
End
Begin VB.Label lblBar
BackStyle = 0 'Transparent
Caption = "日期格式(&D)："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 285
Index = 3
Left = 120
TabIndex = 19
Top = 1140
Width = 1905
End
Begin VB.Label lblBar
BackStyle = 0 'Transparent
Caption = "所属团队(&C)："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 285
Index = 1
Left = 120
TabIndex = 18
Top = 675
Width = 1905
End
Begin VB.Label lblBar
BackStyle = 0 'Transparent
Caption = "开 发 者(&W)："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 285
Index = 0
Left = 120
TabIndex = 17
Top = 225
Width = 1905
End
End
Attribute VB_Name = "frmConfig_01"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************************************************************************
'**模 块 名：frmConfig_01
'**说 明：YFsoft 版权所有2005 - 2006(C)
'**创 建 人：叶帆
'**日 期：2005-11-09 23:31:13
'**修 改 人：
'**日 期：
'**描 述：
'**版 本：V1.0.0
'*************************************************************************
Option Explicit
'*************************************************************************
'**函 数 名：chkInput_Click
'**输 入：Index(Integer) -
'**输 出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作 者：叶帆
'**日 期：2005-11-10 11:30:51
'**修 改 人：
'**日 期：
'**版 本：V1.0.0
'*************************************************************************
Private Sub chkInput_Click(Index As Integer)
Select Case Index
Case 0:
If chkInput(0).Value = 0 Then
cmbInput.Enabled = False
Else
cmbInput.Enabled = True
End If
Case 3:
If chkInput(3).Value = 0 Then
optInput(0).Enabled = False
optInput(1).Enabled = False
optInput(2).Enabled = False
Else
optInput(0).Enabled = True
optInput(1).Enabled = True
optInput(2).Enabled = True
End If
If optInput(0).Value = True Then
spnInput.Enabled = optInput(0).Enabled
End If
End Select
End Sub
'*************************************************************************
'**函 数 名：Form_Load
'**输 入：无
'**输 出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作 者：叶帆
'**日 期：2005-10-18 11:49:08
'**修 改 人：
'**日 期：
'**版 本：V1.0.0
'*************************************************************************
Private Sub Form_Load()
Me.Move 0, 0
cmbInput.Clear
cmbInput.AddItem "1 min"
cmbInput.AddItem "3 min"
cmbInput.AddItem "5 min"
cmbInput.AddItem "10 min"
cmbInput.AddItem "15 min"
cmbInput.AddItem "30 min"
cmbInput.ListIndex = 1
End Sub
'*************************************************************************
'**函 数 名：SaveValue
'**输 入：无
'**输 出：无
'**功能描述：保存参数
'**全局变量：
'**调用模块：
'**作 者：叶帆
'**日 期：2005-11-10 10:50:20
'**修 改 人：
'**日 期：
'**版 本：V1.0.0
'*************************************************************************
Public Sub SaveValue()
End Sub
'*************************************************************************
'**函 数 名：ResumeValue
'**输 入：无
'**输 出：无
'**功能描述：恢复参数
'**全局变量：
'**调用模块：
'**作 者：叶帆
'**日 期：2005-11-10 10:52:05
'**修 改 人：
'**日 期：
'**版 本：V1.0.0
'*************************************************************************
Public Sub ResumeValue()
End Sub
'*************************************************************************
'**函 数 名：optInput_Click
'**输 入：Index(Integer) -
'**输 出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作 者：叶帆
'**日 期：2005-11-10 11:38:44
'**修 改 人：
'**日 期：
'**版 本：V1.0.0
'*************************************************************************
Private Sub optInput_Click(Index As Integer)
If Index = 0 Then
spnInput.Enabled = optInput(0).Enabled
Else
spnInput.Enabled = False
End If
End Sub
'*************************************************************************
'**函 数 名：cmdHot_Click
'**输 入：Index(Integer) -
'**输 出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作 者：叶帆
'**日 期：2005-11-11 21:54:53
'**修 改 人：
'**日 期：
'**版 本：V3.2.548
'*************************************************************************
Private Sub cmdHot_Click(Index As Integer)
Dim strData As String
strData = "---【功能热键一览表】---" & vbCrLf & vbCrLf
strData = strData & "添加模块说明:Ctrl+Alt+T" & vbCrLf
strData = strData & "添加函数说明:Ctrl+Alt+F" & vbCrLf
strData = strData & "添加出错处理:Ctrl+Alt+E" & vbCrLf
strData = strData & "代码格式整理:全部 Ctrl+Alt+A" & vbCrLf
strData = strData & " 函数内 Ctrl+Alt+C" & vbCrLf
strData = strData & "命令匹配查找:Ctrl+[ / Ctrl+]" & vbCrLf
strData = strData & "代码修改说明:Ctrl+Alt+W" & vbCrLf
strData = strData & "添加代码注释:Ctrl+Alt+N"
MsgBox strData, vbInformation, "VB源码之友2006"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -