System Tray Icon

[axion_sa]

Right, boredom set in again (it's happened before folks ), so I rewrote that funky systray-icon-thingymajig-whatcha-wanna-call-it control.

Now, before I get all nice and post the source, would anyone like to have it? And, while I'm at it - would you be willing to pay a nice "developers fee" of say, um, US$10?
Coz you see, I've got to feed my 13.5142901 or so children


Anyway... here we go...


Brian

[MerrionComputin]

How does it improve over the free systray control that was one of the Microsoft VB 5 / 6 professional edition examples?

[vbgladiator]

There is a free SysTray control? Where do you find it? I have VB 6 Enterprise.

[axion_sa]

VBGladiator
I just finished writing it...

Merrion
Here's a screen shot, should give you a nice idea of what it does...

[MerrionComputin]

Looks cool - but I must tell you that from my experience developers are not willing to pay for components....that's why I give all my stuff away free.

[axion_sa]

Well, I guess that's true - like they say: "if wishes were wings, pigs would fly!"

Oh, well, um, how about donations - absolutely no fee?

[WALDO]

Originally posted by MerrionComputin
Looks cool - but I must tell you that from my experience developers are not willing to pay for components....that's why I give all my stuff away free.

Especially components they could write themselves. There's a zillion places where coders can find code for a system tray icon. I bet there's even some here.

[axion_sa]

Originally posted by WALDO
Especially components they could write themselves. There's a zillion places where coders can find code for a system tray icon. I bet there's even some here.

One offhand - the first one that I wrote

[kleinma]

not only is there one on the 3rd disk of VB6 enterprise... but PSC has about a million as well... not to bash yours.. i am sure it is good.. and it may even do things others don't.. but like merrion said... no one will pay..

people generally will only pay for very advances controls.. like sheridan controls

[axion_sa]

:sniff: Oh well... worth the try though - and it killed 15 minutes!

[MerrionComputin]

There is event a systray icon component in the EventVB.dll which you can use thus:

Option Explicit
 
Dim WithEvents vbLink As EventVB.APIFunctions
Dim WithEvents vbSystray As EventVB.ApiNotifyIcon
 
 
Private Sub Form_Load()
 
Set vbLink = New APIFunctions
 
Set vbSystray = New ApiNotifyIcon
 
Dim icThis As New ApiIcon
 
icThis.hIcon = Me.Icon.Handle
 
With vbSystray
    Set .Icon = icThis
    .ToolTip = "This is an icon"
    .Show
End With
 
End Sub
 
Private Sub vbSystray_MouseUp(ByVal Button As Integer)
 
If Button = vbRightButton Then
    vbSystray.Hide
Else
    vbSystray.ToolTip = Now
End If
 
End Sub

[MerrionComputin]

If you're feeling bored how about making an intellisense style editor control? I'd buy that.

[axion_sa]

Not quite so bored anymore - just got given some specs to write & code

BUT, as soon as I'm bored again, I will be giving your idea some thought... thanks Merrion