I'm An Inventor!

It's finally official as of May 2008, I am a patented inventor for this pretty cool project I did when I worked at Proflowers.com!  http://www.google.com/patents?id=9xeqAAAAEBAJ&dq=%22David+McCarter%22 The other guy on the patented is the president of the company, had nothing to do with it. I called one of the attorneys back in 2001 and tried to get … Continue reading I'm An Inventor!

Keeping A Window On Top

You can keep your window on top by using the code listed below. DeclareDeclare Sub SetWindowPos Lib "User" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)Const SWP_NOMOVE = 2Const SWP_NOSIZE = 1Const HWND_TOPMOST = -1Const … Continue reading Keeping A Window On Top

Keeping A Form On Top Of A Window

Instead of SetWindowPos, it uses SetWindowWord. This lets you create a floating toolbar that stays above its app's window without staying on top of ALL windows. Very handy for that professional look.Declare Sub SetWindowWord Lib "USER" (ByVal hWnd, ByVal nCmd, ByVal nVal) Const SWW_hParent = (-8) Form_Load of the form that you want to keep … Continue reading Keeping A Form On Top Of A Window

How To Load A Non-Modal Form Like A Modal Form

Background I was almost finished with an app I was writing. Twice in this app I did some time consuming formatting and I thought it would be nice to have a status bar in these loops. My program had Modal windows so the problem begun. I could not show a non modal window on to … Continue reading How To Load A Non-Modal Form Like A Modal Form

Hiding The Cursor

You could move the cursor off the screen, but there is an easy way to make the cursor invisible with an API call: DeclareDeclare Function ShowCursor Lib "User" (ByVal bShow As Integer) As Integer Usage To use the API, simply call:R = ShowCursor(True) orR = ShowCursor(False) There is one thing you should know about this … Continue reading Hiding The Cursor