Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
 
  HOME    TRACKER    Visual Basic




Balloon Notifications (PLEASE HELP!)


I was wondering if you know anything about Balloon Notifications. I ask because I have a VB program that shows a balloon tip and when I click on the balloon it unloads the application. This is what I want it to do but when a user clicks on the "X" button within the balloon nothing happens. I have found no documentation on what value is passed when that button is clicked. Can you help!?




View Complete Forum Thread with Replies

See Related Forum Messages: Follow the Links Below to View Complete Thread
Asynchronous Notifications
I urgently need a sample code on the following:
1) Asynchronous Notification via Call-Back methods
2) Asynchronous Notification via Events

Thanx

Control Notifications
Hi ALL,
In a VB form I am having different types of controls.Say 3 text boxes and 2 combo boxes.
I am accepting an input in one textbox.Whatever
the value entered in that textbox should come in
all the controls.The Main important thing is you should not write the Code in Any of the events in the control.For my knowledge , I think using API
We can do. Can you anybody give me the exact solution for this one?.
Thanks in advance.
Regards,
Palani.

Send Notifications To Another Process?
Dear Friends

1. Does anybody know if it's possible to send a CDN_xxx (CommonDialogNotification message) to an out-of-process Common Dialog Box?

2. Failing that, is it possible to locate a Popup Menu being displayed by that CDlg?

It's got me beat, frankly

PS: Before anybody makes a wisecrack about Rent-a-Coder , I tried there and they passed the job back to me!

Automatic E-mail Notifications
Here's the task - Come up with a script that will read an Excel spread sheet containing anniversary dates of 30 people, 1 month before the anniversary date is due - send out an e-mail to a select few notifing them that the date is coming. In Outlook.

Printer Notifications - Clarify
I want to know the difference between setting a printer job (PRINTER_CHANGE_SET_JOB) and adding a job to a printer queue
(PRINTER_CHANGE_ADD_JOB).

Which comes first? Which is better to monitor if I may end up deleting the job eventually?

Thanks in advance.

Embedded VB Activesync Notifications
Hi,I would like PDA app to execute code to close ADOCE DB connection when receiving an Activesync Begin_Sync Notification. How do my programme detect this notification, what event can I use? OS = wince 3.0, Platform = Pocket PC. Using Embedded Visual Basic.

Below is a short piece o code, the missing part is the
<??ON Activesync Begin Sync Notification??>


Dim conn1 As ADOCE.Connection 'Global Vars
Dim strActiveConnection As String 'Path of db

'Main
Public Sub main()
Set conn1 = New ADOCE.Connection
conn1.ConnectionString = "provider=cedb;data source=" _
& strActiveConnection & ";"
Conn1.Open
End Sub

'Work on open db, faster than opening and closing all the time

Private Sub <??ON Activesync Begin Sync Notification??>
conn1.Close
Set conn1 = Nothing
End Sub

I would like to do this cause whenever the app is active and the user tries to syncronize an error occurs (because conn1 is still open)
Please help.
Thanks
River

Using Winfax.dll To Receive Fax Delivery Notifications
HI guys 'n' gals,

Long time since I posted.

Not sure if this should be in communications or not but I'll post here as it is the most relevant topic.

I would like to know if it is worthwhile pursueing the following.

I can fax through VBA using the following simple code, which is apparently the COM automation method....

Code:
Public Function Fax(ByVal FileName As String, ByVal FaxNumber As String)
Dim FaxServer As Object
Dim FaxDoc As Object
Set FaxServer = CreateObject("FaxServer.FaxServer")
FaxServer.Connect ("<local PC host name>")
Set FaxDoc = FaxServer.CreateDocument(FileName)

With FaxDoc
.FaxNumber = FaxNumber
.Send
End With

Set FaxDoc = Nothing
Set FaxServer = Nothing
End Function
But this will not allow me to receive delivery notifications (ie, failures, successes) as Microsoft, helpfully , point out here.

However, a method does exist to do this, but it's in C, specifically using C APIs. There is a specific structure that can be configured FAX_JOB_PARAM .
Or, more accurately, I need to populate the DeliveryReportType and DeliveryReportAddress sections of the structure.

My problem is, can I somehow use the C API version within VB. The entire C (and VB) methods are described in this link and here.

Do I, somehow, need to find the calls that the FAXCOM.DLL export and replicate the structures that exist within the FAXCOM.h and WINFAX.h header files ?

