Category Archives: Microsoft

SelectListBoxes

Move selections back and forth between 2 listboxes. You can use command buttons or double click selections. This sample uses printer font names for testing. Original Author: Robert Sadler Assumptions Form name frmSelectList should contain 2 listboxes named lstLists in a control array and 4 command buttons named cmdArrows in a control array that are used for arrows. Code… Read More »

ADVANCED Form Bubble Entrance

Makes Your Form Have A Bubble Entrance!!! Original Author: Demian Net API Declarations Public Declare Function CreateEllipticRgn Lib “gdi32” _(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _ByVal Y2 As Long) As LongPublic Declare Function SetWindowRgn Lib “User32” _(ByVal Hwnd As Long, ByVal hRgn As Long, _ByVal bRedraw As Boolean) As Long Code ‘Make Your… Read More »

MultiDoc (Multiple Document Word Processor)

This is a Complete Word Processor that has extra features like Uppercase and LowerCase of all Selected text with the Click of a button. It allows you to easily open 4 Text Files at a time and modify them/Save, etc. It also has the ‘Command$’ function so you can set up specific files to be opened by this… Read More »

MAP NETWORK DRIVE WITH VB

Well the simple way to map network drives with vb. Original Author: LEVENT YILDIZ API Declarations Declare Function WNetAddConnection Lib “mpr.dll” Alias “WNetAddConnectionA” (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As LongDeclare Function WNetCancelConnection Lib “mpr.dll” Alias “WNetCancelConnectionA” (ByVal lpszName As String, ByVal bForce As Long) As Long Code Private Sub cmdConnect_Click()  Dim x As… Read More »

File Version Logger

Checks version, date & time information. Recurse subdirectories and filer file types. Great for debugging file version problems. Original Author: Paul Mather Attachments File Uploaded Size CODE_UPLOAD967.zip 9/3/2020 3:45:00 PM 6440

ADVANCED Form Loaded Times

Gets how many times your form was loaded Original Author: Demian Net Returns Returns as Long Code Public Sub SetLoaded()  ‘put this in your main forms’ Load procedure  ‘this will set the count  Dim lTemp As Long, sPath As String  lTemp& = GetLoaded&  If Right$(App.Path, 1) <> “” Then sPath$ = App.Path & “” & App.EXEName & “.tmp” Else sPath$ = App.Path & App.EXEName… Read More »

String Replace *THE FASTEST*

This code is a direct replacement for the VB6 Replace function. Obviously, VB 6 users will have very little (if any) use for the function. It is intended for use with older versions of VB that do not have the in-built Replace function. I noticed a similar piece of code released earlier this week, but it only appeared… Read More »

Wheel Of Fortune!

Wheel Of Fortune based on television show. Made by MadMax Software at http://madmaxsoftware.homepage.com Original Author: mike Attachments File Uploaded Size CODE_UPLOAD953.zip 9/3/2020 3:45:00 PM 12534

CD-ROM Tray (My itchy tounge!)

Not much! Just ejects the CD tray in a funny way! Original Author: MangaMorgan Assumptions Nothing! (Apart from how to cut & paste code!) API Declarations Declare Function mciSendString Lib “winmm.dll” Alias “mciSendStringA” (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Attachments File Uploaded Size CODE_UPLOAD933.zip 9/3/2020 3:45:00 PM… Read More »