Newsgroup: it.comp.appl.access
Titolo: Icona ...

Vovevo chiedere se č possibile cambiare quella icona a forma di " forms "
che appare in alto a sinistra in ogni " forms" , riesco a farla apparire
nella barra principale di access ma non nelle altre.
Grazie 1000.
Ringrazio vivamente coloro che mi hanno aiutato , non so come mai , ma non
riesco a rispondere sotto alle richieste da me fatte o di altri, riesco solo
ad inserire nuovi messaggi.
Di nuovo, Max

 wrote in message
900cpm$eae$1...@fe2.cs.interbusiness.it...

______
Devi togliere la casella menu' di controllo.
Cosě ti toglie quell'icona a sinistra ed i pulsanti di riduzione icona,
ingrandimento e la x di chiusura.
Quindi o ti inserisci un pulsante per la chiusura, o ti crei una barra di
menu' per la chiusura.
Ciao Riccardo


Si puo vare usando le API, vedo di trovarti il codice e te lo mando.
Ciao, Bobbit

 Ciao Riccardo
ooops!
mi sono accorto di aver risposto non so a cosa ;-(
la domanda fatta era completamente un'altra.
pardon
Riccardo

 >



Option Compare Database
Option Explicit
'*********** Code Start ********
'Code courtesy of
'Klaus H. Probst
'
'// Place all this in a module
Public 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
Public Declare Function SendMessage Lib "user32" _
   Alias "SendMessageA" _
   (ByVal hwnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   LParam As Any) _
   As Long
Public Const WM_GETICON = &H7F
Public Const WM_SETICON = &H80
Public Const ICON_SMALL = 0
Public Const ICON_BIG = 1
'// LoadImage() image types
Public Const IMAGE_BITMAP = 0
Public Const IMAGE_ICON = 1
Public Const IMAGE_CURSOR = 2
Public Const IMAGE_ENHMETAFILE = 3
'// LoadImage() flags
Public Const LR_DEFAULTCOLOR = &H0
Public Const LR_MONOCHROME = &H1
Public Const LR_COLOR = &H2
Public Const LR_COPYRETURNORG = &H4
Public Const LR_COPYDELETEORG = &H8
Public Const LR_LOADFROMFILE = &H10
Public Const LR_LOADTRANSPARENT = &H20
Public Const LR_DEFAULTSIZE = &H40
Public Const LR_LOADMAP3DCOLORS = &H1000
Public Const LR_CREATEDIBHeader = &H2000
Public Const LR_COPYFROMRESOURCE = &H4000
Public Const LR_SHARED = &H8000
Sub SetFormIcon(hwnd As Long, IconPath As String)
Dim hIcon As Long
Dim icona As String
icona = "c:\documenti\jicona.ico"
   hIcon = LoadImage(0&, icona, IMAGE_ICON, 16, 16, LR_LOADFROMFILE)
   '// wParam = 0; Setting small icon. wParam = 1; setting large icon
   If hIcon <> 0 Then
      Call SendMessage(hwnd, WM_SETICON, 0, ByVal hIcon)
   End If
End Sub
'*********** Code Start ********

 wrote in message
zmTU5.119$tS2....@news.infostrada.it...


 >
dove hwnd=me.hwnd  e IconPAth è il percorso dove si trova la tua icona.
Ciao, Bobbit

 wrote in message
_L2V5.3455$tS2.1...@news.infostrada.it...


 wrote in message
902daf$16u$1...@fe2.cs.interbusiness.it...



_____
Ciao, ho creato una maschera e su evento caricamento ho inserito:
SetFormIcon Me.hwnd, "c:\pippo\pippo.ico"
Ho copiato il modulo che hai inviato nella precedente mail, ma quando apro
la maschera, non succede nulla.
Resta sempre visibile l'iconcina Access.
Dove sta il problema?
grazie
Riccardo

 wrote in message
905q6f$e6u$1...@news.panservice.it...

A me funziona...usi per caso icone create da te?
Bobbit!

 wrote in message
5VwV5.2713$hk4....@news.infostrada.it...

__
No. Mi sembra sia un'icona presa da Visual Basic o qualche altro programma.
P.S.: nel modulo debbo cambiare qualcosa o lo lascio così come lo hai
inviato tu.
ciao Riccardo