UGN Security Forums
My ProfileMember DirectoryLogin
Search our ForumsView our FAQView our Site Rules
View our CalendarView our Active TopicsGo to our Main Page

UGN Security Store

Network Sites UGN Security, The GoNix Initiative, Elite Web Gamers, Back of the Web, EveryDay Helper, VNC Web Design & Development
Su M Tu W Th F Sa
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31
Sponsored Links
Latest Postings
Latest Reviews
Topic Options
Rate This Topic
#17764 - 05/07/02 04:51 AM Systray
Mornse Offline

Registered: 03/03/02
Posts: 185
Loc: Vancouver
How can I make my program not visible, but minimized on the systray. And then when u click on it on the systray it opens up, but when you minimize it goes back to the systray? Is this possible (i'm sure it must be), and is it extremely hard?
Cha want some w***up?

Sponsored Links
#17765 - 05/07/02 02:04 PM Re: Systray
SilentRage Offline
DollarDNS Owner

Registered: 03/04/02
Posts: 1273
Loc: OH, USA
Well, I'll assume that your question concerns how to get it to trigger when minimizing - and that you already know how to mess with the tray.

Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then
Me.Visible = False
'Add TrayIcon Code
End If
End Sub

#Begin Tray Icon Getting Clicked Code#
frmMain.Visible = True
frmMain.WindowState = vbNormal
'Remove TrayIcon Code
Domain Registration, Hosting, Management

#17766 - 05/08/02 03:13 AM Re: Systray
Mornse Offline

Registered: 03/03/02
Posts: 185
Loc: Vancouver
OK, sweet, though I have NO idea how to mess with the systray, like adding an icon or whatever, i'll look around for some code.
Cha want some w***up?

#17767 - 05/08/02 01:57 PM Re: Systray
SilentRage Offline
DollarDNS Owner

Registered: 03/04/02
Posts: 1273
Loc: OH, USA
If I gave you a class module I made that will make using the tray icon very simple, would you be able to figure out how to use it? One neat advantage is that it supports mouse events like left click and right click and double click and stuff.
Domain Registration, Hosting, Management

#17768 - 05/09/02 12:36 AM Re: Systray
Mornse Offline

Registered: 03/03/02
Posts: 185
Loc: Vancouver
I might be able to. I found some code at that does it, but I don't understand all the code and I don't like using code I don't understand. Maybe send it to me and i'll try it, but i'm pretty sure I won't even know how to use it, hehe. But if I can't figure it out then maybe I'll just use this other code. Because I know how to use the code (i'm pretty sure), I just don't know what each line does.
Cha want some w***up?

#17769 - 05/15/02 10:55 PM Re: Systray
ninjaneo Offline
UGN Security Staff

Registered: 03/06/02
Posts: 256
Loc: CA, USA
I have a l33t0 lil function I made so I wouldnt have to do a bunch of **** multiple times...
Heres the API declaration thingys...
Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long

Heres the function...

Sub Tray(Form As Form, Systray As Boolean)
On Error Resume Next
Select Case Systray
Case True
Form.mnuTray.Visible = True
Form.Visible = False
With nid
.cbSize = Len(nid)
.hwnd = Form.hwnd
.uId = vbNull
.uCallBackMessage = WM_MOUSEMOVE
.hIcon = Form.Icon
.szTip = Form.Caption & vbNullChar
End With
Shell_NotifyIcon NIM_ADD, nid
Case False
Form.mnuTray.Visible = False
Form.WindowState = 0
Form.Visible = True
Shell_NotifyIcon NIM_DELETE, nid
End Select
End Sub

Put this in the form your gonna be "Traying"
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Sys As Long
Sys = X / Screen.TwipsPerPixelX
Select Case Sys
Me.PopupMenu mnuTray
End Select
End Sub

Heres how to use it...

Tray (me, True) - Sticks the form into the tray
Tray (me, False) - Takes the form out.

When the Tray Icon is clicked on it will show mnuTray where you can have **** like "Show" "Exit" etc.
Have fun heh


Featured Member
Registered: 08/21/13
Posts: 1
Forum Stats
2145 Members
46 Forums
33156 Topics
68323 Posts

Max Online: 1567 @ 04/25/10 10:20 AM
Top Posters
UGN Security 26319
Gremelin 7192
§intå× 3255
SilentRage 1273
Ice 1146
pergesu 1136
Infinite 1041
jonconley 955
Girlie 908
unreal 860
Newest Members
Jimmie Menon, fghijk435948, Devo60, ali, lavos
2147 Registered Users
Who's Online
0 registered (), 631 Guests and 302 Spiders online.
Key: Admin, Global Mod, Mod
Latest News

  Get Firefox!
Get FireFox!