Difference between revisions of "Creating our first button in VB.NET"

From Ribbon Commander Documentation
Jump to: navigation, search
(Creating a button)
(Creating a button)
Line 44: Line 44:
 
End Class
 
End Class
 
</syntaxhighlight>
 
</syntaxhighlight>
 +
* Modify class ThisAddin in ThisAddin.vb as follows
 +
<syntaxhighlight lang="vb" line>
 +
Public Class ThisAddIn
 +
 +
    Private _myCustomUI As MyCustomUI2
 +
 +
    Private Sub ThisAddIn_Startup() Handles Me.Startup
 +
        _myCustomUI = New MyCustomUI2()
 +
    End Sub
 +
 +
    Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown
 +
 +
    End Sub
 +
 +
End Class
 +
</syntaxhighlight>
 +
* Run the add-in. If everything went according to plan a new tab labeled 'My VB Tab' will appear when the application starts
 +
*: [[image:MyFirstVBButton.png|link=]]

Revision as of 19:17, 15 March 2013

Prerequisites

We recommend you go through A 'hello world' VB.NET program before going into this example.

Creating a button

  • Add a new class to your project and name it MyCustomUI2
  • Add the following code to your class
  1. Imports LogismiX.Interop.DynamicRibbonX
  2. Imports LogismiX.DynamicRibbonX.Core
  3.  
  4. Public Class MyCustomUI2
  5.     Dim _customUI As rxCustomUI
  6.  
  7.     Public Sub New()
  8.         ' Instantiate a new rxCustomUI in context 'my_vb_context'
  9.         _customUI = rxCustomUI.create("my_vb_context", "My VB.NET context!")
  10.  
  11.         With _customUI
  12.             ' Clear old state in the context
  13.             .clear()
  14.  
  15.             ' Add a new tab and label it 
  16.             With .ribbon.tabs.add(New rxTab())
  17.                 .label = "My VB Tab"
  18.  
  19.                 ' Add a new group and label it
  20.                 With .groups.add(New rxGroup())
  21.                     .label = "My VB Group"
  22.  
  23.                     'Add a new button an label it
  24.                     With .buttons.add(New rxButton())
  25.                         .label = "My VB Button"
  26.                     End With
  27.  
  28.                 End With
  29.             End With
  30.  
  31.             ' Render the UI
  32.             .refresh()
  33.         End With
  34.     End Sub
  35.  
  36. End Class
  • Modify class ThisAddin in ThisAddin.vb as follows
  1. Public Class ThisAddIn
  2.  
  3.     Private _myCustomUI As MyCustomUI2
  4.  
  5.     Private Sub ThisAddIn_Startup() Handles Me.Startup
  6.         _myCustomUI = New MyCustomUI2()
  7.     End Sub
  8.  
  9.     Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown
  10.  
  11.     End Sub
  12.  
  13. End Class
  • Run the add-in. If everything went according to plan a new tab labeled 'My VB Tab' will appear when the application starts
    MyFirstVBButton.png