Creating reports and dashboards | Stimulsoft community forum

Code: Select all

  Dim ToolboxToolbarService As Stimulsoft.Report.Design.Toolbars.StiToolboxToolbarService = Stimulsoft.Report.Design.Toolbars.StiToolboxToolbarService.GetService
            If (Not ToolboxToolbarService Is Nothing) Then
                'Adding a button'
                Dim btnPrintSetup As New Stimulsoft.Controls.StiToolButton()
                btnPrintSetup.Size = New Size(20, 20)
                btnPrintSetup.Text = "Printer Setup"

                Dim iList As New ImageList()
                iList.Images.Add(New Drawing.Icon("c:\icon.ico"))

                btnPrintSetup.ImageList = iList
                btnPrintSetup.ImageIndex = 0

                Dim printEvent As New System.EventHandler(AddressOf PrinterSetup)
                ToolboxToolbarService.Add(btnPrintSetup, "Default Printer", printEvent)

            End If

Private Sub PrinterSetup(ByVal sender As Object, ByVal e As System.EventArgs)
        MessageBox.Show("check")

    End Sub

Code: Select all

using Stimulsoft.Report.Design.Toolbars;

StiToolboxToolbarService.GetService().AddToolButton("Проверка", new EventHandler(OnButtonClick));

private void OnButtonClick(object sender, EventArgs e)
{
	MessageBox.Show("Test");
}

Code: Select all

Imports StiStandardToolbarService.GetService

AddToolButton("MyButton", New EventHandler(AddressOf Me.OnButtonClick))

Private Sub OnButtonClick(ByVal sender As Object, ByVal e As EventArgs)
      MessageBox.Show("Test")
End Sub