Full Version: ACC2000: Custom Interface - Transparent Floating Panes
UtterAccess Discussion Forums > Microsoft® Access > Interface Design
Dom DXecutioner
Aug 17 2007, 05:56 PM
Hello,

The past couple of days have not be kind to me, i've been sick like no tomorrow and have not been able to concentrate on my projects. I was browing the internet and i visited an impressive website www.2AdvancedStudios.com

Now there's an impressive site... anyway, i looked at one of their designs and wondered if that could be achieved in access and i tried... attached is the results of my experiment, which by the way, is far from workable, but it's kinda cool sad.gif

talke a look at the screenshots... the code is not as well commented as i wanted it to be, but if i did do that, it would be way too involved... and sadly i don't have that kind of time :(







You'll have to convert the attached image to a bitmap format, paint should do this with no problem. I would have done for you, but it would increase the download well above the limit, what can i say... stuff happens sad.gif

Please note that this is not by any means a solution, it is what it is... a demo to get those great minds working. The demo has no error trapping, is not very customizeable, and better ways to carry out some tasks are necessary. Again, too envolved for my time...

Try at your own risk, and enjoy... sad.gif
Dom DXecutioner
Aug 17 2007, 05:58 PM
ummm, my bad... i clicked submit prior to attaching the file... hey, i'm not feeling well, go away sad.gif
JayNoelOlimpo
Aug 17 2007, 09:14 PM
Get well soon ...

Converted it to 97 with no probs ...

Though CurrentProject.Path is not available, I have substituted it to CurrentDBDir a custom function.

All works fine.

The colors ...

Hope this could be changed to something like the incative form to be lighter than the active form.

Hope all is well. yayhandclap.gif thumbup.gif

EDIT: Best viewed in 1024 x 768
weswayw
Aug 17 2007, 09:42 PM
don get well soon,i am a sort of newbie i have been trying to do my access thing (a rookie),I am very very, impressed by your designs,I guess the UA family gives your the inspiration.AND LET ME SAY THANKS TO EVERYONE FOR TAKING THE TIME AND FOR HAVING TO PATIENCE TO DEAL WITH ACCESS FOR DUMMIES GUYS LIKE ME. NUFF RESPECT.
Dom DXecutioner
Aug 17 2007, 10:53 PM
Umm, weswayw... i'm not sure if you're trying to say "don't get well soon" or "dom get well soon"; either way, thank you and welcome to the forums sad.gif

Jay, thanks... as for the active/inactive thought, let me give you something that may help you find a solution.

Since we're keeping track of the floating panes in the [basMainInterFace] module, we can create a small routine to set the transparency of all the floating panes at the same time.

CODE
Public Function requestFocus(opacity As Integer)

Dim i As Integer

    For i = 1 To colFloatingPanes.Count

        System.Window.Translucent colFloatingPanes(i).hWnd, opacity

    Next i

End Function


This function above can be used from any form that's not a floating pane. For example, if you click the [Add New Project] item on the [Common Tasks] pane in the [Navigator Floating Pane], you'll notice the new data entry form opens, but it does not get added to the floating panes collection.

We can call the function we just created on the [On Open] event and the [On Click] event of the close "button" in the [frm_project] form...

your code should look something like....

CODE
Private Sub Form_Open(Cancel As Integer)

    System.Window.Translucent Me.hWnd, 225

    '// call function to lower the transparency of all floating panes,

    '// you may need to create some variables to hold the original opacity

    Call requestFocus(100)

End Sub



Private Sub Label0_Click()

    '// since we're closing the form, we revert back to

    '// the original opacity of all the floating panes

    Call requestFocus(225)

    DoCmd.Close acForm, Me.Name

End Sub


Just a though... sad.gif

EDIT: here's a screenshot and thanks for pointing out the resolutioin that it's intended for [1024x768], it slipped my mind crazy.gif




Edited by: Dom DXecutioner on Sat Aug 18 0:14:46 EDT 2007.
mishej
Aug 17 2007, 10:56 PM
Just a quick note to let you know that it appears to work in A2007 but needs some minor mods that may be related to my setup.

The image is centered on my screen but the form isn't. I also can not immediately "Sign Out", I have to close the main form but perhaps that is by design?

If I get more time I'll look into it more closely. Thought you'd like to know that it appears that it will work under A2007 (fyi).
Dom DXecutioner
Aug 17 2007, 11:04 PM
mishej,

thanks for the heads up on ACC2007... and yes, by design is just closes the main form, i figured it'd be rude to just close the whole app sad.gif

Jay, thanks for the ACC97 test sad.gif
JayNoelOlimpo
Aug 18 2007, 12:00 AM
That does it ...

Any chance on adding that transparent drop down menu. grin.gif
Dom DXecutioner
Aug 18 2007, 12:58 AM
QUOTE
Any chance on adding that transparent drop down menu. grin.gif

i'm not sure what you mean by that... confused.gif
JayNoelOlimpo
Aug 18 2007, 01:03 AM
In the 2Advanced Studios ...

When you mouse over the Download Digital Matte Wallpaper or 2A Website Archives ...

there is a menu there ...

Anyway I have an idea 'bout it by using a subform that will when a label mouse over the subform will be visible and hide the other submenu ...

Forget about the last request ... wary.gif

Have a good rest and drink plenty of water. grinhalo.gif
weswayw
Aug 24 2007, 08:19 PM
i realty the this interface,i trying to to see if i can adapt it,I trying to use the unbound form method to make it easy to update i have the field and control names a like,i am not to sure if that is the best approach.anyone has any ideas.thanks
nuff respect
Dom DXecutioner
Sep 10 2007, 11:15 AM
weswayw: umm... confused.gif i'm not really what you mean, but thanx
This is a "lo-fi" version of our main content. To view the full version with more information, formatting and images, please click here.