|
Visual Basic (VB and VBA) |
|
Copyright 1999-2001 Christopher Greaves. All rights reserved. Home Page and email to [email protected] |
| If in doubt, record a macro and inspect the entrails! |
Please read the DISCLAIMER.
Here is an INDEX to all the procedures.
You will probably need one copy of my GLOBAL DECLARATIONS.
Public Function strAppInfo()
' Procedure : strAppInfo
' Description: Deliver useful Application information strings
' Typical use - generating a somewhat unique key for the system.
' Copyright: Chris Greaves Inc.
' Inputs: None
' Returns: An accumulated string.
' Assumes: None.
' Side Effects: None
' Tested: By the calls shown below.
Dim intI As Integer
Dim str As String
' Return all valid entries from the app info string
For intI = 651 To 654
On Error GoTo -1: On Error GoTo next1
str = str + WordBasic.[AppInfo$](intI)
next1:
On Error GoTo -1: On Error GoTo 0
Next intI
strAppInfo = str
'Sub TESTstrAppInfo()
' MsgBox strAppInfo
'End Sub
End Function
| We all knew nothing when we started … |
|
Home Page and Contact Information Send email to [email protected]. This page was last updated Thursday, November 15, 2001 |