This is an example of using DX7 DirectPlay4. Program allows you to connect and play a basic tic tac toe game over ipx, tcp/ip, or modem against another player with the same program installed. This program includes a basic chat program. All of the multiplayer code is done with directplay4. This is a multiplayer tic tac toe game… Read More »
Create a new user and destroy an existing user on a Windows NT domain..When a user iscreated, I set him to be a member of Domain Users while you can specify that he goesinto Domain User, Domain Guests, Domain AdminsHong YAN Original Author: Newsgroup Posting API Declarations ‘Jeff Hong YAN 11/20/96 modified on 4/18/97‘This module shows how to create… Read More »
Tells if a dynamic array has been dimensioned or not.Lu Original Author: Newsgroup Posting Code Function Member(ary$(), text$) On Local Error GoTo MemberExit For i = 1 To UBound(ary$) If text$ = ary$(i) Then subscript = i Exit For End If NextMemberExit: Member = subscript End Function;========================================another possibility;Function ArrayElements(ary$()) elements = 0 On Local Error GoTo MemberExit elements = UBound(ary$)MemberExit: ArrayElements = elementsEnd Function
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 »
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 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 »
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 »
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 »