Newsgroup: it.comp.appl.access
Titolo: icona su systray adattamento ad AcessXp, come???

Salve a tutti
sto cercando di far funzionare quel fantastico esempio (di Alex credo) 
presente su sitocomune per un'icona sulla systray e relativo menů
ahimč usando AccessXP mi da logicamente errore "impossibile trovare 
vba323.dll"
sulla modifica da fare, essendo alle prime armi con VBA, mi sono proprio 
fermato
qualcuno č cosě magnanimo (magari Alex :) ) da indirizzarmi su sto benedetto 
SubClassing
Grassie
Domi 

 wrote in message
news:43d3f6b2$0$13144$
4faf...@reader3.news.tin.it

Indicami qual'č il DEMO in questione, gli dň un'occhiata e ti faccio
sapere come modificarlo..!
La prima cosa che mi viene in mente č che A97 non dispone in modo
nativo della chiamata AddressOf che viene Emulata con la funzione
AddrOf nel modulo a parte.
Potresti provare a rimuoverla e sostituire la chiamata a SetWindowLong
con quella Nativa(AddressOf) presente da A2000.
Non posso essere piů preciso in quanto non ricordo il Demo in questione
e me lo devo scaricare per rivederlo.
Per il SubClassing č una tecnica abbastanza inusuale in Access
ma molto potente, vediamo se nei prossimi mesi si puň organizzare
un Tutorial, magari alla CISA2.
Fammi sapere se hai risolto.
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Fammi sapere se hai risolto.
Ahimè non ho proprio risolto


 wrote in message
news:43d4e5b5$0$46328$
4faf...@reader4.news.tin.it
Questo va modificato nel Modulo [basSysTray], mentre il modulo
basAddrOf puoi eliminarlo completamente.
Sub sHookTrayIcon(frm As Form, Optional strTipText As String, _
                               Optional strIconPath As String)
   'Initialize the tray icon first
   If fInitTrayIcon(frm, strTipText, strIconPath) Then
      'hide the form window
      'frm.Visible = False
 
      'Set new address for window's message handler
      lpPrevWndProc = apiSetWindowLong(frm.hWnd, _
                                    GWL_WNDPROC, _
                                    AddressOf fWndProcTray)
  End If
End Sub
Va apportata un'altra modifica nella Maschera [SysTray]
Private Sub cmdStartDemo_Click()
   If Not mblnSubclassed Then
      'Don't try and subclass twice
      Call sHookTrayIcon(Me, "@Alex Menù", GetPathPart(CurrentDb.Name) &
"SysTray.ICO")
      mblnSubclassed = True
   End If
End Sub
Ora la soluzione che ti ho suggerito è un pò alla veloce, ma
funzionale, andrebbe un pò rivista la tecnica del SubClassing
ma è un'altro argomento....!
Fammi sapere.


 Fammi sapere.
Perfetto Alex, funziona perfettamente, girà sia l'icona sulla systray nonché 
il menù
grazie, non dubitabo sulla tua disponibilità
un piccolo particolare al primo tentativo mi ha piantato la macchina. Dopo 
aver chiuso il processo si MSACCESS e riavviato il db ha funzionato 
regolarmente
Domi

> Fammi sapere.
In risposta,
mi correggo funziona da un punto di vista empirico, infatti girà sia l'icona 
ed il menù
però precisando il mio messaggio di prima
nontanto i processi, MSACCESS è sempre intorno al 22% di uso della CPU
e capita spessissimo che pianta la macchina, non risponde in nessun modo
devo fer forza chiudere il processo dal Task manager
è davvero una forzatura??
ciauz

 wrote in message
news:43d4f224$0$46338$
4faf...@reader4.news.tin.it

Il subclassing in Access non gira in IDE, quindi o realizzi
un MDE oopure tutte le volte che lo devi provare devi
CHIUDERE e riaprire senza passare per la modalità struttura
o Codice.
Ciao
