All fields in the selected table are processed and the AllowZeroLength property of the fields are set to either True or False, depending on the Status given as the finaal parameter The function returns a boolean value that can be used by the user to determin other operations. Original Author: Killcrazy Inputs strDatabase = Full database pathstrTableName = Name… Read More »

This code will check if a connection is opened to the internet , if not , it will show a messagebox ! easy … i like this way because am a new programmer!!! Original Author: DXB700 Assumptions 1- Add mswinsck.ocx to the form2- Add a command button to the form (Caption = Detect)3- Add a text box to the… Read More »

Search the internet for web pages or files from your VB App.8 common search engines:AltaVista, Excite, HotBot, Infoseek, Lycos, Yahoo, SoftSeek, AudioFindAn easy to use function.You can add as many Search Engines to the Search-engine list as you want, this list contains 8 search-engines. One of my lists contain 24 common search-engines.Use like this:SearchTheWeb Inputbox(“Enter search-words:”,””,””), wAltaVista Original… Read More »

Checks you Microsoft Outlook Inbox for new Mail Items. Original Author: Tim Ford Assumptions Need to set “References” to Microsoft Outlook. Returns The number of new messages Code Dim objOutlook As Outlook.ApplicationDim objMapiName As Outlook.NameSpaceDim intCountUnRead As IntegerPrivate Sub Check_Mail_Click()Set objOutlook = New Outlook.ApplicationSet objMapiName = objOutlook.GetNamespace(“MAPI”) For I = 1 To objMapiName.GetDefaultFolder(olFolderInbox).UnReadItemCount   intCountUnRead = intCountUnRead + 1 Next… Read More »

Connects and Disconnects Network Drives from your System Original Author: MASTER VB PROGRAMMER API Declarations Declare Function WNetConnectionDialog Lib “mpr.dll” (ByVal hwnd As Long, ByVal dwType As Long) As LongDeclare Function WNetDisconnectDialog Lib “mpr.dll” (ByVal hwnd As Long, ByVal dwType As Long) As LongPublic Const RESOURCETYPE_DISK = &H1 Code Private Sub cmdConnect_Click()Dim x As LongIf Index = 0 Thenx… Read More »

Get the current username from Windows Original Author: MAGiC MANiAC^mTo Inputs Dim sStr1$sStr1 = CurUserName() Returns ( The current username from Windows )sStr1 = “MAGiC MANiAC^mTo” Code ‘ Get the current username from Windows’ Coded By MAGiC MANiAC^mTo’ More Examples At: http://home.kabelfoon.nl/~mto/’Declare Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” _ (ByVal lpBuffer As String, nSize As Long) As LongFunction CurUserName$()Dim… Read More »

This is a standard LZSS compression/decompression engine. It is written in VB for learning purposes, and should be converted to C/C++ if it is to be used with large amounts of data. It uses a dictionary compression algorithm (like ZIP,ARJ and others) and works the best on data with a lot of repetitions. Original Author: Jesper Soderberg Inputs sCompData… Read More »

This program test the Visual Basic program you are currently running. As you will see. Original Author: Preston Smith Assumptions You can adjust the dates for Jan 1st 1930, Jan 1st 2029, Jan 1st 00 and Feb 29 or 30 2000. To see if your version is compliant then you should use 1/1/00 for the year 2000, and 2/29/00… Read More »

True window always on top. Like MS toolbar.It floats over any active application is inactive but is still always on top.Allows you to switch between applications and window is still always on top!Much better than Jake McCurry’s lousy Always on top code. Original Author: Liu Yucheng Inputs Window Handle of Window to stay on top. Assumptions Nothing Returns Nothing… Read More »

It automatically makes your form on top until they close or end the program and it is all API free! Original Author: Jake McCurry Code ‘set the timer’s interval to 1Private Sub Timer1_Timer()Form1.ShowForm1.SetFocusEnd Sub