Newsgroup: it.comp.appl.access
Titolo: chiusura di access ad icona

Salve vorrei un aiuto tecnico, se possibile ho realizzato un  piccolo
applicativo in msaccess 2000. Per poter chiudere ad icona l'applicativo ho
sfruttato la chiusura ad icona di msaccess creando una form vuota di sfondo
che copre tutto Access lasciando scoperto solo l'intestazione a sinistra e i
tre bottoncini a destra chiusura ad icona, espandi, chiudi. dei tre
bottoncini vorrei lasciare solo quello di chiusura ad icona, sapete come si
fa?
grazie dell'aiuto

> "fast" news:_dUv9.37937$
dj7.3...@tornado.fastwebnet.it
:

    Dovresti rimuovere le voci corrispondenti del "menu' controllo". Per
mezzo delle funzioni apposite dell'API di Windows:
' ------------------------------------------------------------
' HMENU GetSystemMenu(
'   HWND hwnd,    // handle of window to own the System menu
'   BOOL fRevert  // reset flag
' );
' ------------------------------------------------------------
  Private Declare Function GetSystemMenu _
    Lib "user32" ( _
      ByVal hWnd As Long _
    , ByVal fRevert As Long _
    ) As Long
' ------------------------------------------------------------
' ------------------------------------------------------------
' int GetMenuItemCount(
'   HMENU hMenu // handle of menu
' );
' ------------------------------------------------------------
  Private Declare Function GetMenuItemCount _
    Lib "user32" ( _
      ByVal hMenu As Long _
    ) As Long
' ------------------------------------------------------------
' ------------------------------------------------------------
' BOOL RemoveMenu(
'   HMENU hMenu,  // handle of menu
'   UINT  uItem,  // menu item identifier or position
'   UINT  fuFlags // menu item flag
' );
' ------------------------------------------------------------
  Private Declare Function RemoveMenu _
    Lib "user32" ( _
      ByVal hMenu As Long _
    , ByVal uItem As Long _
    , ByVal fuFlags As MenuFlagsEnum _
    ) As Long
' ------------------------------------------------------------
' ------------------------------------------------------------
' BOOL DrawMenuBar(
'   HWND  hWnd  // handle of window with menu bar to redraw
' );
' ------------------------------------------------------------
  Private Declare Function DrawMenuBar _
    Lib "user32" ( _
      ByVal hWnd As Long _
    ) As Long
' ------------------------------------------------------------
    Per esempio, per rimuovere la voce di menu' "Sposta" (Move) potresti
usare la seguente funzione, facendo pero' attenzione al fatto che le voci
vengono eliminate contando dal basso verso l'alto (dall'ultima alla prima,
cioe').
' ************************************************************
  Public Sub RemoveMenuMove( _
    ByVal PopUpForm As Access.Form)
' ------------------------------------------------------------
  Dim lHWnd   As Long
  Dim lCount  As Long
' ------------------------------------------------------------
  With PopUpForm
    If (.PopUp) Then
      lHWnd = GetSystemMenu(.hWnd, False)
      If (lHWnd) Then
        lCount = GetMenuItemCount(lHWnd)
        If (lCount) Then
          RemoveMenu lHWnd, lCount - 2, MF_BYPOSITION
          DrawMenuBar .hWnd
          .Caption = .Caption & ""
        End If
      End If
    End If
  End With
  End Sub
' ************************************************************
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------