Post by FanciulloSalve sono Fanciullo,
access97
Come posso all'apertura di una maschera disattivare il pulsante di
chiusura (x) in alto a destra?
Ho provato nelle proprietà della maschera a scegliere
no nella proprieta pulsante di chiusura.
ma la x rimane e funziona!
grazie
Guarda su www.sitocomune.com c'è la soluzione
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access
Ho trovato nella sezione generale il file AccessBtnControl
dentro c'è una maschera con un pulsante che su click
mi nasconde i bottoni di comando a destra della finesta di access.
Ho visto in codice, ma non so come fare a applicarlo alla maschera aperta
Option Compare Database
Option Explicit
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Const GWL_STYLE = -16
Private Const WS_SYSMENU = &H80000
Private Const WM_NCPAINT = &H85
Public Sub ShowAccessBtn(ShowIt As Boolean)
On Error GoTo Errors
Dim lngOldStyle As Long
Dim lngNewStyle As Long
Dim mhWnd As Long
mhWnd = Application.hWndAccessApp
'Legge il valore attuale
lngOldStyle = GetWindowLong(mhWnd, GWL_STYLE)
If ShowIt Then
lngNewStyle = lngOldStyle Or WS_SYSMENU
Else
lngNewStyle = lngOldStyle And Not WS_SYSMENU
End If
'Questa è l'unica Funzione indispensabile
'che esegue realmente il comando Hide/Show
'dei Pulsanti
Call SetWindowLong(mhWnd, GWL_STYLE, lngNewStyle)
'Manda un Repaint alla Finestra di Access
Call SendMessage(mhWnd, WM_NCPAINT, 1, 0)
ExitHere:
Exit Sub
Errors:
MsgBox Err.Description, vbCritical, "Errore n° = " & Err.Number
Resume ExitHere
End Sub
Grazie Massimiliano, puoi fare qualcosa?