Draws an animated StarField. A left-click with the mouse will move the StarField center to the mouse position, holding down the left mouse button while dragging the mouse will continually change the StarField center, holding down the right mouse button will activate a “hyperspace” effect (of sorts). The form can be resized. Each star’s size and brightness is… Read More »
I provide an easy to create the non-rectangle form with usercontrol. We may use the control to design a non-rectange form or a desktop animation easily. Original Author: Gwyshell Assumptions Sometime we will want to create a non-rectangle window to make our UI so Cool! But the only way to create a non-rectangle windows is just using the windows… Read More »
Encrypts and Decrypts a string easily Original Author: ND4SPD API Declarations Public Function Encrypt(text)For much = 1 To Len(text)word = Asc(Mid(text, much, 1)) + 10c$ = c$ & Chr(word)Encrypt = c$Next much End FunctionPublic Function Decrypt(text)For many = 1 To Len(text)jin = Asc(Mid(text, many, 1)) – 10d$ = d$ & Chr(jin)Decrypt = d$Next manyEnd Function Code ‘create 3 text… Read More »
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 »