This module will help you manage the minimize/maximize buttons, the forms system menu, and the position of your form. Option Explicit Private Declare Function DeleteMenu Lib “user32.dll” (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As LongPrivate Declare Function GetSystemMenu Lib “user32.dll” (ByVal hWnd As Long, ByVal bRevert As Long) As LongPrivate Declare Function… Read More »

With this example, you can have “stuff happen” when a form is moved on the screen. Option Explicit ‘API TypesPublic Type RECT   Left As Long   Top As Long   Right As Long   Bottom As LongEnd Type ‘API ConstantsConst WM_MOVING = 534Const GWL_WNDPROC = (-4) ‘API declarationsPrivate Declare Function SetWindowLong Lib “user32.dll” Alias “SetWindowLongA” (ByVal hWnd As Long, ByVal nindex As Long, ByVal dwnewlong… Read More »

This great chunk of code shows how to leverage the Windows API to put a progress bar inside of a status bar, on an MDI form. Option Explicit’*******************************************************************’API’******************************************************************* ‘SetParentPrivate Declare Function SetParent Lib “user32.dll” _   (ByVal hWndChild As Long, _ByVal hWndNewParent As Long) As Long’SendMessagePrivate Declare Function SendMessage Lib “user32.dll” Alias “SendMessageA” _   (ByVal hWnd As Long, _   ByVal wMsg As… Read More »

Makes a nice layered window effect, with adjustable transparency. Option ExplicitDeclare Function GetWindowLong Lib “user32.dll” Alias “GetWindowLongA” (ByVal hWnd As Long, ByVal nIndex As Long) As LongDeclare Function SetWindowLong Lib “user32.dll” Alias “SetWindowLongA” (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongDeclare Function SetLayeredWindowAttributes Lib “user32.dll” (ByVal hWnd As Long, ByVal crKey As… Read More »

This class module will allow you to easily work with INI files. This will let you store settings and preferences for your program that are persistent between runs. You can download the attachment above, or copy and paste the below chunk of code to a new class module in your project. Option Explicit ‘APIPrivate Declare Function GetPrivateProfileInt Lib… Read More »

In the last tutorial (Simple Fixed Array, Part 1) we had a fixed Array of Elements (Animals), and when we selected one of the Radio Buttons a Label would show us which number the Element was. But what if we had more than just six Elements as in our Array, say we had 500 Elements and we needed… Read More »

When I started programming the one thing that would trick me was Arrays. So, with this in mind, I have decided to write 3 tutorials to try and help other beginners. What follows is a fixed array, an array is simply a container for a list of elemants in the case of this example it is a list… Read More »

I have posted this article primarily for newbies but I’m sure others could benefit as well. I did a quick search and finding nothing on it on the forum decided to post it as an article. I got the idea to write this article recently when I was standing in for a colleague teaching programmng to some college… Read More »

Rather than have a form simply appear or disappear, you can use this module to add an explode or implode effect when a form appears or disappears. Module Insert the following code to your module. If Win16 Then   Type RECT      Left As Integer      Top As Integer      Right As Integer      Bottom As Integer   End TypeElse   Type RECT      Left As Long      Top As Long      Right As Long      Bottom As Long   End TypeEnd… Read More »

This handy little chunk of code will show you how to create a faded background on a form, using the Windows API. Option Explicit ‘ Data type used by FillRectType RECT   Left As Long   Top As Long   Right As Long   Bottom As LongEnd Type ‘ API Functions used to create solid brush and draw brush on formPublic Declare Function CreateSolidBrush Lib “gdi32.dll”… Read More »