traymsg.vb

来自「<Visual Basic 数据库开发实例精粹（第二版）>一书首先介」· VB 代码 · 共 31 行

Public Class TrayMsg

  Private m_MsgForm As New frmMsg

  '==================================================================================
  'ShowSpeed： 显示消息框速度，取值1-10，数越大越快
  'WaitTime：  默认停留时间，以0.1秒为单位
  'HideSpeed： 隐藏速度，取值1-10，数越大越快
  '==================================================================================
  Public Function CreateWnd(Optional ByVal ShowSpeed As Integer = 4, _
                            Optional ByVal WaitTime As Integer = 4, _
                            Optional ByVal HideSpeed As Integer = 6) As String

    Return m_MsgForm.CreateWnd(ShowSpeed, WaitTime, HideSpeed)

  End Function


  '==================================================================================
  'OnlyOnce：  是否只显示一次
  'Interval：  下次显示的间隔时间，以秒为单位
  '==================================================================================
  Public Function ShowWnd(Optional ByVal OnlyOnce As Boolean = True, _
                            Optional ByVal Interval As Integer = 10) As String

    Return m_MsgForm.ShowWnd(OnlyOnce, Interval)

  End Function

End Class