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 source-code of curriculum vitae. Attachments File Uploaded Size 982-20190826-075529-CVSoft.zip 8/26/2019 7:55:29 AM 60779

This program gives you simple text editor in vb6. Attachments File Uploaded Size 981-20190826-075055-MY_NOTEPAD.zip 8/26/2019 7:50:55 AM 11247

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

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 »

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 »

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 »

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 »

Just like the title says, the code in the attached file will validate the floating point numbers in a text box. Usage Create a form with a textbox, and insert the following into the form code: Private Sub Form_Load()    Text1.Text = Empty End Sub Private Sub Text1_KeyPress(KeyAscii As Integer)    ‘ Precision is 2 in this case   ‘ Send the… Read More »

Remove any record from an array, without leaving a gap in the records. Option Explicit Private Type my_type   field1 As String   field2 As Long   field3 As IntegerEnd Type Const MAX_ARRAY = 10Dim my_array(0 To MAX_ARRAY – 1) As my_type ‘Delete the record RecPos (from 0 to MaxRecs)…MaxRecs is the maximum array dimensionPublic Sub DeleteRecordFromMyArray(RecPos As Integer, MaxRecs As Integer)   Dim i As… Read More »