 Tray Info Message, Kind of popup thingie |
|
|
|
|
  |
 Feb 12 2008, 02:44 PM
Post
#1
|
|
|
Member [Level 1]  Group: Members Posts: 53 Joined: 24-February 07 From: Latvia Member No.: 39,133  |
Hi!
I'm doing VB for some time now and for last two days I've been looking for a tutorial which would show me how to create some kind of notification that would pop up from lower-right side of my screen, where the clock is... you know, just like.. when a contact comes online on MSN etc. I realized that there's no way to make a balloon pop up like the one in the image but is there a way to make anything like that..it doesn't have to be a balloon. A little square in the right spot would be good as well   Thanks in advance, Matt. |
 |
 
|
|
Feb 12 2008, 05:22 PM
Post
#2
|
|
|
Member [Level 1] Group: Members Posts: 67 Joined: 25-June 06 From: Den Member No.: 25,638 |
Are you doing this with VB.NET or VB6. This thing is possible with both. in VB6 you need to call the Windows API & in .NET this functionality is in-built.
|
|
|
|
|
Feb 12 2008, 06:30 PM
Post
#3
|
|
|
Member [Level 1] Group: Members Posts: 53 Joined: 24-February 07 From: Latvia Member No.: 39,133 |
I'm using VB6...
I couldn't find a way on how to do it with API o_O |
|
|
|
|
Feb 13 2008, 04:52 PM
Post
#4
|
|
|
Member [Level 1] Group: Members Posts: 67 Joined: 25-June 06 From: Den Member No.: 25,638 |
I am attaching a control that you can study to place an icon in the tray area that show tooltips.
So you can provide notification. The screenshot you posted has ballon tips. I will see if I can do it & will do a Tutorial if possible. If you can't understand the code then I'll try to do the Tutorial tomorrow. 
TrayArea.txt ( 3.94k )
Number of downloads: 4 |
|
|
|
|
Feb 13 2008, 05:02 PM
Post
#5
|
|
|
Member [Level 1] Group: Members Posts: 53 Joined: 24-February 07 From: Latvia Member No.: 39,133 |
Thanks!
 I'll try to understand it... Looks kinda hard though :S |
|
|
|
|
Feb 14 2008, 12:51 PM
Post
#6
|
|
|
Member [Level 1] Group: Members Posts: 53 Joined: 24-February 07 From: Latvia Member No.: 39,133 |
Oooh, could you please make a tutorial or explain by showing an example maybe ?
|
|
|
|
|
Feb 15 2008, 03:16 PM
Post
#7
|
|
|
Member [Level 1] Group: Members Posts: 67 Joined: 25-June 06 From: Den Member No.: 25,638 |
Sorry, I don't have the time to make the tutorial. I used that code in one of my projects. I am attaching that project to help you out.
Actually I wrapped that code in a control. You only need to set a few properties like the ICON to be displayed in the notification area, the TOOLTIP etc. You can then handle the LEFT-MOUSE-CLICK or RIGHT-MOUSE-CLICK events on the ICON (in the notification area). 
Wall_xp.zip ( 15.03k )
Number of downloads: 3 |
|
|
|
|
Jun 12 2008, 08:29 AM
Post
#8
|
|
|
Newbie Group: Members Posts: 3 Joined: 4-September 07 Member No.: 49,382 |
CODE [/code]Dim nid As NOTIFYICONDATA ' trayicon variable
'---------------------- '--- command1 click --- '---------------------- Private Sub Command1_Click() minimize_to_tray End Sub '------------------------ '--- create tray icon --- '------------------------ Sub minimize_to_tray() Me.Hide nid.cbSize = Len(nid) nid.hwnd = Me.hwnd nid.uId = vbNull nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE nid.uCallBackMessage = WM_MOUSEMOVE nid.hIcon = Me.Icon ' the icon will be your Form1 project icon nid.szTip = "Calvin-w" & vbNullChar Shell_NotifyIcon NIM_ADD, nid End Sub '--------------------------------------------------- '-- Tray icon actions when mouse click on it, etc -- '--------------------------------------------------- Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) Dim msg As Long Dim sFilter As String msg = x / Screen.TwipsPerPixelX Select Case msg Case WM_LBUTTONDOWN Me.Show ' show form Shell_NotifyIcon NIM_DELETE, nid ' del tray icon Case WM_LBUTTONUP Case WM_LBUTTONDBLCLK Case WM_RBUTTONDOWN Case WM_RBUTTONUP Me.Show Shell_NotifyIcon NIM_DELETE, nid Case WM_RBUTTONDBLCLK End Select End Sub '------------------------------ '--- form Actions On unload --- '------------------------------ Private Sub Form_Unload(Cancel As Integer) Shell_NotifyIcon NIM_DELETE, nid ' del tray icon End Sub[code] |
|
|
|
|
Similar Topics
| Topics | Topics | |
|---|---|---|
|
|
|