Previous IDL Connectivity Bridges: COM Object Creation Next

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

  IDL Online Help (March 06, 2007)