Private _toolbar As GrapeCity.Windows.SpreadSheet.UI.TouchToolbar
Public Sub New()
InitializeComponent()
Me.InitializeTouchStrip()
End Sub
Private Sub GcSpreadSheet1_TouchToolbarOpening(sender As Object, e As GrapeCity.Windows.SpreadSheet.UI.TouchToolbarOpeningEventArgs) Handles GcSpreadSheet1.TouchToolbarOpening
e.Handled = True
_toolbar.Show(e.X - 100, e.Y - 100)
End Sub
Private Sub autoFill_Click(sender As Object, e As EventArgs)
Dim activeView = Me.GcSpreadSheet1.View
If activeView IsNot Nothing Then
activeView.ShowAutoFillIndicator()
End If
End Sub
Private Sub InitializeTouchStrip()
_toolbar = GrapeCity.Windows.SpreadSheet.UI.TouchToolbarFactory.CreateCutCopyPasteToolBar(Me.GcSpreadSheet1.View)
Dim separator = New GrapeCity.Windows.SpreadSheet.UI.ToolbarSeparator()
_toolbar.ToolbarItems.Add(separator)
Dim autoFillButton = GrapeCity.Windows.SpreadSheet.UI.TouchToolbarFactory.CreateDragFillButton()
_toolbar.ToolbarItems.Add(autoFillButton)
AddHandler autoFillButton.Click, AddressOf autoFill_Click
End Sub