?? frmhint.frm
字號:
VERSION 5.00
Begin VB.Form FrmHint
Caption = "幫助"
ClientHeight = 5640
ClientLeft = 60
ClientTop = 450
ClientWidth = 5520
LinkTopic = "Form1"
ScaleHeight = 5640
ScaleWidth = 5520
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton cmdOK
Cancel = -1 'True
Caption = "確定"
Default = -1 'True
Height = 375
Left = 3675
TabIndex = 4
Top = 5040
Width = 1455
End
Begin VB.CommandButton cmdNextHint
Caption = "下一條提示(&N)"
Height = 375
Left = 2040
TabIndex = 3
Top = 5040
Width = 1455
End
Begin VB.PictureBox Picture1
BackColor = &H80000009&
Height = 4815
Left = 240
ScaleHeight = 4755
ScaleWidth = 4875
TabIndex = 0
Top = 120
Width = 4935
Begin VB.Label lblHintText
BackColor = &H80000009&
Height = 4095
Left = 120
TabIndex = 2
Top = 600
Width = 4695
End
Begin VB.Label Label1
BackColor = &H80000009&
Caption = "你知道嗎?..."
Height = 375
Left = 120
TabIndex = 1
Top = 120
Width = 2055
End
End
End
Attribute VB_Name = "FrmHint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
' 內存中的提示數據庫。
Dim Hints As New Collection
' 提示文件名稱
Const Hint_FILE = "HotelManager.txt"
' 當前正在顯示的提示集合的索引。
Dim CurrentHint As Long
Dim ShowAtStartup As Long
Private Sub DoNextHint()
' 按順序提示
CurrentHint = CurrentHint + 1
If Hints.Count < CurrentHint Then
CurrentHint = 1
End If
' 顯示它。
FrmHint.DisplayCurrentHint
End Sub
Function LoadHints(sFile As String) As Boolean
Dim NextHint As String ' 從文件中讀出的每條提示。
Dim InFile As Integer ' 文件的描述符。
' 包含下一個自由文件描述符。
InFile = FreeFile
' 確定為指定文件。
If sFile = "" Then
LoadHints = False
Exit Function
End If
' 在打開前確保文件存在。
If Dir(sFile) = "" Then
LoadHints = False
Exit Function
End If
' 從文本文件中讀取集合。
Open sFile For Input As InFile
While Not EOF(InFile)
Line Input #InFile, NextHint
Hints.Add NextHint
Wend
Close InFile
' 顯示一條提示。
DoNextHint
LoadHints = True
End Function
Private Sub cmdNextHint_Click()
'顯示下一條提示
DoNextHint
lblHintText.Caption = Hints.Item(CurrentHint)
End Sub
Private Sub Form_Load()
' 查看在啟動時是否顯示
ShowAtStartup = GetSetting(App.EXEName, "Options", "在啟動時顯示提示", 1)
' 讀取注冊表內計數的值
FrmHint.DisplayCurrentHint
' 讀取提示文件并且隨機顯示一條提示。
If LoadHints(App.Path & "\" & Hint_FILE) = False Then
lblHintText.Caption = "文件 " & Hint_FILE & " 沒有被找到嗎? " & vbCrLf & vbCrLf & _
"創建文本文件名為 " & Hint_FILE & " 使用記事本每行寫一條提示。 " & _
"然后將它存放在應用程序所在的目錄 "
End If
End Sub
Public Sub DisplayCurrentHint()
If Hints.Count > 0 Then
lblHintText.Caption = Hints.Item(CurrentHint)
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Frmmain.Enabled = True
End Sub
Private Sub cmdOK_Click()
Unload Me
Frmmain.Enabled = True
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -