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 »

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 »

Recovers ALL passwords from the cache. Original Author: Demian Net API Declarations ‘Put In .BAS FileDeclare Function WNetEnumCachedPasswords Lib “mpr.dll” (ByVal s As String, ByVal i As Integer, ByVal b As Byte, ByVal proc As Long, ByVal l As Long) As Long‘The Type declaration used by WNetEnumCachedPasswordsType PASSWORD_CACHE_ENTRYcbEntry As Integer ‘size of this returned structure in bytescbResource As Integer… Read More »

Well I found parts of this code on the net but all in all, I wrote most of it. I hope that you like this. I added functions to copy and paste in this version. So please be sure to let me know how you like this code. Original Author: []D[][]V[][]D Side Effects none as far as I know.… Read More »

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 »

This code will give REGISTER and UNREGISTER menu selections on the right mouse click on OCX and DLL files. Original Author: Donathan Hutchings Assumptions Copy this code to a new text file in NotePad and save the file with the .reg extension. Take out the /s parameter to see the register/unregister notification messages. Code REGEDIT4[HKEY_CLASSES_ROOTdllfileShellRegistercommand]@=”Regsvr32 /s “%1″”[HKEY_CLASSES_ROOTdllfileShellUnregistercommand]@=”Regsvr32 /s /u… Read More »

Easily Compact & Repair a MS Access Database and display the size differences. Original Author: Cierra Computers & Consulting Inputs strDatabase as string Assumptions This code assumes that your Access database is in the same directory as your exe.Be sure to reference:MS DAO 3.X Object LibraryMS Scripting Runtime Returns Boolean (True if Successful) Code Public Function CompactDatabase(strDatabaseName As String)… Read More »

This is an OCX example of the SetTimer and KillTimer API calls. You can essentially replace the VB timer with this example. The Interval property can be set to as long as 24 days. It also has a ProcessPriority property to easily change the priority of your application. Original Author: Paul Mather Returns Has the same properties and events… Read More »

The following code will add great text effect to your applications. It changes the spacing between the characters. By changing spaces, the characters move on the screen. Original Author: Waty Thierry Inputs obj As ObjectByVal sText As StringByVal lX As LongByVal lY As LongOptional ByVal bLoop As Boolean = FalseOptional ByVal lStartSpacing As Long = 128Optional ByVal lEndSpacing As… Read More »

When you are creating a sort of Setup program, etc. sometimes you want to replace some system files or delete some other files, however if they are in use by Windows at the time, you can’t. You need to update the files after rebooting, you know that message that says “Please wait while windows updates your configuration files”,… Read More »