Copyright: Copyright ® 1995 Focus Systems


Contents

AboutBox

CharCount

Encrypt

InitialCaps

Invert

ListHorzScroll

MakeTransparent

MenuBitmap

MenuCheck

Pause

Replace

Round

StrField

Timer

WordCount

Registration


CharCount

Sub Whatever()

'instanciate UnOmissions object

Dim oUO as New UnOmissions

Dim lResult as Long

'lResult = 4 on this run

lResult = oUO.CharCount("abcabcabcabc", "a", False)

Set oUO = Nothing

End Sub


Encrypt

Sub Whatever()

'instanciate UnOmissions object

Dim oUO as New UnOmissions

Dim sResult as String

'string is encrypted

sResult = oUO.Encrypt("String to encrypt", "Key for encrypting")

'pass encrypted string back to function with same key for decrypting

sResult = oUO.Encrypt(sResult, "Key for encrypting")

Set oUO = Nothing

End Sub


InitialCaps

Sub Whatever()

'instanciate UnOmissions object

Dim oUO as New UnOmissions

Dim sResult as String

'all words are capitalized

sResult = oUO.InitialCaps("the quick brown fox jumped...")

Set oUO = Nothing

End Sub


Invert

Sub Whatever()

'instanciate UnOmissions object

Dim oUO as New UnOmissions

Dim sResult as String

'the string is reversed to "smetsyS sucoF"

sResult = oUO.Invert("Focus Systems")

Set oUO = Nothing

End Sub


Pause

Sub Whatever()

'instanciate UnOmissions object

Dim oUO as New UnOmissions

'program execution stops for 3.257 seconds

oUO.Pause 3257

Set oUO = Nothing

End Sub


Replace

Sub Whatever()

'instanciate UnOmissions object

Dim oUO as New UnOmissions

Dim sResult as String

'sResult receives the string "aXcaXcaXc"

sResult = oUO.Replace("abcabcabc", "b", "X", False)

Set oUO = Nothing

End Sub


Round

Sub Whatever()

'instanciate UnOmissions object

Dim oUO as New UnOmissions

Dim dResult as Double

'dResult receives 100.1235

dResult = oUO.Round(100.12345, 4)

Set oUO = Nothing

End Sub


StrField

Sub Whatever()

'instanciate UnOmissions object

Dim oUO as New UnOmissions

Dim sResult as String

'sResult receives "field3"

sResult = oUO.StrField("field1,field2,field3,field4", 3, ",")

Set oUO = Nothing

End Sub


Timer

Sub Whatever()

'instanciate UnOmissions object

Dim oUO as New UnOmissions

Dim lResult as Long

'turn on "stop watch"

lResult = oUO.Timer(True)

'do some stuff here

'lResult receives number of milliseconds

'expired since "stop watch" was turned on

lResult = oUO.Timer(False)

Set oUO = Nothing

End Sub


WordCount

Sub Whatever()

'instanciate UnOmissions object

Dim oUO as New UnOmissions

Dim lResult as Long

'lResult receives number of words in string (5)

lResult = oUO.WordCount("the quick brown fox jumped...")

Set oUO = Nothing

End Sub


MakeTransparent

Sub Whatever()

'instanciate UnOmissions object

Dim oUO as New UnOmissions

'frmWhatever is the name of a form that contains the PictureBox

'named picWhatever.  Whatever color you set in the BackColor

'property of picWhatever is the color that will be made transparent

'in the image contained in the Picture property of picWhatever.

oUO.MakeTransparent frmWhatever, frmWhatever.picWhatever

Set oUO = Nothing

End Sub


ListHorzScroll

Sub Whatever()

'instanciate UnOmissions object

Dim oUO as New UnOmissions

'frmWhatever is the name of a form that contains the ListBox

'named lstWhatever.  You should fill lstWhatever with all of

' the items BEFORE calling ListHorzScroll.  If there are items

'in the list that are wider than the listbox, a horizontal scroll

'bar will appear allowing full view of the long items.

oUO.ListHorzScroll frmWhatever, frmWhatever.lstWhatever

Set oUO = Nothing

End Sub


MenuCheck

Sub Whatever()

'instanciate UnOmissions object

Dim oUO as New UnOmissions

Dim lMenuPos as Long

Dim lMenuItemPos as Long

lMenuPos = 1

lMenuItemPos = 3

'frmWhatever is the name of the form that contains the menu

'bar.  lMenuPos is the zero-based position of the drop-down

'menu (as shown below) from left to right.  lMenuItemPos is

'the zero-based position of the menu item within the drop-down

'menu from top to bottom (as shown below).  This sample code

'would affect the "Copy" menu item in the figure below.

'picChecked is the name of the picture control that contains the

'image that will be placed to the left of the menu item when

'that menu item is in a "checked" state.  picUnChecked is the

'name of the picture control that contains the image for the "unchecked"

'state.

oUO.MenuCheck frmWhatever, lMenuPos, lMenuItemPos, _

picChecked, picUnChecked

Set oUO = Nothing

End Sub


AboutBox

Sub Whatever()

'instanciate UnOmissions object

Dim oUO as New UnOmissions

Dim sTitlebarText as String

Dim sOtherText as String

sTitlebarText = "This is the titlebar"

sOtherText = "This is the other text"

'frmWhatever is the name of a form that will own the About

'dialog box.  sTitlebarText is the text that will appear in the

'titlebar of the About box.  sOtherText is the text that will

'appear in the client area of the dialog box.

oUO.AboutBox frmWhatever, sTitlebarText, sOtherText

Set oUO = Nothing

End Sub


MenuBitmap

Sub Whatever()

'instanciate UnOmissions object

Dim oUO as New UnOmissions

Dim lMenuPos as Long

Dim lMenuItemPos as Long

lMenuPos = 1

lMenuItemPos = 3

'frmWhatever is the name of the form that contains the menu

'bar.  lMenuPos is the zero-based position of the drop-down

'menu (as shown below) from left to right.  lMenuItemPos is

'the zero-based position of the menu item within the drop-down

'menu from top to bottom (as shown below).  This sample code

'would affect the "Copy" menu item in the figure below.

'picMenu is the name of the picture control that contains the

'image that will replace the menu item.

oUO.MenuBitmap frmWhatever, lMenuPos, lMenuItemPos, picMenu

Set oUO = Nothing

End Sub


Registration

UnOmissions can be registered on Compuserve in the Shareware Registration (GO SWREG) area.  UnOmissions' registration ID is 8071.

If you prefer to mail payment, please use these instructions:

1. Enclose your email address.

2. Enclose $15.00 in U.S. currency.

3. Send to:

Focus Systems

Attn: Cris Williams

3090 Moriah Trails, #105

Memphis, TN  38115

Questions or comments about UnOmissions may be sent to:

     74451,1245 on Compuserve or

     74451.1245@compuserve.com on the Internet