Welcome to the Harris Geospatial product documentation center. Here you will find reference guides, help documents, and product libraries.


Harris Geospatial / Docs Center / Using IDL / Visual Basic 6 Code Sample

IDL

Visual Basic 6 Code Sample

Visual Basic 6 Code Sample

Within Visual Basic 6, select Project > Components, then Browse for the .dll of the wrapper object in order to include the objects definition in the project.

For details about the object parameters, see Sample IDL Object.

Initiation Without Parameters in Visual Basic 6


Use the following code to initialize the object with no parameters.

Private Sub MyRoutine
 
  Dim oFoo As IDLexFoo
  Set oFoo = New IDLexFoo
   
  On Error GoTo ErrorHandler
   
  oFoo.CreateObject 0, 0, 0
   
  ' use object here...
   
  Return
   
  ErrorHandler:
  If Not oFoo Is Nothing Then
  Debug.Print oFoo.GetLastError
  End If
   
End Sub

Initiation with Parameters in Visual Basic 6


Use the following code to initialize the object with its three parameters (a string, a 32-bit long value, and an array which has two rows and three columns, containing 32- bit long values).

Const PARMFLAG_CONST As Integer = &H1
Const PARMFLAG_CONV_MAJORITY As Integer = &H4000
 
Private Sub MyRoutine
 
  Dim oFoo As IDLexFoo
   
  Dim parmStr As String
  Dim parmVal As Long
  Dim parmArr(1, 2) As Long
   
  Dim argc As Long
  Dim argv(2) As Variant
  Dim argpal(2) As Long
   
  parmStr = "I am a string parameter"
  parmVal = 24
  parmArr(0, 0) = 10: parmArr(0, 1) = 11: parmArr(0, 2) = 12
  parmArr(1, 0) = 20: parmArr(1, 1) = 21: parmArr(1, 2) = 22
   
  argc = 3
  argv(0) = parmStr: argpal(0) = PARMFLAG_CONST
  argv(1) = parmVal: argpal(1) = PARMFLAG_CONST
  argv(2) = parmArr: argpal(2) = PARMFLAG_CONST + _PARMFLAG_CONV_MAJORITY
   
  Set oFoo = New IDLexFoo
   
  On Error GoTo ErrorHandler
   
  oFoo.CreateObject argc, argv, argpal
   
  ' use object here...
   
  Return
   
  ErrorHandler:
  If Not oFoo Is Nothing Then
  Debug.Print oFoo.GetLastError
  End If
 
End Sub



© 2017 Exelis Visual Information Solutions, Inc. |  Legal
My Account    |    Buy    |    Contact Us