Tentang manipulasi window. coba anda pelajari dari aplikasi DUK ini : http://f1.grp.yahoofs.com/v1/cC7ZSzTg5IZyrSHQboNytycD2Rx-HegyM1-7OPhY8HHM9lV6gDA9qYgEzsA1sTyArpRqO4rImHik6ZjaZmjpr0ScyBUsRBFBuw/APLIKASI%20DUK/APLIKASI%20DUK.rar
mungkin bisa menginspirasi Anda. password modul : 123 username n pass: admin, adminpass 2010/4/29, N17R4 H4F45 <[email protected]>: > alhamdulillah udah ketemu cara dengan VBA tapi masalahnya kok > di taskbar windows gak muncul, cuman form startup sih ada di layar, tapi gak > ada di taskbar windows. > > ada yg bisa ngasih masukan? > berikut scriptnya yang saya contek dari internet, dibuatkan Modul baru : > > > ==================================================================== > Private Declare Function IsWindowVisible Lib "user32" (ByVal hWnd As Long) > As Long > Dim dwReturn As Long > > Const SW_HIDE = 0 > Const SW_SHOWNORMAL = 1 > Const SW_SHOWMINIMIZED = 2 > Const SW_SHOWMAXIMIZED = 3 > > Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, _ > ByVal nCmdShow As Long) As Long > > Public Function fAccessWindow(Optional Procedure As String, Optional > SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean > > If Procedure = "Hide" Then > dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) > End If > If Procedure = "Show" Then > dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) > End If > If Procedure = "Minimize" Then > dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED) > End If > If SwitchStatus = True Then > If IsWindowVisible(hWndAccessApp) = 1 Then > dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) > Else > dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) > End If > End If > > If StatusCheck = True Then > If IsWindowVisible(hWndAccessApp) = 0 Then > fAccessWindow = False > End If > If IsWindowVisible(hWndAccessApp) = 1 Then > fAccessWindow = True > End If > End If > End Function > ==================================================================================== > > > > > > +++++++++++++++++++++++++++++++++++++++++ > ^_^n17r4 h4f45^_^ > [email protected] > ymid nitra_hafas ; gtalk nitrahafas > +++++++++++++++++++++++++++++++++++++++++ > > > > > ________________________________ > From: May Listiani Mz <[email protected]> > To: [email protected] > Sent: Thursday, April 29, 2010 13:06:28 > Subject: Re: [belajar-access] men-disable toolbar menu > > coba kilik kanan pada taksbar saja, > kalau ga disecurity ya bisa > > > > Pada Thu, 29 Apr 2010 12:54:44 +0700, N17R4 H4F45 <[email protected]> > menulis: > >> para sempai access.... >> adakah yg sudi memberi tips, cara menon-aktifkan menu2 (environment dari >> access) pada saat suatu form dijalankan. >> >> terimakasih >> nitra hafas >> > > > > > ------------------------------------ > > SPAM IS PROHIBITEDYahoo! Groups Links > > > >
