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 »
This function shows how to get a file from an FTP site. Original Author: Kristian Trenskow Inputs Make a form (form1) and insert two winsock controls (winsock1 and winsock2). Then insert a command button (command1) and three labels (label1, label2 and label3). Then you need to add a module (module1), and last you need a timer (timer1). That’s it.… 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 »
Uses SetWindowLong to turn a PictureBox into a “Child Form”. Rather amazing to an unexperienced programmer.PS. Visit my new site: http://smartsite.cjb.net Original Author: Konstantin Tretyakov Attachments File Uploaded Size CODE_UPLOAD3315292000.zip 9/3/2020 3:45:00 PM 61754
Demonstrates how you can minimize your app to the system tray and reactivates it by double clicking on its registered file type in Windows Explorer, without leaving the second instance running.Covers three techniques:1-Hooking;2-Registry functions;3-SystemTray functions.VB6 tested OK. Original Author: Alexandre Moro Attachments File Uploaded Size CODE_UPLOAD33772132000.zip 9/3/2020 3:45:00 PM 11251
Make a simple FTP Client that allows you to read and write to a remote computer Original Author: Vikramjit Singh Inputs The IP address and local file name , path. Assumptions Set Project Refrences to MSINET.OCX before you run the codeOr you could set Project components and check on Microsoft Internet transfer control…then drag the MSINET control onto the… Read More »