Category Archives: Visual Basic 6 (VB6)

Passing a control array

Working with control arrays in VB3 was frustrating, but with VB4 you can pass a control array as an argument to a function. Simply specify the parameter type as Variant: Original Author: VB Pro Code Private Sub Command1_Click(Index As Integer)GetControls Command1()End SubPublic Sub GetControls(CArray As Variant)Dim C As ControlFor Each C In CArrayMsgBox C.IndexNextEnd Sub Also, VB4’s control arrays… Read More »

Real-time fire without any palettes or pictures!

This incredible program shows how to create totally realistic fire without using any palettes to create the right color effects! A simple bit of mathematical color manipulation creates a perfectly colored fire effect more realistic and faster then palettes, making for real-time fire animation. The included .exe demonstrates the current max speed of this program, and it will… Read More »

**Area Of Circle Calculator**

This code allows the user to find the area of circle by clicking a command button and then typing in the radius of the circle. It is very helpful to anyone working on a calculator project. I am also coming out with area of triangle and square. Original Author: Brady Botkin Code ‘ Step 1. Place a command button… Read More »

Add User Initials to a block of selected text

If you have to add your username or initals tag to each change you make in code, this lets you select a block of text and add it to the end of each line. Original Author: UstesGreenridge Assumptions add this code to the mnuHandler_Click Side Effects It doesn’t delete any old comments that were there. Code ‘this event fires… Read More »

ShellExec, Wait and Check for changes for a file.

This sample program calls the Windows API to ShellExecute to a file you select. Then it opens the file with it’s associated program, waits for the program to end, and identifies if the file has been changed. Rock ON! Original Author: Drew Attachments File Uploaded Size CODE_UPLOAD3198212000.zip 9/3/2020 3:45:00 PM 9640

Post-it : Desktop Stickys

Post-it is a desktop notepad the designed to look like the famous stickys. It is drag-drop, transparent, and the choice of always on top (.exe provided is on top). Good for whatever ya want i guess.. Original Author: Josh Banks Attachments File Uploaded Size CODE_UPLOAD3218222000.zip 9/3/2020 3:45:00 PM 4734

Faster encryption/decryption with CryptoAPI

This module provides encryption/decryption through the CryptoAPI. This is the standard API you can use regardless of the underlying dll used to do the encryption. These dlls are called Cryptographic Service Providers (CSPs) and you get one as standard from Microsoft called “Microsoft Base Cryptographic Provider v1.0” This module uses the standard CSP, but this can be changed… Read More »

Read INI

Opens a INI-file and Get the value of ex: “Screensaver=” without using any system calls!!! Original Author: Dan Einarsson Inputs x = ReadINI(“screensaver”, “c:windowssystem.ini”)‘or what ever Returns the value of the keynamein this ex it would be perhaps: screensav.exe API Declarations NONE that is why i posted it!!! Code Function ReadINI(keyname As String, filename As String) As StringOpen filename… Read More »

Joystick – Mouse – Thing

This Here chunk ‘o code makes it so you can use a joystick instead ‘o a mouse. up/down right/left do just that, and button 1 is leftclick , button 2 is rightclick. I couldn’t get middleclick to work. Please tell me what you think! Original Author: unknown Side Effects Ummm… about the menu in the traybar, dont hit stop… Read More »

Flat ToolBar VB5

Flat toolbar with VB5? Now is possible Original Author: Gino Lollita – Carta VBMan Attachments File Uploaded Size CODE_UPLOAD3188212000.zip 9/3/2020 3:45:00 PM 14836