Easily allows temporary message to be displayed on any label for a programmable length of time.
This is a very simple way to display a temporary message on an existing label (or textbox)without doing a lot of coding.
Private Function TempMsg(tempMessage As String, timeInSecs As Single, whichLabel As Object) ' ======================== ' Author: CookWare Ok ' ======================== ' Function may be Public or Private as needed. Remember if used in a module use ' WhichForm.WhichLabel format to pass parameter to the function. ' EXAMPLE: Call TempMsg(myMessage, myTime, myForm.myLabel) ' ======================== ' You Must included timer and timer code shown below ' ======================== ' Private Sub timMsg_Timer() ' timMsg.Interval = 0 ' timMsg.Enabled = False ' bMsgOn = False ' End Sub ' ======================== ' You must also Dim bMsgOn As Boolean (either Public or Private as needed) ' ======================= Dim myMsg As String myMsg = whichLabel ' Stores currently displayed message bMsgOn = True If timeInSecs > 10 Then ' Limits time interval to 10 seconds ( May be changed as you see fit ) timeInSecs = 10 End If timMsg.Interval = timeInSecs * 1000 ' converts timeInSecs to milliseconds timMsg.Enabled = True ' Starts timer Do Until bMsgOn = False ' Do tempMessage until time is elapsed DoEvents whichLabel = tempMessage Loop whichLabel = myMsg ' Restores original message End Function
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts learning and sharing knowledge.