Tip Bank

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

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,

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

‘ 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

‘ 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” _

‘ 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

‘ 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

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 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