www.pudn.com > 档案管理系统源码VB.zip > frmTip.frm
VERSION 5.00
Begin VB.Form frmTip
AutoRedraw = -1 'True
BorderStyle = 3 'Fixed Dialog
Caption = "日积月累"
ClientHeight = 3225
ClientLeft = 2355
ClientTop = 2385
ClientWidth = 5430
Icon = "frmTip.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 3225
ScaleWidth = 5430
ShowInTaskbar = 0 'False
WhatsThisButton = -1 'True
WhatsThisHelp = -1 'True
Begin VB.CommandButton cmdNextTip
Caption = "下一个(&N)"
Height = 375
Left = 4065
TabIndex = 1
Top = 750
Width = 1215
End
Begin VB.PictureBox Picture1
BackColor = &H00FFFFFF&
Height = 2625
Left = 180
Picture = "frmTip.frx":08CA
ScaleHeight = 2565
ScaleWidth = 3675
TabIndex = 2
Top = 300
Width = 3735
Begin VB.CheckBox chkLoadTipsAtStartup
BackColor = &H00FFFFFF&
Caption = "启动时显示(&S)"
ForeColor = &H00808000&
Height = 315
Left = 210
TabIndex = 6
Top = 2220
Width = 1665
End
Begin VB.Line Line4
BorderColor = &H000080FF&
X1 = 0
X2 = 3675
Y1 = 2145
Y2 = 2145
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "View Readme"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 180
Left = 1530
MouseIcon = "frmTip.frx":0BD4
MousePointer = 99 'Custom
TabIndex = 5
ToolTipText = "单击打开 Readme"
Top = 225
Width = 990
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "您知道吗？"
ForeColor = &H000000FF&
Height = 255
Left = 540
TabIndex = 4
Top = 225
Width = 2655
End
Begin VB.Label lblTipText
BackColor = &H00FFFFFF&
Height = 1440
Left = 240
TabIndex = 3
Top = 720
Width = 3255
End
End
Begin VB.CommandButton cmdOK
Cancel = -1 'True
Caption = "确定"
Default = -1 'True
Height = 375
Left = 4065
TabIndex = 0
Top = 300
Width = 1215
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 0
X1 = 15
X2 = 5385
Y1 = 0
Y2 = 0
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 1
X1 = 45
X2 = 5385
Y1 = 15
Y2 = 15
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 2
X1 = 0
X2 = 5400
Y1 = 3195
Y2 = 3195
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 3
X1 = 15
X2 = 5400
Y1 = 3180
Y2 = 3180
End
Begin VB.Line Line2
BorderColor = &H00808080&
Index = 0
X1 = 15
X2 = 15
Y1 = 0
Y2 = 3210
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
Index = 0
X1 = 30
X2 = 30
Y1 = 15
Y2 = 3210
End
Begin VB.Line Line2
BorderColor = &H00808080&
Index = 1
X1 = 5385
X2 = 5385
Y1 = 0
Y2 = 3195
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
Index = 1
X1 = 5400
X2 = 5400
Y1 = 0
Y2 = 3195
End
End
Attribute VB_Name = "frmTip"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
' 技巧的数据库。
Dim Tips As New Collection
' 技巧文件名称。
Const TIP_FILE = "File.Wxy"
' 当前被显示的技巧集合索引。
Dim CurrentTip As Long
Private Sub DoNextTip()
' 随机选择一个技巧。
CurrentTip = Int((Tips.Count * Rnd) + 1)
' 或者，按顺序在所有技巧中循环选择。
' CurrentTip = CurrentTip + 1
' If Tips.Count < CurrentTip Then
' CurrentTip = 1
' End If
' 显示。
frmTip.DisplayCurrentTip
End Sub
Function LoadTips(sFile As String) As Boolean
Dim NextTip As String ' 从文件读取每一个技巧。
Dim InFile As Integer ' 文件描述符。
' 获得下一个空文件描述符。
InFile = FreeFile
' 确保一个文件被指定。
If sFile = "" Then
LoadTips = False
Exit Function
End If
' 试图打开一个文件前，确保该文件存在。
If Dir(sFile) = "" Then
LoadTips = False
Exit Function
End If
' 从文本文件读取该集合。
Open sFile For Input As InFile
While Not EOF(InFile)
Line Input #InFile, NextTip
Tips.Add NextTip
Wend
Close InFile
' 随机显示一个技巧。
DoNextTip
LoadTips = True
End Function
Private Sub chkLoadTipsAtStartup_Click()
' 保存启动时该窗体是否显示。
SaveSetting App.EXEName, "Options", "Show Tips at Startup", chkLoadTipsAtStartup.Value
End Sub
Private Sub chkLoadTipsAtStartup_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
GetStatus "选定时,系统启动时加载,否则不加载"
End Sub
Private Sub cmdNextTip_Click()
DoNextTip
End Sub
Private Sub cmdNextTip_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
GetStatus "显示下一条帮助信息"
End Sub
Private Sub cmdOK_Click()
Unload Me
End Sub
Private Sub cmdOK_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
GetStatus "保存设置并返回"
End Sub
Private Sub Form_Load()
frmTip.Left = Val(GetSetting(App.EXEName, "Tip", "Left"))
frmTip.Top = Val(GetSetting(App.EXEName, "Tip", "Top"))
Me.chkLoadTipsAtStartup.Value = vbChecked
' 为 Rnd 重置种子
Randomize
' 读技巧文件并随机显示一个技巧。
If LoadTips(App.Path & "\" & TIP_FILE) = False Then
lblTipText.Caption = "" & TIP_FILE & " 文件未找到？" & vbCrLf & vbCrLf & _
"使用记事本，创建一个名为 " & TIP_FILE & " 的文本文件，其中每行一个技巧。 " & _
"然后，放在应用程序所在目录下。"
End If
End Sub
Public Sub DisplayCurrentTip()
If Tips.Count > 0 Then
lblTipText.Caption = Tips.Item(CurrentTip)
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.EXEName, "Tip", "Left", Me.Left
SaveSetting App.EXEName, "Tip", "Top", Me.Top
End Sub
Private Sub Label2_Click()
Dim Rok As Double
Rok = Shell("notepad.exe " & Browser + "Readme.txt", vbNormalFocus)
If Rok = 0 Then
MsgBox "Windows 的 Notepad 没有安装!", vbOKOnly + 16, "错误"
Exit Sub
End If
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
GetStatus "单击打开系统的自述文件"
End Sub
Private Sub lblTipText_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
GetStatus "帮助信息显示处"
End Sub