📄 frmtip.frm
字号:
VERSION 5.00
Begin VB.Form frmTip
Caption = "日积月累"
ClientHeight = 4080
ClientLeft = 2370
ClientTop = 2400
ClientWidth = 5955
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4080
ScaleWidth = 5955
WhatsThisButton = -1 'True
WhatsThisHelp = -1 'True
Begin VB.CheckBox Check1
Caption = "下一次运行时显示"
Height = 375
Left = 210
TabIndex = 5
Top = 3540
Value = 1 'Checked
Width = 2325
End
Begin VB.PictureBox Picture2
BackColor = &H80000009&
Height = 3225
Left = 120
ScaleHeight = 3165
ScaleWidth = 5655
TabIndex = 2
Top = 150
Width = 5715
Begin VB.Label Label2
BackColor = &H00C0FFC0&
BackStyle = 0 'Transparent
Caption = "华衡科技"
BeginProperty Font
Name = "华文彩云"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 1935
Left = 120
TabIndex = 6
Top = 120
Width = 495
End
Begin VB.Image Image2
Height = 3375
Left = 0
Picture = "frmTip.frx":0000
Top = 0
Width = 930
End
Begin VB.Line Line1
X1 = 720
X2 = 5400
Y1 = 840
Y2 = 840
End
Begin VB.Image Image1
Height = 495
Left = 1320
Picture = "frmTip.frx":081F
Top = 240
Width = 480
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "您知道吗..."
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2040
TabIndex = 4
Top = 360
Width = 1335
End
Begin VB.Label lblTipText
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1965
Left = 1470
TabIndex = 3
Top = 1080
Width = 3945
End
End
Begin VB.CommandButton cmdNextTip
Caption = "下一条提示(&N)"
Height = 375
Left = 2820
TabIndex = 1
Top = 3540
Width = 1455
End
Begin VB.CommandButton cmdOK
Cancel = -1 'True
Caption = "确定"
Default = -1 'True
Height = 375
Left = 4350
TabIndex = 0
Top = 3540
Width = 1455
End
Begin VB.Shape Shape1
Height = 3135
Left = 120
Top = 240
Width = 1095
End
End
Attribute VB_Name = "frmTip"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
Option Explicit
' 内存中的提示数据库。
Dim Tips As New Collection
' 提示文件名称
Const TIP_FILE = "TIPOFDAY.TXT"
' 当前正在显示的提示集合的索引。
Dim CurrentTip As Long
'##################################################################
'## 过程名称：DoNextTip
'## 参数： 无
'##################################################################
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
'##################################################################
'## 函数名称：LoadTips
'## 参数：sFile 为String型
'As Boolean'## 返回类型：As Boolean
'##################################################################
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
'##################################################################
'## 过程名称：Check1_Click
'## 参数： 无
'##################################################################
Private Sub Check1_Click()
If Check1.Value = 1 Then
WriteINI "系统参数", "提示", "true", "\监控系统.INI"
Else
WriteINI "系统参数", "提示", "false", "\监控系统.INI"
End If
End Sub
'##################################################################
'## 过程名称：cmdNextTip_Click
'## 参数： 无
'##################################################################
Private Sub cmdNextTip_Click()
DoNextTip
End Sub
'##################################################################
'## 过程名称：cmdOk_Click
'## 参数： 无
'##################################################################
Private Sub cmdOk_Click()
Unload Me
End Sub
'##################################################################
'## 过程名称：Form_Load
'## 参数： 无
'##################################################################
Private Sub Form_Load()
Dim ShowAtStartup As Long
Dim t As Boolean
' 察看在启动时是否将被显示
' ShowAtStartup = GetSetting(App.EXEName, "Options", "在启动时显示提示", 1)
ReadINI "系统参数", "提示", "\监控系统.INI"
t = Trim(Result)
If t Then
frmTip.Check1.Value = 1
Else
frmTip.Check1.Value = 0
End If
Randomize
' 读取提示文件并且随机显示一条提示。
If LoadTips(App.Path & "\" & TIP_FILE) = False Then
lblTipText.Caption = "文件 " & TIP_FILE & " 没有被找到吗? " & vbCrLf & vbCrLf & _
"创建文本文件名为 " & TIP_FILE & " 使用记事本每行写一条提示。 " & _
"然后将它存放在应用程序所在的目录 "
End If
End Sub
'##################################################################
'## 过程名称：DisplayCurrentTip
'## 参数： 无
'##################################################################
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 + -