I'd very much like to attempt this rather than relying on 3rd party controls.
Any pointers would help greatly, or even example of other C specific APIs being used within VB.

TIA
G.

Q? How To Send Email Notifications From The Site
How To send Email notifications From the site

Asynchronous Notifications Using Call-back Methods
I am not that clear on the concept.
Please help.
Thanks

http://msdn.microsoft.com/library/en...l/avtcm105.gif

Disabling Script Error Notifications In WebBrowser?
I am working on a project that requires webbrowser and I am constantly getting script errors, and I was wondering if anybody knew how to disable these notices. It would be much appreciated, THANKS!!

Asynchronous Notifications Using Call-back Methods
I am not that clear on the concept.
Please help.
Thanks

Receiving Notifications From The System Tray Icon Of An Application
VB Code:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim msg As Long     On Error GoTo ErrorHandler        'Respond to user interaction    msg = X / Screen.TwipsPerPixelX        Select Case msg         Case WM_LBUTTONDBLCLK            'nothing         Case WM_LBUTTONDOWN            'nothing         Case WM_LBUTTONUP         Case WM_RBUTTONDBLCLK            'nothing         Case WM_RBUTTONDOWN            Call PopupMenu(mnuSettings, vbPopupMenuRightAlign)         Case WM_RBUTTONUP            'nothing     End Select Exit SubErrorHandler: 'Display error message    Screen.MousePointer = vbDefault    LogMessage Err.Description End Sub


in this code.. why do this ??? please explain?

msg = X / Screen.TwipsPerPixelX

XP Balloon API
Hey friends, I need help how to use XP's balloon API? The Balloon API is the usual balloon that pops up when we got low space on a drive, when windows update is available, or when we are connected to the LAN/internet.

I'm thinking that the balloon API can be called, and the balloon is an API call.

Balloon Tip...
I'm using this to display my icon in the system tray:
http://www.devx.com/vb2themax/Tip/18407

Now with that code, how would I go displaying a tooltip on command for lets say 5 seconds?

Balloon To Appear
Is it possible for when a mouse hovers over a command button, a balloon appears with some text in?

How will it be done? THanks

Balloon Help
I have to make passover balloons in a project I am currently working on. However, with ToolTipText, it seems to only want 1 line. I wanted the ballons to be more balloonish, and have a few lines, rather than just 1 drop down line which doesn't look to great.

Balloon Tips
Hello I've used the code from

http://vbnet.mvps.org/index.html?cod...oontiptext.htm

for making balloon tips at my text boxes, now does anyone knows how to activite the balloons with images and buttons??? Please help me out here, thanx in advance.

Balloon Tip Problems
I found this class through the search on the forum was using it got to a point where it shows the balloon tip accept its solid black...Someone give me a idea of whats wrong?

XP Popup Balloon
Is it possible to make an XP Popup balloon reminder appear when a Window is hidden?
Eg: "This window is still running in the background, click here to show it again"
If this is possible does anybody have any idea of the code to make it work?
Thanks.

SysTray Balloon
When i minimize my program to the systray, i want to display a balloon such as the one used by win xp. Is there a control or API to do this or is it not possible? -Thanks

Balloon Tooltips
How can I create balloon tooltip through vb?

How do you put icons on this balloon? The standard icons like information, exclamation, critical, etc?

Do anyone have a demo, suggestions?

I will really appreciate it.

Balloon Tooltips
Is there an API to use the balloon tooltips in XP? Or do you have to draw them yourself?

thanks.

Balloon ToolTip
Not a hard q here but i was wondering if it was possible to add a click event to the Balloon ToolTip you see in the later Windows OS's.

If this is know this is possible but dunno how to add the code still say that cause then atleast ill try abit harder at the search engines, lol

But if ya know how it's done ca you please post a code that can be copied and pasted, i find it easier to study

Cheers dudes

btw i attached a screen shot just in case ya dunno what im talking about

Balloon Tips
How to Create Baloon tips on Screen. It should also be on top of all other wndows Pls Help

XP Balloon Tips
Hi all,

How do i get balloon tips in forms (Pic Below)??



Thanks!

Ross

