[AccessD] access xp runtime

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





More information about the AccessD mailing list