ribbon.vb

Public Partial Class Form1
    Inherits TXTextControl.Windows.Forms.Ribbon.RibbonForm
    Public Sub New()
        InitializeComponent()

        AddHandler textControl1.InputPositionChanged, AddressOf TextControl1_InputPositionChanged
        AddHandler textControl1.FrameSelected, AddressOf TextControl1_FrameSelected
        AddHandler textControl1.FrameDeselected, AddressOf TextControl1_FrameDeselected
        AddHandler textControl1.DrawingActivated, AddressOf TextControl1_DrawingActivated
        AddHandler textControl1.DrawingDeselected, AddressOf TextControl1_DrawingDeselected
    End Sub

    Private Sub TextControl1_DrawingDeselected(sender As Object, e As TXTextControl.DataVisualization.DrawingEventArgs)
        If (textControl1.Frames.GetItem() Is Nothing) AndAlso (textControl1.Drawings.GetActivatedItem() Is Nothing) Then
            m_grpFrameTools.Visible = False
        End If
    End Sub

    Private Sub TextControl1_DrawingActivated(sender As Object, e As TXTextControl.DataVisualization.DrawingEventArgs)
        m_grpFrameTools.Visible = True
    End Sub

    Private Sub TextControl1_FrameDeselected(sender As Object, e As TXTextControl.FrameEventArgs)
        If (textControl1.Frames.GetItem() Is Nothing) AndAlso (textControl1.Drawings.GetActivatedItem() Is Nothing) Then
            m_grpFrameTools.Visible = False
        End If
    End Sub

    Private Sub TextControl1_FrameSelected(sender As Object, e As TXTextControl.FrameEventArgs)
        m_grpFrameTools.Visible = True
    End Sub

    Private Sub TextControl1_InputPositionChanged(sender As Object, e As EventArgs)
        m_grpTableTools.Visible = textControl1.Tables.GetItem() IsNot Nothing
    End Sub
End Class