[AccessD] access xp runtime

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