Quantcast
Channel: VBForums - CodeBank - Visual Basic 6 and earlier
Browsing all 1461 articles
Browse latest View live

Display a list of connected users to a MS Access DB

This code reads and display the .LDB file generated by MS Access where informations about connected users are logged. The use : Debug.Print Global_ReadAccessLockFile("D:\YourDatabase.ldb") and will...

View Article


Image may be NSFW.
Clik here to view.

Funny Text Effect (for spalsh screen for instance)

This code is a very very old code (more than 20 years) I used in my apps to add some annimation during loading, on the splash screen Justs call (adapting the parameters of course) TextEffect Me, "This...

View Article


Image may be NSFW.
Clik here to view.

Transform your form in YingYang with transparency

This code is also very very old, it changes the layout of the form as a YingYang with transparency Just add this code Private Sub Form_Load() YingYang Me End Sub Code: Option Explicit Private Declare...

View Article

Image may be NSFW.
Clik here to view.

Resize easily your forms

This is the code I use for resizing forms easilly with all controls etc... Just add in your form Code: Option Explicit Private mclsResize      As New class_Elastic Private Sub Form_Load()...

View Article

How to create/update an appointment in Outllook

This code creates an appointment, and could also update an existing appointment Sample of use : Call Outlook_AddUpdate_Appointment("Test-Now", Date, "Test Appointment", "This is the Body", Now, Now,...

View Article


Retrieve all Maibox configured in Outlook

Long time ago, I had to retrieve the mailboxes configured in Outlook, allowing to select the right one. It was not so easy to find the answer, so here it is Code: Public Sub Outlook_DisplayAllMailbox()...

View Article

Need help with usercontrol that uses MSXML2.ServerXMLHTTP

I have created a usercontrol similar to the VB Asycdownload usercontrol and it works, but i thought i had the cancel downloads working but i dont. I cannot figure out if i start 6 downloads, i would...

View Article

Image may be NSFW.
Clik here to view.

A clsObjectExtender new version

From 2005 the clsObjectExtender was a fine class for late binding objects with events. But how we can use if we have our own object which raise events and we want that object to be present on a...

View Article


Image may be NSFW.
Clik here to view.

Make Seamless tiles

I've made this app to create a seamless tile, but now that I have the composite of pictures I want in picMain, I need to know how to render the image and save as a bitmap. I've tried Bitblt and...

View Article


Scrollable viewport

Hi, I am trying to make an app that will load icons that i have gatherd into a display port grid. I have a scrollable viewport that will load icons to an array of Pictureboxes based on a selected...

View Article

[VB6] Decompress gzip stream with libarchive on Win10

Recent versions of Win10 ship tar.exe utility which for compressed archives depends on stdcall build of libarchive open-source library which is shipped disguised under the name of archiveint.dll in...

View Article

Image may be NSFW.
Clik here to view.

VB6 Simple Rolidex Usercontrol

Rolidex style usercontrol. Maybe someone can use it. Very basic Attached Images   Attached Files Rolidex.zip (4.1 KB)

View Article

Image may be NSFW.
Clik here to view.

Krool's CommonControls cut out for Onesie-Twosie use

Ok, this is Krool's work, not mine. And this is done "with his permission". I just downloaded his most recent copy (on November 14, 2021), and I'll probably stick with this copy, as I do feel that his...

View Article


How to retrieve OS Language

This code will detect the OS Language of your windows Just call Debug.Print DetectOSLanguage() Code: Private Declare Function GetUserDefaultLangID Lib "kernel32" () As Integer Public Function...

View Article

Download file from WEB in a few lines

This very short code can download a file from an URL : Ex : Call DownloadFile("https://www.vbforums.com/attachment.php?attachmentid=179280&d=1605528528", "D:\test.zip") Code: Public Function...

View Article


Generate a Prime number of 8 Digits

Generate a Prime number of 8 Digits (you can adjust if you need more). I needed 8 digits pour internal security checks Code: Public Function EightDigitPrime() As Double   '...

View Article

Retrieve the Dropbox folder

Retrieve the Dropbox folder ? Global_GetDropboxFolder() Code: Option Explicit Public Function Global_GetDropboxFolder() As String   '...

View Article


Here's code to get any part of a URL.

Just copy the code from the below code box and paste it into a module, and you can use it to get any part of a URL. The part numbers are as follows. 0 = protocol 1 = username 2 = password 3 = host 4 =...

View Article

MS-OXRTFCP Compressed RTF Decompression Methods

I had a need to decompress MS-OXRTFCP Compressed RTF data that is used by Outlook messages. The format is described here in great detail: https://interoperability.blob.core.w...OXRTFCP%5d.pdf I wasn't...

View Article

Image may be NSFW.
Clik here to view.

Password Protection

Protecting passwords is not a simple task. For material that is not highly sensitive, it is enough just to make it difficult for the hacker. That involves using passwords at least 8 characters in...

View Article
Browsing all 1461 articles
Browse latest View live


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>