?? frmtip.frm
字號:
VERSION 5.00
Begin VB.Form frmTip
Caption = "日積月累"
ClientHeight = 3285
ClientLeft = 2370
ClientTop = 2400
ClientWidth = 5685
Icon = "frmTip.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3285
ScaleWidth = 5685
StartUpPosition = 2 '屏幕中心
WhatsThisButton = -1 'True
WhatsThisHelp = -1 'True
Begin VB.CheckBox chkLoadTipsAtStartup
Caption = "在啟動時顯示提示(&S)"
Height = 315
Left = 120
TabIndex = 3
Top = 2940
Width = 2055
End
Begin VB.CommandButton cmdNextTip
Caption = "下一條提示(&N)"
Height = 375
Left = 4080
TabIndex = 2
Top = 600
Width = 1455
End
Begin VB.PictureBox Picture1
BackColor = &H00FFFFFF&
Height = 2715
Left = 120
Picture = "frmTip.frx":030A
ScaleHeight = 2655
ScaleWidth = 3675
TabIndex = 1
Top = 120
Width = 3735
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "您知道嗎..."
Height = 255
Left = 540
TabIndex = 5
Top = 180
Width = 2655
End
Begin VB.Label lblTipText
BackColor = &H00FFFFFF&
Height = 1635
Left = 180
TabIndex = 4
Top = 840
Width = 3255
End
End
Begin VB.CommandButton cmdOK
Cancel = -1 'True
Caption = "確定"
Default = -1 'True
Height = 375
Left = 4080
TabIndex = 0
Top = 120
Width = 1455
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 = "TIPOFDAY.TXT"
' 當前正在顯示的提示集合的索引。
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", "在啟動時顯示提示", chkLoadTipsAtStartup.Value
End Sub
Private Sub cmdNextTip_Click()
DoNextTip
End Sub
Private Sub cmdOK_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim ShowAtStartup As Long
' 察看在啟動時是否將被顯示
ShowAtStartup = GetSetting(App.EXEName, "Options", "在啟動時顯示提示", 1)
If ShowAtStartup = 0 Then
Unload Me
Exit Sub
End If
' 設置復選框,強行將值寫回到注冊表
Me.chkLoadTipsAtStartup.Value = vbChecked
' 隨機尋找
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -