traymsg.vb

<Visual Basic 数据库开发实例精粹（第二版）>一书首先介绍了Visual Basic(简称VB)开发的技巧和重点技术

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