David & Joanne Gould
dajomigo at tpg.com.au
Fri Dec 23 01:20:01 CST 2005
Thanks, Drew. looks great. David At 12:53 PM 23/12/2005, you wrote: >This is code I put on an 'Always On Top' form which also hides the Access >window: > >Option Compare Database >Option Explicit >Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _ >ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal _ >cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long >Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) >As Long >Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _ >ByVal nCmdShow As Long) As Long >Const SW_HIDE = 0 >Private Const SW_SHOW = 5 >Private Const SWP_NOMOVE = &H2 >Private Const SWP_NOSIZE = &H1 >Private Const HWND_TOPMOST = -1 >Private Const HWND_NOTOPMOST = -2 > >Private Sub cmdAlwaysOnTop_Click() >If IsWindowVisible(Application.hWndAccessApp) Then > ShowWindow Application.hWndAccessApp, SW_HIDE > SetWindowPos Application.hWndAccessApp, HWND_TOPMOST, 0, 0, 0, 0, _ > SWP_NOMOVE Or SWP_NOSIZE > ShowWindow Me.hwnd, SW_SHOW > Me.Repaint >Else > ShowWindow Application.hWndAccessApp, SW_SHOW > SetWindowPos Application.hWndAccessApp, HWND_NOTOPMOST, 0, 0, 0, 0, _ > SWP_NOMOVE Or SWP_NOSIZE >End If >End Sub >Private Sub Form_Unload(Cancel As Integer) >If IsWindowVisible(Application.hWndAccessApp) = False Then > ShowWindow Application.hWndAccessApp, SW_SHOW > SetWindowPos Application.hWndAccessApp, HWND_NOTOPMOST, 0, 0, 0, 0, _ > SWP_NOMOVE Or SWP_NOSIZE >End If >End Sub > >-----Original Message----- >From: Michael Maddison [mailto:michael at ddisolutions.com.au] >Sent: Thursday, December 22, 2005 7:11 PM >To: Access Developers discussion and problem solving >Subject: Re: [AccessD] access xp runtime > > >Hi David, > >I'm (almost) sure I saw some API code a couple of years ago that >completely hid the Access parent container window. >I can't find it on my pc but its out there somewhere ;-) > >cheers > >Michael Maddison > >DDI Solutions Pty Ltd >michael at ddisolutions.com.au >Bus: 0260400620 >Mob: 0412620497 >www.ddisolutions.com.au > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David & >Joanne Gould >Sent: Friday, 23 December 2005 11:23 AM >To: Access Developers discussion and problem solving >Subject: Re: [AccessD] access xp runtime > >My only plan for it is to hide the database window, put a different icon >on the titlebar. My client doesn't require menu bar or toolbars (thank >goodness). I'm hoping this will look like any other software in a box. > >David > >At 10:58 AM 23/12/2005, you wrote: > >"wants his database to not look like an access database (no problem)" > >D&J > > > >...lol ...runtime is one thing ...I run them on several client systems > >...but I'd really, really like to know how you make an Access db not > >look like an Access db ...the only way you can hide the Access window, > >afaik, is using popups which severely limits your gui ...alternatively > >you can fill the window with your main form and call subforms to do > >most of your work, an appoach I quickly abandoned ...and even then the > >user can still expose the Access window in a number of ways you can't >control. > > > >...building innovative guis is one thing ...but making it not look like > > >an Access db? ...I'm all ears? > > > >...btw, if you have the option I highly recommend upgrading your > >development system to A2K3 and buying the VSTO. > > > >William > > > >----- Original Message ----- > >From: "David & Joanne Gould" <dajomigo at tpg.com.au> > >To: <AccessD at databaseadvisors.com> > >Sent: Thursday, December 22, 2005 4:28 PM > >Subject: [AccessD] access xp runtime > > > > > > >I have a client that wants his database to not look like an access > > >database (no problem) and be usable by people who don't have access > > >on their computers. My understanding is that this is possible if the > > > >database is a runtime version. Is there any way to do this without > > >buying office developer XP. We are using access xp for the database. > > > > > > David > > > > > > > > > -- > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > > > > > >-- > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com