Newsgroup: it.comp.appl.access
Titolo: Cambiare l'icona delle maschere e report

Ciao a tutti.
Si puo' cambiare l'icona delle maschere e report a piacere.
Es. Faccio un programma [con Access] e nel menu' metto tante
iconcine simpatiche...
...posso fare lo stesso anche su maschere e report [alla VB, per
interderci]?
Grazie in anticipo.
-- 
Giacomo Alessandroni      
g.aless...@peacelink.it
Associazione PeaceLink    
www.peacelink.it
VoIP                      galessandroni @ Skype

 Grazie in anticipo.
Intendi nella finestra di access?
Mica la devi mostrare per forza quella.
Creati uno switchboard personalizzato
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 Grazie in anticipo.
Nativamente le Form ed i report non hanno Menů se non
quelli di selezione Rapida o Popup.
In pratica non č come VB, perň nel mio sito trovi un DEMO
per emulare i Menů di VB con le Icone disponibili nel pacchetto
Windows.
http://www.mantuanet.it/alessandro.baraldi/
Sezione FORMS
1.4 Usare i PopupMenů per Menů di Maschera 
1.31 Generare Menů POPUP Temporanei RUNTIME(UPD) 
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Sezione FORMS
Mi sono spiegato male e chiedo scusa ad entrambi.
Non voglio inserire un menu' nelle form. Vorrei cambiare l'icona
delle form a mio piacere [visto che nel menu' di access -
personalizzato - questo e' stato gia fatto agevolmente] sarebbe
carino se, per continuita' grafica, si potesse cambiare anche
l'icona delle maschere e dei vari report.
Grazie ancora.


 l'icona delle maschere e dei vari report.
E con ripetere la stessa descrizione credi che sia piů chiaro
cosa intendi? Cos'č "l'icona delle form"? Dove vedi quest'icona?
Forse parli di:
http://www.mvps.org/access/api/api0043.htm
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA) 

 
http://www.mvps.org/access/api/api0043.htm
Credo di si e ti ringrazio. Ho spulciato ad occhio dovrebbe essere
quello che cercavo. Se funzia faccio un post perche' l'effetto
dovrebbe essere grazioso.
Grazie.


 
http://www.mvps.org/access/api/api0043.htm
Esatto. Con quello e' possibile personalizzare l'icona di maschere e
report.
Una versione piu' compatta del codice che mi hai suggerito [limitata
alle sole icone] e' la seguente:
______________________________________
' Da inserire in un modulo
Private Declare Function LoadImage Lib "user32" _
   Alias "LoadImageA" _
   (ByVal hInst As Long, _
   ByVal lpsz As String, _
   ByVal un1 As Long, _
   ByVal n1 As Long, _
   ByVal n2 As Long, _
   ByVal un2 As Long) _
   As Long
Private Declare Function SendMessage Lib "user32" _
   Alias "SendMessageA" _
   (ByVal hWnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   LParam As Any) _
   As Long
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex
As Long) As Long
Private Const WM_SETICON = &H80
Private Const IMAGE_ICON = 1
Private Const LR_LOADFROMFILE = &H10
Private Const SM_CXSMICON    As Long = 49
Private Const SM_CYSMICON    As Long = 50
Public Function SetFormIcon(hWnd As Long, strIconPath As String) As
Boolean
    Dim lIcon As Long
    Dim lResult As Long
    Dim X As Long, Y As Long
    X = GetSystemMetrics(SM_CXSMICON)
    Y = GetSystemMetrics(SM_CYSMICON)
    lIcon = LoadImage(0, strIconPath, 1, X, Y, LR_LOADFROMFILE)
    lResult = SendMessage(hWnd, WM_SETICON, 0, ByVal lIcon)
End Function
______________________________________
Poi nella maschera si inserisce:
______________________________________
Private Sub Form_Open(Cancel As Integer)
   Call (SetFormIcon hWnd, "C:\MyIcon.ico")
End Sub
______________________________________
E' il tutto diventa un po' piu' personalizzato. Chiaro, il programma
resta lo stesso, ma e' sicuramente piu' gradevole da vedersi.
Naturalmente, SetFormIcon la posso chiamare quando piu' mi garba, ne
consegue che si piu' cambiare l'icona in modo dinamico a seconda
dello stato del programma o altro.
Arrivederci.
PS Come si vede che ho gia finito di lavorare...



-- 
