Thread: Visual BASIC Syntax check for .NET addin

Can any of you C# experts help translate the syntax of this code snippet into a Visual Basic call....it's from the example code. Apologies if this is elemental!

Thanks!

Code:

      StreetDeck.Panel btnShowOverlay = (StreetDeck.Panel) module.CreatePanel(StreetDeck.enumCreatePanelType.eCPTButton, "BUTTON.LISTITEM_HIGH", 
                                           "ShowOverlay", //This is the function name that will be given back to us in any OnExec call and for all intents and purposes is the name of this panel 
                                           app.GetSystemMetric(StreetDeck.enumSystemMetrics.eSMGenericModuleClientX),
                                           app.GetSystemMetric(StreetDeck.enumSystemMetrics.eSMGenericModuleClientY),
                                           200, 200);

Pogi,

Thanks for your help. Still not toggling the screen.

If I create the .dll (which I am) and place it in the addins directory, do I need to do anything within StreetDeck other than create the script project as outlined in the tutorial, which creates the GUID and GUID directory to actually have the addin 'run'? In other words, should I create a superficial script overlay within StreetDeck to kickstart the addin? It seems in the Com++ example that is the case. Again, apologies for simple questions...

The fact that StreetDeck indicates that my DigMod is 'stopped' is the root of my question.

Thanks any and all for wisdom...I am sure it will help others.

Got it running...I had a problem within Visual Studio where I had declared a 'root namespace' on the application tab within Studio for this application, which basically prefixes to the Namespace given within the .vb file...e.g. instead of PDAKey.Class, the build was PDAKey.PDAKey.Class as I had used the root namespace field. I left that blank and I was then able to link to the dll as an exposed object properly.

Also, no need to do anything in script overlay to get the addin to load and execute On_Create as I was suspecting.

For those interested...below is the simple 'Example1' that Chuck wrote in C# transposed into Visual BASIC 2005.

Code:

Imports System.Runtime.InteropServices
Imports System.Diagnostics


Namespace StreetDeckVBAddin

    <GuidAttribute("0304F473-515A-45ab-BE2E-E93419F21CB8"), ProgId("StreetDeckVBAddin.Class1")> _
    Public Class Class1
        Implements StreetDeck.IDualStreetDeckAddin

        Public app As StreetDeck.StreetDeckApp
        Dim MyModule As StreetDeck.ScriptModule
        Dim overlay As StreetDeck.ScriptOverlay
        Dim btnShowOverlay As StreetDeck.Panel

        Public Sub OnConnection(ByVal Application As Object, ByVal eConnectMode As StreetDeck.enumAddinConnectMode) Implements StreetDeck.IDualStreetDeckAddin.OnConnection
            app = Application                       ' setup local reference to Object
            MyModule = app.CreateModule("ModuleName")

            btnShowOverlay = MyModule.CreatePanel(StreetDeck.enumCreatePanelType.eCPTButton, _
            "BUTTON.LISTITEM_HIGH", "ShowOverlay", _
            app.GetSystemMetric(StreetDeck.enumSystemMetrics.eSMGenericModuleClientX), _
            app.GetSystemMetric(StreetDeck.enumSystemMetrics.eSMGenericModuleClientY), _
            200, 200)

            btnShowOverlay.Caption = "Show Overlay"
            overlay = app.CreateOverlay("OverlayTest")

            ' Register for events
            AddHandler MyModule.OnExec, AddressOf module_OnExec

        End Sub


        Public Sub OnDisconnect() Implements StreetDeck.IDualStreetDeckAddin.OnDisconnect
            RemoveHandler MyModule.OnExec, AddressOf module_OnExec
        End Sub

        Public Function module_OnExec(ByVal Description As String, ByVal eEM As StreetDeck.enumExecMessage, ByVal wParam As Int32) As Boolean
            If (Description = "ShowOverlay") Then
                If (eEM = StreetDeck.enumExecMessage.eEMSelect) Then
                    overlay.Visible = Not (overlay.Visible)
                    overlay.MsgBox("Overlay Visibility Changed!", "Button Clicked")
                    Return True
                End If
            End If
            Return False
        End Function



    End Class

End Namespace

I first wrote this using the free 'Express' version of Visual BASIC, which is good enough except it does not allow you to run an external program (StreetDeck) for debugging purposes. I downloaded the 90 day trial of Visual Studio, which allowed me to trace through the execution of the .dll and find a couple of bugs/issues -- a really neat capability not available in the Express version.

At any rate, I hope the above snippet helps those of you looking to write something in Visual BASIC as a .NET addin - I have learned a lot about object oriented programming and will now move on to creating a 'real' app.