This program test the Visual Basic program you are currently running. As you will see. Original Author: Preston Smith Assumptions You can adjust the dates for Jan 1st 1930, Jan 1st 2029, Jan 1st 00 and Feb 29 or 30 2000. To see if your version is compliant then you should use 1/1/00 for the year 2000, and 2/29/00… Read More »
Allows programmers to access Windows version information using the properties of a class module. This includes Windows version (95, 98, NT), browser version, Netscape Navigator version, registered company and user.Also included is cRegistry class to access the registry. This code was downloaded from VBAccelerator. VB Accelerators page is http://www.vbaccelerator.com/. Original Author: Sloan Kelly Inputs n/a Assumptions n/a Returns n/a… Read More »
Returns the path to a system folder, based on input. This code is based on a submission by ‘Don’. Originally the code only found the System Folder on the machine. I have added all of the system folders (MyDocuments, System, Cookies, etc), and made it into a class/dll for ease of use. The code is relatively self explanatory,… Read More »
This code offers you a strong encryption with RC4. I’ve tested it a lot and it’s the right implementation of the RC4 cipher.‘You can use this code in your commercial code because it’s not patented!‘I know there is another code that deals with RC4 but my code has nothing to do with this code!‘More infos: sci.crypt Original Author: Sebastian… Read More »
This simple little function just returns the total number of records in a ADO recordset. Original Author: Riaan Aspeling Inputs A ADODB.Recordset structure Returns A Long integer with the total number of records Side Effects I believe it’s not the fastest way of retrieving the information but at least it works. I’d like it if somebody can suggest a… Read More »
It automatically makes your form on top until they close or end the program and it is all API free! Original Author: Jake McCurry Code ‘set the timer’s interval to 1Private Sub Timer1_Timer()Form1.ShowForm1.SetFocusEnd Sub
Replaces a character in a string with another character. Pretty simple to understand. Uses a For…Next loop. Original Author: Steve Berardi Code Function ReplaceCharacter(stringToChange$, charToReplace$, replaceWith$) As String’Replaces a specified character in a string with another’character that you specify Dim ln, n As Long Dim NextLetter As String Dim FinalString As String Dim txt, char, rep As String txt = stringToChange$ ‘store all arguments… Read More »
Notice: THIS CODE HAS BEEN FIXED! PLEASE READ THE COMMENTS AT THE BOTTOM OF THE PAGE TO SEE WHAT WAS WRONG BEFORE.Create real C++ style command buttons with ONE line of code!!! You can use this code on any of your commands buttons. You will loose any images and the BackColor of the button, but that really doesn’t… Read More »
This ActiveX allow you to use animated gifs in yourapplications. I saw examples of modules before butnot ActiveX.You can make OCX file from this and use itin other applications. Original Author: German Bletel Assumptions This is test application for using animated gif.ActiveX has Propertie: GifPath must be a valid pathto an animated gif fileMethods:StartGif – Loads gif and starts… Read More »
Opens a text file much fast than a “Do While Not EOF(filenumber)” loop. Makesfile load times almost non-existant. Original Author: Timothy Pew Inputs The filename of the file to open. Assumptions The filename that you pass to the function must exist, otherwise an error will occur. Returns The text contained in the file. Side Effects I have yet to… Read More »