Category Archives: Visual Basic 6 (VB6)

Line draw

Its a line drawing program using ellipses and lines to draw on a blank form. Attachments File Uploaded Size 985-20190827-064150-CAD.zip 8/27/2019 6:41:50 AM 35382

Notepad

My notepad this is my first project in vb. plz send comments on touseefnadeem2004@yahoo.com. Attachments File Uploaded Size 984-20190826-080202-MyNotepad.zip 8/26/2019 8:02:02 AM 2998

CVSoft

Simple source-code of curriculum vitae. Attachments File Uploaded Size 982-20190826-075529-CVSoft.zip 8/26/2019 7:55:29 AM 60779

Form Effects

This code includes a class that will allow you to expand your form or shrink it from left to right or right to left or from the centre. There’s an example form to see how to use it. If anyone wants me to do more with it please let me know. Cheers Steve Version 2 🙂 Attachments File… Read More »

simple timer

This is a simple application for dislpaying time.i just had fun with goran’s post and thought i’d upload this. Attachments File Uploaded Size 980-20190826-074812-time.zip 8/26/2019 7:48:12 AM 126027

Basic chess-game league table system

This is a basic “database” style system for tracking one-on-one games (in this case, it was chess) .You can enter players and matches, view a league-list of who’s winning overall and who is losing. It was written as a demonstration application for training and does not use MDAC or ADO. It does use MS Common Controls 1 and… Read More »

Sort Dates in a Listview, Correctly

This was a killer i saw it in the MSDN libraries and they went to much deep into it but there is an easier way…it works better. In Visual basic 5.0 or 6.0 you cann’ot sort by date in the listview. The problem is that when a value is entered in the cell, the control treats it as… Read More »

Improved String Concatenation Performance

Joining strings together, or concatentation, can take a toll on performance. Especially in a long loop. Here is a method to increase performance by 20x. Sub Concat(Dest As String, Source As String)’First Dest must have one space more’Example : Dest = ‘Hello ”and not Dest = ‘Hello’    Dim string1 As Long   Dim string2 As Long      string1 = Len(Dest)   string2 = Len(Source)… Read More »

How to embed an error code in a standard function return

I have read many accounts in various books and articles about how it would be nice to be able to return an error code with every function return. It’s fairly easy to achieve this. Simply create a User-Defined-Type (or class) called tReturn (or whatever) in a global module (assuming the use of a UDT). ‘———————————————Type tReturn    Value as… Read More »