Programma verbergen in notifyicon

Status
Niet open voor verdere reacties.
WILLIAMXXX

WILLIAMXXX

Terugkerende gebruiker
Lid geworden
29 nov 2006
Berichten
1.246
Hey,

Als ik een programma heb en ook een nitifyicon, en ze klikken het programma op weg dus kruisje. Hoe laat je hem dan verbergen? Dat die wel door gaat met het huidige process? Maar dat je hem gewoon niet ziet! En hoe laat je hem dan weer weergeven?
 
als je m op kruisje laat drukken dan sluit het zich af, punt... je kan wel met de "min" knop het "laten verdwijnen" (op de achtergrond laten runnen) maar dan moet je de "showintaskbar" op "false" zetten bij je form1-properties.

V.:thumb:


[EDIT]
je moet ook op in de "form1_resize" event je form1 laten verbergen, dus "form1.hide" (bijvoorbeeld) en op een terug-klik (dus op de form_onclick event) (dat is je icoontje) de "form1.show" code zetten, anders staat ie ergens links onder op je scherm.
[/EDIT]
 
Laatst bewerkt:
Nou, ik heb zat programma's gezien die dan gewoon door gaan als je op kruisje klikt, natuurlijk wel op de 8ergrond
 
Volgensmij is het niet zo moeilijk!

Je zegt dat als je op kruisje klikt, dat hij niet moet afsluiten en verder de code die je wilt dat hij doet als je op kruisje klikt! Zo kun je hem de functie van minimaliseren geven.

Bijvoorbeeld:
Code: 
Private Sub Form_Click()
End
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = -1
Form1.WindowState = vbMinimized
End Sub

Als je dan op kruisje klikt minimaliseert hij de form en sluit hij hem niet af! Als je dan Show In Taskbar op False zet, denk je dat je hem afsluit, maar ondertussen draait het programma gewoon door!

Als je op het form klikt sluit hij af. Anders zou je hem helemaal neit af kunnen sluiten:)


Ik had als je alles minimaliseerde dat je op je bureublad toch nog het programma zag staan. Door de border gewoon in je properties op 0 te zetten was geen oplossing. Ik heb dus echt de hele border verwijderd waardoor je hem niet meer ziet! Dat doe je door de volgende module:
Code: 
'=============================================================
'            [ Auther : Jim Jose              ]
'            [ Email  : jimjosev33@yahoo.com  ]
'=============================================================
'Hi,
'This code is made for all my friends in PSC. I uploaded this
'code inorder to get useful for anyone. If you found it useful
'please inform me. Your +Ve comments are my motive. Good Luck!
'=============================================================
Option Explicit

'[APIs]
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Private Declare Function CreateRectRgn Lib "gdi32.dll" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

'[This function can Set your form as BorderStyle=0 ]
'=============================================================
Public Sub SetZeroBorder(Frm As Form)
Dim hRgn As Long
Dim fScaleMode As Long
Dim ScrX As Long, ScrY As Long
Dim fLeft As Long, fTop As Long
Dim fBottom As Long, fRight As Long
    ScrX = Screen.TwipsPerPixelX
    ScrY = Screen.TwipsPerPixelY
    With Frm
        fScaleMode = .ScaleMode
        .ScaleMode = 1
        fLeft = (.Width - .ScaleWidth) / 2 / ScrX
        fTop = (.Height - .ScaleHeight) / ScrY - fLeft
        fRight = .Width / ScrX - fLeft
        fBottom = .Height / ScrY - fLeft
        hRgn = CreateRectRgn(fLeft, fTop, fRight, fBottom)
        SetWindowRgn .hWnd, hRgn, True
        .ScaleMode = fScaleMode
        DeleteObject hRgn
    End With
End Sub

Zet bij de andere code dan even neer:
Code: 
Private Sub Form_Click()
End
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = -1
Form1.WindowState = vbMinimized
SetZeroBorder Me
End Sub


Succes er verder mee! Ronald.
 
Laatst bewerkt:
Jij gebruikt andere versie Visual basic:confused:
Misschien dat het bij jou net iets anders moet zijn dan:rolleyes:


Ps. MIJN ANDERE BERICHT IS EDITED
 
Het verbergen lukt nu wel, maar het weergeven lukt niet
 
Misschien een icoontje rechtsonderin?

Dan kun je het programma zo weer oproepen
 
Ja er zit een icontje rechts onder in, maar als ik dan de duible_click event doe en dan me.show gebeurt er niets maar als ik een msgbox doe gebeurt er wel wat:confused:
 
ik heb nog nooit met zo'n icoontje rechts onder gewerkt, dus weet de code ook niet:confused:!
Hoe heb je het nu precies gedaan dan om de form te laten verdwijnen?
 
Het icon onderin is een notify icon, bij de form_rezise event heb ik gedaan.

Code: 
me.hide

dus verbergen, maar als ik doe me.show gebeurt er niets:confused:
 
Kun jij mij de code even geven om dat icoontje rechtsonder te krijgen?

Dan zal ik is even kijken!:thumb:
 
Dat weet ik niet dan zal jij even moeten kijken, ik heb wel een setup van visual studio 6. Maar niet geinstalleerd:thumb:
 
Me.Visible = False
NotifyIcon1.Visible = True

En dan bij NotifyIcon1_Click() (weet niet zeker, nooit geprobeerd)
Me.Visible = True
NotifyIcon1.Visible = False
End Sub

Zoiets, heb geen idee hoor! Ik kwam wat tegen op internet:p
 
Oke, bedankt weet niet of het werkt want visual studio is door gedraait, de hele toolbox is leeg:confused:
 
RonaldGJ zei:
Me.Visible = False
NotifyIcon1.Visible = True

En dan bij NotifyIcon1_Click() (weet niet zeker, nooit geprobeerd)
Me.Visible = True
NotifyIcon1.Visible = False
End Sub

Zoiets, heb geen idee hoor! Ik kwam wat tegen op internet:p
Klik om te vergroten...

Nee, dat lukt ook niet reden:

door de form_rezise event wordt die gelijk weer verborgen als ik 2x op het notifyicon klik, heb daar double_click event
 
Het is mij gelukt om NotifyIcon te krijgen. Ik heb dit (in VB 6.0):

Code: 
Private Sub Form_Load()
Set NotifyIcon1.Icon = Me.Icon
End Sub

Private Sub Form_Resize()
If Form1.WindowState = vbMinimized Then
NotifyIcon1.NotifyAdd
Else
NotifyIcon1.NotifyRemove
End If
End Sub

Private Sub NotifyIcon1_MausClickLinks()
Form1.WindowState = vbNormal
End Sub

Private Sub NotifyIcon1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
NotifyIcon1.TipText = "Klik hier!"
End Sub

Het werkt! Je moet maar even expirimenteren met Me.hide.

Succes er mee!:thumb: Ronald.:)
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan