Balloon Tool Tip Trick - Codoid
Select Page
Codoid Blog

Balloon Tool Tip Trick

Irrespective of the business that your client is in, marketing is an integral part of their operations. In fact, in this day and age of social.

Sometimes we need to know which is step being executed currently by QTP. Using
automatic timeout message box, we can get that information, but QTP execution is
halted until the message box timeout expires. How to display some useful runtime
information without halting the execution? The only workaround is displaying tool tip
information in Windows System Tray. Let us see how this technique is done using DOT
Net Factory.

Code

Class BalloonTooltipClass
Private oNtfy,oToolTip,oIcon,icon_Path

Private sub Class_Initialize
icon_Path="C:sample.ico"
Set
oNtfy=DotNetFactory.CreateInstance("System.Windows.Forms.NotifyIcon","System.Windo
ws.Forms")
Set oToolTip
=DotNetFactory.CreateInstance("System.Windows.Forms.ToolTipIcon","System.Windows.F
orms")
Set
oIcon=DotNetFactory.CreateInstance("System.Drawing.Icon","System.Drawing",icon_Pat
h)
End Sub

Function Show(ByVal strTitle,ByVal strContent)
oNtfy.Icon=oIcon
oNtfy.BalloonTipIcon=oToolTip.Info
oNtfy.Visible=True
oNtfy.Text = strTitle
oNtfy.BalloonTipTitle = strTitle
oNtfy.BalloonTipText=strContent
oNtfy.ShowBalloonTip(5000)
End Function

Private Sub Class_Terminate
oNtfy.Dispose()
Set oIcon =Nothing
Set oTool =Nothing
Set oNtfy=Nothing
End Sub

End Class

Public BalloonTooltip:Set BalloonTooltip=New BalloonTooltipClass

BalloonTooltip.Show "test title","test content"
wait(15)
  

Written By

Submit a Comment

Your email address will not be published. Required fields are marked *


Sometimes we need to know which is step being executed currently by QTP. Using
automatic timeout message box, we can get that information, but QTP execution is
halted until the message box timeout expires. How to display some useful runtime
information without halting the execution? The only workaround is displaying tool tip
information in Windows System Tray. Let us see how this technique is done using DOT
Net Factory.

Code

Class BalloonTooltipClass
Private oNtfy,oToolTip,oIcon,icon_Path

Private sub Class_Initialize
icon_Path="C:sample.ico"
Set
oNtfy=DotNetFactory.CreateInstance("System.Windows.Forms.NotifyIcon","System.Windo
ws.Forms")
Set oToolTip
=DotNetFactory.CreateInstance("System.Windows.Forms.ToolTipIcon","System.Windows.F
orms")
Set
oIcon=DotNetFactory.CreateInstance("System.Drawing.Icon","System.Drawing",icon_Pat
h)
End Sub

Function Show(ByVal strTitle,ByVal strContent)
oNtfy.Icon=oIcon
oNtfy.BalloonTipIcon=oToolTip.Info
oNtfy.Visible=True
oNtfy.Text = strTitle
oNtfy.BalloonTipTitle = strTitle
oNtfy.BalloonTipText=strContent
oNtfy.ShowBalloonTip(5000)
End Function

Private Sub Class_Terminate
oNtfy.Dispose()
Set oIcon =Nothing
Set oTool =Nothing
Set oNtfy=Nothing
End Sub

End Class

Public BalloonTooltip:Set BalloonTooltip=New BalloonTooltipClass

BalloonTooltip.Show "test title","test content"
wait(15)