Ya.... Aplikasi DUK anda bagus sekali interface-nya.
aksan kurdin --- In [email protected], BoyPeace pamotan <boypeace...@...> wrote: > > Sayang, Cara ini sudah pernah saya lakukan, tetapi masih tetap adalah > kelemahan di aplikasi DUK yang saya buat, report masih bisa geser dan > apabila mouse di klik di luar report maka report akan terhalang oleh > menu utama, tombol close pada report pun juga terdisable. > Masalahnya aplikasi yang kemarin yang saya buat hampir semuanya baik > form atau report saya set modal = yes dan popup=yes > > Saya sudah ketemu solusinya dengan merubah > border style= no > control box = no > min max = no > sehingga report preview menjadi maximize full screen, untuk menutup > report dengan membuat popup/ klik kanan menu.... > > 2010/4/28, aksankurdin <aksan.kur...@...>: > > Saya bantu nyari, ketemu di sini: > > http://bytes.com/topic/access/answers/546461-disable-access-application-maximizebox > > > > pakenya di report: > > > > Private Sub Report_Open(Cancel As Integer) > > Call fActivateControlBox(False, Me.Name) > > End Sub > > > > > > > > > > berikut module lengkapnya: > > > > > > > > Option Compare Database > > Option Explicit > > > > Private Declare Function GetWindowLong Lib "User32" _ > > Alias "GetWindowLongA" _ > > (ByVal hWnd As Long, _ > > ByVal nIndex 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 GetSystemMenu _ > > Lib "User32" _ > > (ByVal hWnd As Long, _ > > ByVal bRevert As Long) As Long > > > > Private Declare Function DrawMenuBar _ > > Lib "User32" _ > > (ByVal hWnd As Long) As Long > > > > Private Declare Function DeleteMenu _ > > Lib "User32" _ > > (ByVal hMenu As Long, _ > > ByVal nPosition As Long, _ > > ByVal wFlags As Long) As Long > > > > Private Const MF_BYCOMMAND = &H0& > > Private Const SC_CLOSE = &HF060 > > > > Private Const WS_SYSMENU = &H80000 > > Private Const WS_MAXIMIZEBOX = &H10000 > > Private Const WS_MINIMIZEBOX = &H20000 > > > > Private Const GWL_STYLE = (-16) > > > > Public Function fActivateControlBox(Enable As Boolean, strName As String) > > Dim CurStyle As Long > > Dim hWnd As Long > > > > ' hWnd = Access.hWndAccessApp > > hWnd = Reports(strName).hWnd > > > > CurStyle = GetWindowLong(hWnd, GWL_STYLE) > > If Enable Then > > If Not (CurStyle And WS_SYSMENU) Then > > CurStyle = CurStyle Or WS_SYSMENU > > End If > > Else > > If (CurStyle And WS_SYSMENU) = WS_SYSMENU Then > > CurStyle = CurStyle - WS_SYSMENU > > End If > > End If > > Call SetWindowLong(hWnd, GWL_STYLE, CurStyle) > > Call DrawMenuBar(hWnd) > > > > End Function > > > > Public Function fActivateCloseBox(Enable As Boolean, strName As String) > > Dim hMenu As Long > > Dim hWnd As Long > > > > ' hWnd = Access.hWndAccessApp > > hWnd = Reports(strName).hWnd > > > > If Enable Then > > Call GetSystemMenu(hWnd, True) > > Else > > hMenu = GetSystemMenu(hWnd, False) > > If hMenu Then > > Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND) > > End If > > End If > > Call DrawMenuBar(hWnd) > > > > End Function > > > > Public Function fActivateMaximizeBox(Enable As Boolean, strName As String) > > Dim CurStyle As Long > > Dim hWnd As Long > > > > ' hWnd = Access.hWndAccessApp > > hWnd = Reports(strName).hWnd > > > > CurStyle = GetWindowLong(hWnd, GWL_STYLE) > > If Enable Then > > If Not (CurStyle And WS_MAXIMIZEBOX) Then > > CurStyle = CurStyle Or WS_MAXIMIZEBOX > > End If > > Else > > If (CurStyle And WS_MAXIMIZEBOX) = WS_MAXIMIZEBOX Then > > CurStyle = CurStyle - WS_MAXIMIZEBOX > > End If > > End If > > Call SetWindowLong(hWnd, GWL_STYLE, CurStyle) > > Call DrawMenuBar(hWnd) > > > > End Function > > > > Public Function fActivateMinimizeBox(Enable As Boolean, strName As String) > > Dim CurStyle As Long > > Dim hWnd As Long > > > > 'hWnd = Access.hWndAccessApp > > hWnd = Reports(strName).hWnd > > > > CurStyle = GetWindowLong(hWnd, GWL_STYLE) > > If Enable Then > > If Not (CurStyle And WS_MINIMIZEBOX) Then > > CurStyle = CurStyle Or WS_MINIMIZEBOX > > End If > > Else > > If (CurStyle And WS_MINIMIZEBOX) = WS_MINIMIZEBOX Then > > CurStyle = CurStyle - WS_MINIMIZEBOX > > End If > > End If > > Call SetWindowLong(hWnd, GWL_STYLE, CurStyle) > > Call DrawMenuBar(hWnd) > > > > End Function > > > > > > > > > > > > aksan kurdin > > > > > > --- In [email protected], "PEACE" <boypeace.81@> wrote: > >> > >> > >> > >> --- In [email protected], BoyPeace pamotan <boypeace.81@> > >> wrote: > >> > > >> > Bagaimana cara mendisable restore atau minimize button pada report, > >> > karena kalau di disable dari properties max dan min, record page > >> > number tidak nampak? > >> > udah searching di google belum ketemu > >> > > >> > >> ----------------------------------------------- > >> saya searching cuma module ini yang ketemu tapi masih debug.. > >> > >> > >> > >> Public Function fActivateReportMaximizeBox(Enable As Boolean, strName As > >> String) > >> Dim CurStyle As Long > >> Dim hWnd As Long > >> > >> hWnd = Reports(strName).hWnd '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< > >> > >> CurStyle = GetWindowLong(hWnd, GWL_STYLE) > >> If Enable Then > >> If Not (CurStyle And WS_MAXIMIZEBOX) Then > >> CurStyle = CurStyle Or WS_MAXIMIZEBOX > >> End If > >> Else > >> If (CurStyle And WS_MAXIMIZEBOX) = WS_MAXIMIZEBOX Then > >> CurStyle = CurStyle - WS_MAXIMIZEBOX > >> End If > >> End If > >> Call SetWindowLong(hWnd, GWL_STYLE, CurStyle) > >> Call DrawMenuBar(hWnd) > >> > >> End Function > >> > >> Add this line to the OnOpen event of the report(s) you want to > >> > >> Call fActivateReportMaximizeBox(False, Me.Name) > >> > >> You can make the same basic change to anyone of the fumctions contained in > >> the module. > >> If you want to also manipulate the buttons on forms, change - > >> > >> hWnd = Reports(strName).hWnd > >> to > >> hWnd = Forms(strName).hWnd > >> > > > > > > >
