This code makes your form window flash like Aol’s Instant Messanger when it receives a message. Original Author: Ben Doherty Assumptions make a timer and set the interval to 3000. API Declarations private declare function FlashWindow lib “user32” alias “FlashWindow” (ByVal hWnd as long, ByVal bInvert as long) as long Code Private sub timer1_timer()dim nReturnValue as integernReturnValue = FlashWindow(form1.hWnd,… Read More »
The purpose of this code is to put your application in the startup directory, even without putting it in a setup program. Original Author: Tucker Nance Inputs Private Declare Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” (ByVal lpBuffer As String, nSize As Long) As Long Assumptions You should put this code in the Form_Load function of your program, you can… Read More »
Another implementation of LZW compression for compressing VB strings. A 4K dictionary is used as suggested by the algorithm. A binary tree search is used for speeding up dictionary search. It accepts all the 256 characters. *** version 2 (23-Aug-99): bug fixed, performance improved *** Original Author: lcwd Code ‘ Special thanks to Chris Dodge for reporting the bugOption… Read More »
Do you use different user logins in Windows?Tired of having the same StartUp folder just because the users share the same Start Menu?Then this solves your problem! Original Author: Hyperswede Inputs How to use personal startups.1) Add the source code below to a new project.2) Make an exe file.3) Create a shortcut in your StartUp folder that points to… Read More »
This code convert a TXT file to EXE file.When you convert the file start the EXE and the old file will be typed(like TYPE command)This is really great codeNOTE : RUN THE .EXE FROM MS-DOS MODE Original Author: Atanas Matev Assumptions Create a label, a command button and common dialog controlChange the Caption of the button to “Select a… Read More »
This program allows simple desktop access the the Microsoft Word spelling and thesaurus engine using OLE Automation.You can Spell Check, Produce Anangrams, use the Thesaurus and look up the meaning of words. THIS IS A COMPLETE WORKING APPLICATION Original Author: Richard Lowe Assumptions Must have Microsoft Word Installed Code ‘===========================================================================’Start a new project’add a ComboBox named cboInput’add a ListBox… Read More »
Simple function to check if file exists. Detects Normal & Hidden files. Improvement of code from Greg G., and incorporating a suggestion by Larry Rebich. Original Author: Dan Redding – Blue Knot Software Inputs A Valid Pathname as String. Returns Boolean TRUE if file exists at path specified Side Effects Simply returns FALSE if an invalid path is encountered… Read More »
This program lets you send emails with attachments (Using Winsock API – without an OCX). It features a progress bar, multiple attachments support, etc.The Attachment list supports multiple file Drag & Drop.You can drop files from explorer for example, it is very simple and without APIs, supports multiple recipients separated by commas. (good example on how to use… Read More »
Converts the Currency to Text. For Ex: 100.90 is converted as one hundred dollars and ninety cents only. Original Author: Dasari. Ravi Kumar(r&d teamworks) Assumptions Insert a formula field in crystal reports and Paste the Code and replace thecurrencyfield in the code with any reportfield whose datatype is currency orInteger. Returns String Code if right(totext({currencyfield}),2) = ’00’ thenuppercase(left(towords(truncate({currencyfield}),0)+’ ‘… Read More »
To every vb coder who once wished his/her program could easily transfer files across the internet (like ICQ): your dream has come true. These 2 simple functions take care of everything!Features:Toolkit provides both sender and receiver with the option to accept or decline the file transfer.A window with progress bar shows users the transfer completion level.Either user may… Read More »