Balloon Tip Trouble
Hello all,
In my app, I have a balloon tip which is triggered at form load. I have set the timeout to be 3000msec expecting the balloon to disappear after 3 seconds. But unfortunately, it doesn't disappear and remains much much longer....
What is the problem? Am I missing something?
Any help is appreciated...
Thanks
anoop

Balloon On Mouse Over
I have a download manager that minimizes to system tray, and when you put your mouse over the icon in the tray a balloon pops up.
How would I do this?

Balloon Notification
Hi

Is it possible to have a system tray balloon notifcation from within VB?

Thanks

Steve

PS: I'm running Visual Basic 6.0 SP2 on Win XP SP2

Balloon Tips?
Create Customized ToolTips

Balloon Tip Content
hey,

i have my app displaying a balloon tip depending on certain events happening, but the problem is i cant seem to figure how to format text inside the balloon. I need to make some things underlined and some bold, how can this be done? Also, i need to be able to add a hyperlink in there, is that anything like possible?

regards,

digi

Balloon Pop Up Code For VB6
Hi all

i'm looking for a systray balloon pop up code for vb6, was wondering if anyone know any references i can refer to?

I have a .net working version, but it's in .net need something that works on vb6 and on XP, 2000 machines



Edited by - Sylpheed on 1/3/2006 9:44:37 PM

Balloon Tip In Systray
Hi.

How can I do a Balloon Tip on a Icon in systray?

I've this: in a module

Code:
Option Compare Database
Option Explicit

' This module contains the API-Declarations as well as the application-spezific
' implementations for adding (and removing) an icon to the systray

Private Type NOTIFYICONDATA
  cbSize As Long
  hwnd As Long
  uID As Long
  uFlags As Long
  uCallbackMessage As Long
  hIcon As Long
  sztip As String * 64
End Type

Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const MK_LBUTTON = &H1

Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONDBLCLK = &H206
Public Const WM_RBUTTONUP = &H205


Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4

Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2

Public Const LR_LOADFROMFILE = &H10
Public Const IMAGE_BITMAP = 0
Public Const IMAGE_ICON = 1
Public Const IMAGE_CURSOR = 2
Public Const IMAGE_ENHMETAFILE = 3
Public Const CF_BITMAP = 2

Public Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal dwImagetype As Long, ByVal dwDesiredWidth As Long, ByVal dwDesiredHeight As Long, ByVal dwFlags As Long) As Long

Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Public Declare Function SetForegroundWindow Lib "user32" _
   (ByVal hwnd As Long) As Long

Private IconData As NOTIFYICONDATA

Sub registerIcon(hwnd As Long, hIcon As Long, strIcontip As String)
  
  ' Adding a terminating Zero to the string
  If Right(strIcontip, 1) <> Chr(0) Then
    strIcontip = strIcontip & Chr(0)
  End If
  
  IconData.cbSize = Len(IconData)
  IconData.hwnd = hwnd
  IconData.uID = 1&
  IconData.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
  
  ' This member of the struct defines which type of Windows-Messages
  ' will be processed by the window owning the icon
  IconData.uCallbackMessage = WM_MOUSEMOVE
  IconData.hIcon = hIcon
  IconData.sztip = strIcontip
  
  
  
  Call Shell_NotifyIcon(NIM_ADD, IconData)
  
End Sub

Sub unregisterIcon()
    ' This call removes the Icon from Systray
    Call Shell_NotifyIcon(NIM_DELETE, IconData)
End Sub


and this: in a form
Code:
Option Compare Database
Option Explicit

Private Sub goSystray()
    Dim hIcon As Long
    Dim strIconInfo As String
    
    strIconInfo = "Access in Systray Demo - Doubleclick icon to restore window"
    
    hIcon = getIcon(Nz(CurrentProject.Path & "dataicon.ico", "")) 'path for a icon
    
    Call registerIcon(Me.hwnd, hIcon, strIconInfo)

    'DoCmd.Minimize

End Sub

Private Function getIcon(strFileName As String) As Long

    ' This function loads an Icon from filesystem an returns the handle for the icon
    
    getIcon = LoadImage(0, strFileName, IMAGE_ICON, 16, 16, LR_LOADFROMFILE)

End Function

Private Sub Befehl0_Click()
    Call goSystray
End Sub


Now I need a BalloonTip at Icon.

Can you help me?



Edited by - N1CK on 3/2/2006 11:14:13 AM

