Category Archives: Visual Basic 6 (VB6)

How to copy a database table. This may require some tweaking….“Bill Pearson” Original Author: Newsgroup Posting Code Private Sub Form_Load()    Dim dbFrom As Database  Dim dbTo  As Database    Set dbFrom = workspaces(0).opendatabase(“c:vb4iblio.mdb”)  Set dbTo = workspaces(0).opendatabase(“c:vb4iblio.mdb”)    db_Copy_Tabledef dbFrom, dbTo, “Authors”, “CopyOfAuthors”    dbFrom.Close  dbTo.Close  End SubPublic Function db_Copy_Tabledef(dbFrom As Database, dbTo As Database,TableNameFrom As String, TableNameTo As String) As Boolean    Dim tdFrom    As TableDef  Dim tdTo     As TableDef  Dim fldFrom   As Field  Dim fldTo    As… Read More »

This Program lets you chat in colorno rich text boxes required this Program usesPictureboxes to Display Messages. It Even letsyou send color faded messages also Bolded,Italic,Underlined,E|_?í_|_E(Elite),H4CK323D(Hackered),sdrawkcaB(Backwards),Echo cho ho o(Echoed),AlTeRnAtIvE CaPeD(Alternative Caps) and morefuture version can be expected in next monthwhich will have the ability to send files and imagesAnother Feature is that it lets you filter bad langugereplacing… Read More »

This code from PC Magazine (and it is FREE! Public Domain), will display available screen resolutions and color depths (4bit, 8bit, etc…) on a user’s computer. The best thing about this, is that the user can change the resolution. It will prompt the user to reboot, if needed. Notice that the List box highlights the current resolution when… Read More »

LandMass is based on the old Commodore 64 game “Lords of Conquest” by Electronic Arts. This game played a little bit like the board game Risk, only there were different playing pieces and –here’s the cool part– the playfield was generated randomly, so that no two games were the same. As it stands right now, LandMass simply generates… Read More »

This function converts numbers (currency) to words including centconversion and cent rounding.Note: ms stores 4 decimal positions internally but displays only 2.In a lot of number to word functions this is not handled and can causeerroneous values… this function corrects for this situation.Baz, Original Author: Newsgroup Posting Assumptions Create a module and copy all the below functions intoit.To use:… Read More »

95/NT username“Joseph P. Fisher” Original Author: Newsgroup Posting API Declarations Declare Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” (ByVallpBuffer As String, nSize As Long) As Long Code gsUserId = ClipNull(GetUser()) Function GetUser() As String  Dim lpUserID As String  Dim nBuffer As Long  Dim Ret As Long    lpUserID = String(25, 0)  nBuffer = 25  Ret = GetUserName(lpUserID, nBuffer)  If Ret Then  GetUser$ = lpUserID$  End IfEnd Function  Function ClipNull(InString As String)… Read More »

A MUST HAVE PROGRAM ! Very usefull.The IconAlbum is a collection-book (album) where you can store all your icons and view them at the same time. You can add, delete, move, save icons, searchfor icons, make directories to store them in. Very handy when you’re looking for icons you want to use in a program, a toolbar, …Unzipped… Read More »

If you are an Internet Adicted, then this is a must-have for you!It controls your Internet Connection, cheking if your Online every secound.Remember to set Impulse Time and Cost before using the program, so that it can control the costs! Original Author: Pedro Lamas Attachments File Uploaded Size CODE_UPLOAD1217.zip 9/3/2020 3:45:00 PM 5907

A Puzzle. You can add your own pictures. When you have selected the picture and the pieces, you can start puzzling. Click on a piece to move it. When it’s in the right place, it will be fixed to the screen. Right-click to move a piece to the second screen. In the second screen, right-click again to move… Read More »

Get the previous week’s Monday…”Kathleen A. Earley” Original Author: Newsgroup Posting Code Function GetMonDate (CurrentDate)  ‘checks to see if CurrentDate is a Date datatype  If VarType(CurrentDate) <> 7 Then    GetMonDate = Null  Else    Select Case Weekday(CurrentDate)      Case 1   ‘Sunday        GetMonDate = CurrentDate – 6      Case 2   ‘Monday        GetMonDate = CurrentDate      Case 3 To 7 ‘Tuesday..Saturday        GetMonDate = CurrentDate – Weekday(CurrentDate) + 2    End Select  End IfEnd Function