VB5 en Always On Top en icoontje rechtsonder

[Verwijderd]

He dikke knapo's! Ik heb weer na een tijdje VB5 uit de kast gehaald en nu wil ik graag een script weten waarmee je een Form, genaamd MainForm op Always On Top kan zetten en dat hij ShowInTaskBar = False is en dat er rechtsonder een icoontje naast het kloktje staat in de balk.

[Verwijderd]

Ik weet nu al ondertussen hoe je Always On Top kan maken, maar nog niet hoe je een icoontje rechtsonder kan krijgen. Weet iemand dat?

[Verwijderd]

Niemand?

[razor-x]

Er zijn genoeg components hier voor ....

(Geduld is een schone zaak)

[elnino]

Op maandag 10 september 2001 18:29 schreef BasjeBanaantje het volgende:
He dikke knapo's! Ik heb weer na een tijdje VB5 uit de kast gehaald en nu wil ik graag een script weten waarmee je een Form, genaamd MainForm op Always On Top kan zetten en dat hij ShowInTaskBar = False is en dat er rechtsonder een icoontje naast het kloktje staat in de balk.

Zie ook deze discussie.

[Gerco]

Op maandag 10 september 2001 18:40 schreef BasjeBanaantje het volgende:
Ik weet nu al ondertussen hoe je Always On Top kan maken, maar nog niet hoe je een icoontje rechtsonder kan krijgen. Weet iemand dat?

Ja, dat weet ik, maar dit is makkelijker.

[johnwoo]

Op maandag 10 september 2001 18:52 schreef razor-x het volgende:
Er zijn genoeg components hier voor ....

(Geduld is een schone zaak)

Ik zou daar geen component voor gebruiken, want:
- dan moet je weer een extra ocx distributen
- de API call is erg simpel, beetje overkill om daar een component voor te gebruiken

[Gerco]

Op maandag 10 september 2001 21:18 schreef johnwoo het volgende:
- dan moet je weer een extra ocx distributen

Dus? Als je dat niet wilt, schrijf je een usercontrol en include je die in je project, wel de voordelen van een component, geen extra .ocx.

- de API call is erg simpel, beetje overkill om daar een component voor te gebruiken

Niet mee eens, als je ook events wilt ontvangen van je icon, moet je je window subclassen. Op zich geen probleem, maar absoluut geen newbie werk. Bovendien als je het in een component zet, wordt je afsluit code ALTIJD aangeroepen, OOK als je gewoon op "stop" in de IDE ramt.

[Verwijderd]

zet onderstaande info in een modulde.

code:

Option Explicit
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Public Declare Function ShowWindow Lib "User32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function EnableWindow Lib "User32" (ByVal hwnd As Long, ByVal cmd As Long) As Long
Public Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindow Lib "User32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetClassName Lib "User32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public Type NOTIFYICONDATA
    cbSize As Long
    hwnd As Long
    uID As Long
    uFlags As Long
    uCallbackMessage As Long
    hIcon As Long
    sTip As String * 64
    End Type
    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 NIF_DOALL = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
    Public Const SW_RESTORE = 9
    Public Const SW_MINIMIZE = 6
    Public Const WM_MOUSEMOVE = &H200
    Public Const WM_LBUTTONDBLCLK = &H203
    Public Const WM_RBUTTONUP = &H205

en roep dit aan door

code:

Dim Tic As NOTIFYICONDATA


Private Sub Form_Load()
Dim rc As Long
    Tic.cbSize = Len(Tic)
    Tic.hwnd = Me.hwnd
    Tic.uID = vbNull
    Tic.uFlags = NIF_DOALL
    Tic.uCallbackMessage = WM_MOUSEMOVE
    Tic.hIcon = Me.Icon
    Tic.sTip = "Nieuws fliteser" & vbNullChar
    rc = Shell_NotifyIcon(NIM_ADD, Tic)
    
    
End Sub

owjah in je Private Sub Form_Load() kan je nog meer leuke goodies zettten.

ik

[Verwijderd]

Bedankt voor het scrippie, maar ik moet nu nog hebben dat als je er op klikt dat hij dat het venstertje weer opent waar ik zojuist het scrippie ingeperst heb.

[Verwijderd]

En het icoontje verdwijnt niet als ik het proggietje afsluit, dan moet je eerst met de muis erover rondapen.

[Gerco]

Op dinsdag 11 september 2001 08:24 schreef BasjeBanaantje het volgende:
Bedankt voor het scrippie, maar ik moet nu nog hebben dat als je er op klikt dat hij dat het venstertje weer opent waar ik zojuist het scrippie ingeperst heb.

Gebruik gewoon die component die ik je gaf. Dan werkt dat allemaal automagisch en je icon verdwijnt ook nogeens op tijd.

Bovendien zit de source erbij, dus je kunt ervan leren en/of hem in je prog compileren zodat je geen extra .ocx hoeft te verspreiden.

[Verwijderd]

ik heb die al gedowned, maar ik snap er de knapen niet van! Leg eens ff uit!