XP Tray Balloon
Hi,
I am just starting to learn how to use API. I've been trying to figure out how to use the balloon notification that Windows XP uses when I plug in a new device, or when I am running out of HD space, etc.... I found alot of different threads and web pages showing how to add that to textboxes, lists, etc; I think I could probably just take that and apply it to the tray icon, but what I really want to do (for educational purposes, as in, it's a challenge) is to use the very same balloons that Windows XP uses (I'm sure there is a way to call them and just put my own text on them). I did found some C++ code to do that and I tried translating it to VB, but I only got half of it right. I can get to display the tooltips ontop of the system tray whenever I click a button on a form, but there are 2 problems with it, 1: it's not a ballon, it's a simple yellow rectangle (ordinary tooltips) and 2: it shows the text that I have assigned to the tray icon's tooltip instead of what I want to display on the balloon. I started by copying the code the the FAQ to add an icon to the tray, and then I added a couple of lines (mostly guessing) that seem to work at least to display the tooltips when I hit a button.
Since I am just trying to get this part figured out before I use it in a larger program, I created a form with 2 command buttons (form1, command1 and command2), and below is all the code I have (bold letters for the lines that are not in the tray icon FAQ). Please take a look and see if you can figure out what I'm missing.


Code:
Option Explicit

Private Type NOTIFYICONDATA
   cbSize As Long
   hWnd As Long
   uId As Long
   uFlags As Long
   uCallBackMessage As Long
   hIcon As Long
   szTip As String * 64
   szInfo As String
End Type

Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const NIM_INFO = &H3

Private Const WM_MOUSEMOVE = &H200

Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4

Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Dim nid As NOTIFYICONDATA


Private Sub Command1_Click()
    Shell_NotifyIcon NIM_ADD, nid
End Sub


Private Sub Command2_Click()
    Shell_NotifyIcon NIM_INFO, nid 'it is suppose to be INFO instead of ADD, REMOVE, or MODIFY, but I can't find any refference to that anywhere (I only found it once on MSDN, but it was for C++ and I can't find it again anyway)
End Sub

Private Sub Form_Load()
      
   With nid
      .cbSize = Len(nid)
      .hWnd = Me.hWnd
      .uId = vbNull
      .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
      .uCallBackMessage = WM_MOUSEMOVE
      .hIcon = Me.Icon ' <== You can change this to another icon
      .szTip = "SysTray ToolTip Goes Here" & vbNullChar ' <== You can change this also.
      .szInfo = "Hello World" & vbNullChar 'this should be showing on the balloon, but instead I see a tooltip with the text on the line above.
   End With
End Sub

Private Sub Form_Terminate()
   Shell_NotifyIcon NIM_DELETE, nid
End Sub


I hope someone can shine some light on my problem.
Thanks in advance.



Edited by - NightPhantom on 5/3/2003 8:39:30 PM

MessageBox Balloon
I very need source code of the MessageBox Balloon such as Microsoft Office.
If somebody have it then please send to me.
Thank All.

Systray Balloon Tips
After unsuccesfull attempts to try and find this, I came here . . .
Are there any simple way of adding balloon tips from the systray.
If not, what replacement could I have?

Thank you !!

Balloon Popup Windows
FYI: VB6.0 MDI application.
I need to communicate with the client when errors in forms are submitted. I tried displaying MSGBox's with a description of the error. However, when tested, people reported that the population and closing of the MSGBox's became annoying. I then removed the MSGBox's and turned the BGColor of the control to VBYellow if an error in data occurred; I also set the help index so that if the client hit F1 then it would tell them what is acceptable data for that field. Now I tested this with a new set of clients. They said that they were extremely confused. Most of them had no clue that F1 populated help and said that that would be one of the last things they would try. So I talked it over with some of my friends and they brought up the idea of populating a balloon-like message box over the error control describing the error. This way there is nothing to close out of and nothing to extra to execute like F1. It would be nice to have the balloon time out and disappear after a few seconds, also it would be nice if it disappeared once the mouse clicks anywhere on the form.

Does anyone have any clues on where I could find such a control? Or does anyone have any other suggestions on the subject?

Any thoughts would be appreciated.

Thanks in advance.....

- Eric

System Tray, IP, Balloon...
How do I:

Minimize a program to system tray
Do a certain action only at 9:30pm, say.
Get the system's IP address(and is it possible with a router?)
Display that IP address when the mouse hovers over the programs icon in the tray


?

Balloon Tool-tips
I have noticed that special balloon tips in Windows ME, 2000, and especially XP can pop up sometimes notifying you of news or reminders. This is especially used in XP since it can also happen when you, say, type an invalid character in a text box.

I know that you can make these balloon tips appear from an icon in the system tray; is there any way to show them anywhere else?

For example:

http://www.lantalk.net/thumb/advcall.gif


thanks!

Balloon Tootiptext Problem
tray.dwInfoFlags = me.Icon < can't make it work on a balloon in front of the title to put my icon can anybody help with this ?

Balloon Tool Tip Remove
Hello

I'm using Balloon Tool Tip, but when i assign it, it cannot be removed with this code. How would i remove the balloon....

This code in Class:

Code:
Option Explicit

Private Declare Function CreateWindowEx Lib "user32" _
Alias "CreateWindowExA" (ByVal dwExStyle As Long, _
ByVal lpClassName As String, ByVal lpWindowName As _
String, ByVal dwStyle As Long, ByVal X As Long, _
ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight _
As Long, ByVal hWndParent As Long, ByVal hMenu As _
Long, ByVal hInstance As Long, lpParam As Any) As Long

Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, ByVal _
wMsg As Long, ByVal wParam As Long, lParam As _
Any) As Long

Private Declare Function GetClientRect Lib "user32" _
(ByVal hwnd As Long, lpRect As RECT) As Long

Private Declare Function DestroyWindow Lib "user32" _
(ByVal hwnd As Long) As Long

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Type TOOLINFO
cbSize As Long
uFlags As Long
hwnd As Long
uid As Long
RECT As RECT
hinst As Long
lpszText As String
lParam As Long
End Type

Private Const CW_USEDEFAULT = &H80000000

Private Const SWP_NOMOVE = &H2
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_NOSIZE = &H1

Private Const HWND_TOPMOST = -1

Private Const WM_USER = &H400

Private Const TTF_CENTERTIP = &H2
Private Const TTF_SUBCLASS = &H10

Private Const TTM_ADDTOOLA = (WM_USER + 4)
Private Const TTM_GETTEXTA = (WM_USER + 11)
Private Const TTM_SETMAXTIPWIDTH = (WM_USER + 24)
Private Const TTM_SETTIPBKCOLOR = (WM_USER + 19)
Private Const TTM_SETTIPTEXTCOLOR = (WM_USER + 20)
Private Const TTM_UPDATETIPTEXTA = (WM_USER + 12)

Private Const TTS_ALWAYSTIP = &H1
Private Const TTS_BALLOON = &H40

Private Const TOOLTIPS_CLASSA = "tooltips_class32"

Private mBackColor As OLE_COLOR
Private mForeColor As OLE_COLOR

Public Property Get BackColor() As OLE_COLOR
BackColor = mBackColor
End Property

Public Property Let BackColor(ByVal New_BackColor _
As OLE_COLOR)
mBackColor = New_BackColor
End Property

Public Property Get ForeColor() As OLE_COLOR
ForeColor = mForeColor
End Property

Public Property Let ForeColor(ByVal New_ForeColor _
As OLE_COLOR)
mForeColor = New_ForeColor
End Property

Private Sub Class_Initialize()
SetColorDefaults
End Sub

Private Sub SetColorDefaults()
mBackColor = &H8000000F
mForeColor = &H80FFFF
End Sub

Public Sub AssignToolTip(ByRef hTarget As Object, _
ByRef sMessage As String)

Dim TipWindow As Long
Dim ti As TOOLINFO
Dim uid As Long: uid = 0
Dim ToolTipText As String * 50
Dim RECT As RECT

TipWindow = CreateWindowEx(0&, TOOLTIPS_CLASSA, "", _
TTS_ALWAYSTIP Or TTS_BALLOON, 0, 0, _
0, 0, hTarget.hwnd, 0&, App.hInstance, 0&)

SetWindowPos TipWindow, HWND_TOPMOST, 0, 0, 0, 0, _
SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOACTIVATE
GetClientRect hTarget.hwnd, RECT


With ti
.cbSize = Len(ti)
.uFlags = TTF_SUBCLASS
.hwnd = hTarget.hwnd
.hinst = App.hInstance
.uid = uid
.lpszText = sMessage
.RECT = RECT
.lpszText = sMessage
End With

SendMessage TipWindow, TTM_ADDTOOLA, 0, ti
SendMessage TipWindow, TTM_SETMAXTIPWIDTH, 0, 80
SendMessage TipWindow, TTM_SETTIPBKCOLOR, mBackColor, 0
SendMessage TipWindow, TTM_SETTIPTEXTCOLOR, mForeColor, 0

SetColorDefaults
End Sub

Balloon ToolTip Click Help
Pretty basic question, but i cant seem to find an answer...

What is the code to detect when the user clicks on the ToolTip.

(What i am trying to do is change a registry value when the user clicks on the tooltip so that my program knows not to show the tooltip again)

Thanks

Add New Line In Toltip Balloon
In the original project (attached) the cls permit to show only 2 line in ballon is possible to add a new line?

Well - MS Agent With Hyperlinks In Balloon? ? ?
I am attempting to implement MS Agent Help in my Application...

I can't find any info on adding "WHAT WOULD YOU LIKE TO DO?" hyperlinks in a balloon.

Sure I can make the Agent talk and junk, but I am more looking for this type of functionality... Can you help or provide any links?

Balloon Tips Without Mousemove
Hi list,
I have a button that when the mouse moves over it, a balloon tip is displayed. My problem is that I can only get this display when the mouse moves over the button. Is there a way I can programatically display the balloon tip?

Thanks...

Detect Balloon Click
Greeting and Salutations,


I can create the cool Balloon windows in the tray.... How can I detect when they have been clicked by the mouse?

Thanks for any assistance or direction.

Balloon In Mouse Event...
I have this code and i want to show a "balloon" with the value of COD_AREA in first line of ballon and value of Me.Caption = in second line of balloon...

Private Sub Picture1_MouseMOVE(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Dim tPOS As POINTAPI
    Dim sColor As String
    Dim lColor As Long
    Dim lDC As Long
    Dim COD_AREA As String '
    lDC = GetWindowDC(0)
    Call GetCursorPos(tPOS)
    lColor = GetPixel(lDC, tPOS.X, tPOS.Y)
    '
    sColor = Right$("000000" & Hex(lColor), 6)

    Me.Caption = ""
    'MsgBox sColor ' questo serve per trovare cosa scrivere al posto di 'valore' nelle seguenti Case

    Select Case sColor

    Case "06E900"
        COD_AREA = "8505"
        Me.Caption = " " & "AREA SUD"
SHOW BALLOON HERE
    Case "677500"
        COD_AREA = "8504"
        Me.Caption = " " & "AREA CENTRO LAZIO - SARDEGNA"
SHOW BALLOON HERE
    Case "005700"
        COD_AREA = "8501"
        Me.Caption = " " & "AREA NORD EST"
SHOW BALLOON HERE
    Case "E88000"
        COD_AREA = "8503"
        Me.Caption = " " & "AREA CENTRO"
SHOW BALLOON HERE
    Case "E1507C"
        COD_AREA = "8502"
        Me.Caption = " " & "AREA NORD OVEST"
SHOW BALLOON HERE
    Case "FFFFFF"
        Me.Caption = ""
    Case "A1A1A1"
        Me.Caption = ""
    End Select

    sColor = ""

End Sub



Edited by - luca91 on 11/28/2007 2:57:08 AM

Balloon Tip Timeout Problem
hello to everyone...i am enclosing a project i found on the internet...
i have a problem understanding the timeout for the balloon appearing on the system tray....i have put several values but does not fade according to those values..can anyone be of some assistance please?    

Attaching A Balloon To A Cell
I've seen an Excel spreadsheet where the Office Assistant balloon contents have been customised according to what cell the cursor is on. There is no sign of any VBA code with the spreadsheet. The nearest I've got so far is to is some code to create a balloon (see below) but I don't know if it can be attached to a particular cell.

Set balloon1 = Assistant.NewBalloon
balloon1.Heading = "First balloon"
balloon1.Text = "Balloon text"
balloon1.Button = msoButtonSetNone
balloon1.Mode = msoModeAutoDown
balloon1.Show

Can anybody shed any light on how this is done?

Any help would be much appreciated.

Regards,

PP

Balloon Text Boxes
I need a way to create balloon type text boxes on a browser on the client using VBScript. Does anyone have a code example?

Thanks

Copyright 2005-08 www.BigResource.com, All rights reserved