[AccessD] Hiding the Access Window WAS: access xp runtime

My my my William, maybe you should spend a little more time over here, then
on OT! ;)

http://databaseadvisors.com/mailman/htdig/accessd/2004-June/025236.html

Susan and I also co-wrote an article on shaped forms.  It's pretty simple to
do.

Here's some code you can drop in a form to make it 'rounded'.
CreateRoundRectRgn is the easiest to use if you aren't very artistic. :

Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long,
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long,
ByVal Y3 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long,
ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As
Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As
Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Const intFrameWidth As Long = 350
Const intFrameHeight As Long = 250
Const intEllipseSize As Long = 70
Const intBorderSize As Long = 40
Private Sub Detail_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, &HA1, 2, 0&
End Sub
Private Sub Form_Load()
Dim X As Long
X = SetThisWindowsRegion
SetMainWindowRegion X
DeleteObject X
End Sub
Private Function SetThisWindowsRegion() As Long
Dim intInsetFrame As Long
intInsetFrame = CreateRoundRectRgn(intBorderSize, intBorderSize,
intFrameWidth - intBorderSize, intFrameHeight - intBorderSize,
intEllipseSize, intEllipseSize)
SetThisWindowsRegion = intInsetFrame
End Function
Private Function SetMainWindowRegion(cRgn As Long)
Dim dwReturn As Long
dwReturn = SetWindowRgn(Me.hwnd, cRgn, True)
End Function

Drew
-----Original Message-----
From: William Hindman [mailto:wdhindman at bellsouth.net]
Sent: Friday, December 23, 2005 12:30 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Hiding the Access Window WAS: access xp runtime


...so far its a sin how well it works ...and so much for my christmas 
weekend ...now I have to redo a major client app that I'd earlier abandoned 
this approach on ...but much appreciate the insight and code Drew :)

...so when you're really bored and need something to wile away your time on,

how about looking at making this all work with shaped forms ...or better 
yet, fit a bitmap (or even better, a vector emf) ala Pedro Gil's code ...now

THAT would impress me! :)

http://www.geocities.com/pmpg98_pt/ShapedForm.html

William