日积月累（Tips of day）

“日积月累”窗口的制作     许多应用程序进入操作窗口以后将显示一个“日积月累（Tips of day）”。 界面如下图所示。  

Private Sub DoNextTip()
 ‘随机选择一条提示。
CurrentTip = Int((Tips.Count * Rnd) + 1)
 ‘或者，您可以按顺序遍历提示
 ‘CurrentTip = CurrentTip + 1
 ‘If Tips.Count  ‘CurrentTip = 1
 ‘End If
 ‘显示它。
frmTip.DisplayCurrentTip
End Sub

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

Public Sub DisplayCurrentTip()
If Tips.Count > 0 Then
lblTipText.Caption = Tips.Item(CurrentTip)
End If
End Sub   文章知识点与官方知识档案匹配，可进一步学习相关知识MySQL入门技能树SQL高级技巧Window Function32058 人正在系统学习中