Previous Thread
Next Thread
Print Thread
Rate Thread
#17764 05/06/02 08:51 PM
Joined: Mar 2002
Posts: 185
M
Mornse Offline OP
Member
OP Offline
Member
M
Joined: Mar 2002
Posts: 185
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?

http://www.dopeskill.com
#17765 05/07/02 06:04 AM
Joined: Mar 2002
Posts: 1,273
DollarDNS Owner
Offline
DollarDNS Owner
Joined: Mar 2002
Posts: 1,273
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
http://www.dollardns.net
#17766 05/07/02 07:13 PM
Joined: Mar 2002
Posts: 185
M
Mornse Offline OP
Member
OP Offline
Member
M
Joined: Mar 2002
Posts: 185
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?

http://www.dopeskill.com
#17767 05/08/02 05:57 AM
Joined: Mar 2002
Posts: 1,273
DollarDNS Owner
Offline
DollarDNS Owner
Joined: Mar 2002
Posts: 1,273
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
http://www.dollardns.net
#17768 05/08/02 04:36 PM
Joined: Mar 2002
Posts: 185
M
Mornse Offline OP
Member
OP Offline
Member
M
Joined: Mar 2002
Posts: 185
I might be able to. I found some code at pscode.com 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?

http://www.dopeskill.com
#17769 05/15/02 02:55 PM
Joined: Mar 2002
Posts: 256
Likes: 1
UGN Security Staff
Offline
UGN Security Staff
Joined: Mar 2002
Posts: 256
Likes: 1
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
Public nid As NOTIFYICONDATA
Public Type NOTIFYICONDATA
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
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.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
Form.Show
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
Case WM_LBUTTONDOWN:
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.
wink Have fun heh


Link Copied to Clipboard
Member Spotlight
Phatal
Phatal
Houston, TX
Posts: 298
Joined: April 2004
Forum Statistics
Forums41
Topics33,840
Posts68,858
Average Daily Posts1
Members2,176
Most Online3,253
Jan 13th, 2020
Latest Postings
Where and how do you torrent?
by danni75 - 03/01/24 05:58 AM
Animation,
by JohanKaariainen - 08/15/19 01:18 AM
Blackbeard.....
by Gremelin - 10/03/18 07:02 PM
my old account still exists!
by Crime - 08/10/18 02:47 PM
Okay WTF?
by HenryMiring - 09/27/17 01:45 AM
The History Thread...
by Gremelin - 08/11/17 12:11 PM
My friend NEEDS your HELP!
by Lena01 - 07/21/17 12:06 AM
I'm having fun with this guy.
by gabithompson730 - 07/20/17 01:50 AM
I want to upgrade my phone
by gabithompson730 - 07/20/17 01:49 AM
Doom 3
by Cyrez - 09/11/14 08:58 PM
Amazon Gift Card Generator/KeyGen?te
by Gecko666 - 08/22/14 09:21 AM
AIM scene 99-03
by lavos - 09/02/13 08:06 AM
Planetside 2
by Crime - 03/04/13 07:10 AM
Beta Testers Wanted
by Crime - 03/04/13 06:55 AM
Hello Everyone
by Gremelin - 02/12/12 06:01 PM
Tracfone ESN Generator
by Zanvin Green - 01/18/12 01:31 PM
Python 3 issue
by Testing - 12/17/11 09:28 PM
tracfone airtime
by Drache86 - 07/30/11 03:37 AM
Backdoors and the Infinite
by ZeroCoolStar - 07/10/11 03:52 AM
HackThisZIne #12 Releaseed!
by Pipat2 - 04/28/11 09:20 PM
gang wars? l33t-wars?
by Gremelin - 04/28/11 05:56 AM
Consolidate Forums
by diggin2deep - 04/21/11 10:02 AM
LAN Hacking Noob
by Gremelin - 03/12/11 12:42 AM
Top Posters
UGN Security 41,392
Gremelin 7,203
§intå× 3,255
SilentRage 1,273
Ice 1,146
pergesu 1,136
Infinite 1,041
jonconley 955
Girlie 908
unreal 860
Top Likes Received
Ghost 2
Cyrez 1
Girlie 1
unreal 1
Crime 1
Powered by UBB.threads™ PHP Forum Software 7.7.5