Showing results 1 to 6 of 6

Thread: Wie erzeuge ich einen OnlineContainer in VB.net

  1. #1
    Join Date
    29.07.2007
    Posts
    7

    Default Wie erzeuge ich einen OnlineContainer in VB.net

    Wie erzeuge ich einen OnlineContainer in VB.net und wie greife ich auf diese ZenOn Variable in einem Macro zu.

  2. #2

    Default Re: Wie erzeuge ich einen OnlineContainer in VB.net

    Eventuell hilft diesen Thread mit Beispiel in C# auch weiter?

    online container in VSTA

  3. #3
    Join Date
    29.07.2007
    Posts
    7

    Default Re: Wie erzeuge ich einen OnlineContainer in VB.net

    Leider nicht. Ich habe Probleme beim Definieren der Variable ( Beispiel laut Thread). "Dim obOnlineVar As IOnlineVariable". Bekomme die Fehlermeldung "'IOnlineVariable' is ambiguous in the namespace 'zenOn'.

  4. #4

    Default Re: Wie erzeuge ich einen OnlineContainer in VB.net

    funktioniert es so: Dim myOnlineVar As zenOn.IOnlineVariable ?

  5. #5
    Join Date
    29.07.2007
    Posts
    7

    Default Re: Wie erzeuge ich einen OnlineContainer in VB.net

    Nein. Die gleiche Fehlermeldung.

  6. #6
    Join Date
    28.07.2008
    Posts
    64

    Default Re: Wie erzeuge ich einen OnlineContainer in VB.net

    Das sollte gehen:

    Partial Class ThisProject
    
        Dim WithEvents zOLV As zenOn.IOnlineVariable
    
        Private Sub ThisProject_Startup(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles Me.Startup
    
         'get object if already exists
         zOLV = Me.OnlineVariables().Item("MyOLV")
         If zOLV Is Nothing Then
            'if not exitst, create a new OnlineVariable container
             zOLV = Me.OnlineVariables.CreateOnlineVariables("MyOLV")
         End If
         'add variables to the container
         zOLV.Add("Var_int_01")
         zOLV.Add("Var_int_02")
         zOLV.Add("Var_int_03")
         zOLV.Add("Var_int_04")
         'activate 'VariableChange' event
         zOLV.Define()
    
        End Sub
    
        Private Sub ThisProject_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) _ 
    Handles Me.Shutdown
    
            'delete all Variables from Container and
            'deactivate VariableChang' event
            If Not zOLV Is Nothing Then
                OnlineVariables.DeleteOnlineVariables("MyOLV")
                zOLV.Undefine()
            End If
    
        End Sub
    
        'event is fired when a variable value changes
        Private Sub zOLV_VariableChange(ByVal obVar As zenOn.IVariable) Handles zOLV.VariableChange
            System.Diagnostics.Debug.Print(obVar.Name & " " & obVar.get_Value.ToString())
        End Sub
    
    End Class

Similar Threads

  1. Replies: 17
    Last Post: 11th July 2013, 13:08
  2. Replies: 5
    Last Post: 16th July 2009, 14:39

Posting Rules

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •