Re: minimizzare access sulla system tray
Pablitomf
> come da oggetto.
> Mi sembrava d'aver letto un articolo da qualche parte ma non riesco più
> a trovarlo! Qualcuno puo' aiutarmi?
> Grazie a tutti
> Pao
C'è l'esempio nel sito di Alessandro (se non ricordo male)
--
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news segnala gli abusi ad ab...@newsland.it
Paolo
Paolo
> Non c'è.
> Forse Maurizio intendeva l'uso dell'Icona nella SySTray.
> Access non è un'applicazione che può andare in BackGround, quindi
> non si può fare.
> Quello che puoi fare è Minimizzare Access come task.
> Questo lo si fà se non ricordo male ShoWindows.
>
> Prova questa:
> Option Compare Database
> Option Explicit
>
>
> Const SW_HIDE = 0
> Const SW_MINIMIZE = 6
> Const SW_MAXIMIZE = 3
> Const SW_RESTORE = 9
> Const SW_SHOWNA = 8 ' show dopo hide
>
> Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow
> As Long) As Long
> Declare Function SetFocusA Lib "user32" Alias "SetFocus" (ByVal hWnd As
> Long) As Long
>
>
> Public Function ShowAppWindows(strQuale As String)
> Dim myAppWnd As Long
> Dim dummy As Long
>
> myAppWnd = Application.hWndAccessApp
>
> Select Case strQuale
> Case "min"
> dummy = ShowWindow(myAppWnd, SW_MINIMIZE)
> Case "max"
> dummy = ShowWindow(myAppWnd, SW_MAXIMIZE)
> Case "hide"
> dummy = ShowWindow(myAppWnd, SW_HIDE)
> Case "show"
> dummy = ShowWindow(myAppWnd, SW_SHOWNA)
> Case "restore"
> dummy = ShowWindow(myAppWnd, SW_RESTORE)
> End Select
>
> End Function
>
> Ciao
>
grazie!! molto gentile provo subito!
ciao,
Pao
Paolo
>>Mi sembrava d'aver letto un articolo da qualche parte ma non riesco più
>>a trovarlo! Qualcuno puo' aiutarmi?
>
>
>>Grazie a tutti
>>Pao
>
>
> C'è l'esempio nel sito di Alessandro (se non ricordo male)
>
Grazie!! ho guardato ma non lo trovo proprio!! qualcuno sa aiutarmi?
ciao
Pao
ALESSANDRO Baraldi
news:09oSd.933030$35.35...@news4.tin.it...
Non c'è.
myAppWnd = Application.hWndAccessApp
End Function
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------
Karl Donaubauer
> come da oggetto.
>
> Mi sembrava d'aver letto un articolo da qualche parte ma non riesco
> più a trovarlo! Qualcuno puo' aiutarmi?
Per minimizzare Access sul task bar basta anche un solo
RunCommand. Vedi
www.donkarl.com/it FAQ 1.10 Apertura del DB ridotto o ingrandito
Se veramente intendi il SySTray è un po' zoppo (dice il mio
dizionario) perché bisogna molto API, SubClassing, giochi
col Mouse ecc.
Un esempio francese pronto per AX:
http://www.logicielappui.com/tips/AccXP_SysTray.zip
Sembra che purtroppo l'autore ha dimenticato di indicare
che gran parte del codice e persino dei commenti è di
Dev Ashish come si vede qui:
http://www.mvps.org/access/api/api0045.htm
Come vendetta non scrivo il suo nome qui. ;-)
Poi un esempio independente per >=A00 dal collega tedesco
Phil Stiefel: http://www.codekabinett.com/download/systray.zip
--
HTH
Karl
*********
Access FAQ: www.donkarl.com/it
+info sulla prima Conferenza Italiana per Sviluppatori di Access (CISA1)
Pablitomf
[CUT]
> Non c'č.
> Forse Maurizio intendeva l'uso dell'Icona nella SySTray.
Si, intendevo quello... forse avevo capito male. ;-)
--
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchč un uomo con la testa nel forno