When you need to count how many occurrences of a given character are in a string, you might be tempted to go along the “traditional” Visual Basic way: ‘ count

You can add a professional touch to your apps by showing an animated icon when the main form is minimized. To achieve this effect, prepare an array of Image controls,

Ever needed to count how many characters of a given type are in a file? For instance, how many alphabetical characters, or digits, or spaces? You might read each line

The PSet method is much slower than it should actually be, and in most cases you will find it convenient to substitute it with direct calls to the SetPixel API

‘ Return True if the passed State initials are valid’ Example:’ MsgBox CheckUSState(“NY”)Public Function CheckUSState(ByVal State As String) As Boolean If Len(State) = 2 And InStr(“,AL,AK,AZ,AR,CA,CO,CT,DE,DC,FL,GA,HI,ID,IL,IN,I” _ & “A,KS,KY,LA,ME,MD,MA,MI,MN,MS,MO,MT,NE,NV,NH,NJ,NM,NY,NC,ND,OH,OK,OR,P” _

‘ Enable/Disable the Registry editor (RegEdit.exe)’ NOTE: this routine requires the SetRegistryValue,’ DeleteRegistryValue and CheckRegistryValue routines,’ that you can find in the CodeBank under the Windows section.” Example:’ ‘ disable

Private Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal _ lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function ShowWindow Lib “user32” (ByVal hwnd As Long, _ ByVal

‘ Set whether the desktop is visible’ Note: requires the SetRegistryValue, CheckRegistryKey and CreateRegistryKey ‘ routines, you can find them in the CodeBank’ Note 2: the setting does not take

‘ Determine whether the desktop is visible’ Note: requires the GetRegistryValue routine, you can find it in the CodeBank’ Example:’ MsgBox “desktop is visible: ” & GetDesktopVisiblePublic Function GetDesktopVisible() As

‘ Determine whether the IE Favorites menu item is enabled’ Note: requires the GetRegistryValue routine, you can find it in the CodeBank’ Example:’ MsgBox “Favorites menu item is enabled: “

‘ Set whether the IE Favorites menu item is enabled’ Note: requires the SetRegistryValue, CheckRegistryKey and CreateRegistryKey ‘ routines, you can find them in the CodeBank’ Example:’ SetIEFavoritesEnabled FalsePublic Sub

‘ Set the IE’s window title’ Note: requires the SetRegistryValue, CheckRegistryKey and CreateRegistryKey ‘ routines, you can find them in the CodeBank’ Example:’ SetIETitle “MY IE”‘ To set the default

‘ Get the IE’s window title’ Note: requires the GetRegistryValue routine, you can find it in the CodeBank’ Example:’ MsgBox GetIETitlePublic Function GetIETitle() As String Const HKEY_CURRENT_USER = &H80000001 GetIETitle

Private Declare Function ShellExecute Lib “shell32.dll” Alias “ShellExecuteA” _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String,

A simple piece of code can force the checkboxes in a ListView control to behave like radio buttons. Set the ListView

One of the most common things VB programmers do with Excel is load data into an Excel worksheet from a Recordset object. The method I see used most often to

Use this function to read a number decimal symbol from regional settings: Sub Form_Load()Dim DecS As StringDecS = ReadDecimalSymbol()End SubFunction ReadDecimalSymbol() As StringReadDecimalSymbol = Mid$(CStr(1.1), 2, 1)End Function

This routine takes a passed filename as an argument and generates a description for it. It returns the same string as Windows Explorer does when it has been set to

This tip will trim the contents in the input box of an HTML page using java script. Call the Trim function by sending the Textbox element as the parameter. Example:

If you come across a situation where you need to prompt the user to download an XML file with

You might have a table with different PEOs for each Company ID. For example: Table name : tblRankingCid peo———– ———–1 200003311 200006301 200009301 200012312 200003312 200006302 200009302 20001231 To give

This is a SQL trick for spreading out data across months on a single row. It also works with Sybase TSQL. The 1-ABS(SIGN()) function will evaluate to zero for all

The JavaScript Array intrinsic object (and others) can be extended to include user-defined functions in the object definition. These extensions can be placed in a .js file and included in

C++ smart pointers are the idea of using a selector to access a class. This gives the class writer an option to control access to class members and function. For

Creating dynamic Microsoft documents may be useful. The problem is that creating Word documents in ASP will result in an error saying that IIS cannot run out of process components.

This code shows how to get value from the control irrespective of the control type used in the client side Javascript. function GetValue(ControlName,FormName){var Control=document.forms[FormName].elements[ControlName]alert(Control.type) switch(Control.type) { case “select-one”: case “select-multiple”: