Creating reports and dashboards | Stimulsoft community forum

Code: Select all

С#:
StiPreviewControl stiPreview = new StiPreviewControl();
StiToolBar tb = stiPreview.ToolBar;
StiToolButton btnSave = (tb.Controls["tbSave"] as StiToolButton);
StiToolButton btnExport = (tb.Controls["tbExport"] as StiToolButton);
btnExport.Image = btnSave.Image;

Code: Select all

VB:
Dim stiPreview As New StiPreviewControl
Dim tb As StiToolBar = stiPreview.ToolBar
Dim btnSave As StiToolButton = TryCast(tb.Controls.get_Item("tbSave"),StiToolButton)
Dim btnExport As StiToolButton = TryCast(tb.Controls.get_Item("tbExport"),StiToolButton)
btnExport.Image = btnSave.Image

Code: Select all

C#:
private void CustomPreview()
{
            StiReport report = new StiReport();

            ...

            using (StiPreviewForm form = new StiPreviewForm(report))
            {
                StiPreviewControl stiPreview = form.PreviewControl;
                stiPreview.Close += new EventHandler(stiPreview_Close);
                StiToolBar tb = stiPreview.ToolBar;
                StiToolButton btnSave = (tb.Controls["tbSave"] as StiToolButton);
                StiToolButton btnExport = (tb.Controls["tbExport"] as StiToolButton);
                btnSave.Image = btnExport.Image;
                report.Render();
                form.ShowDialog();
                stiPreview.Close -= new EventHandler(stiPreview_Close);
            }
}

public void stiPreview_Close(object sender, EventArgs e)
{
            ((sender as StiPreviewControl).Parent as StiPreviewForm).Close();
}

Code: Select all

VB:
Private Sub CustomPreview()
    Dim report As New StiReport

    ... 

    Using form As StiPreviewForm = New StiPreviewForm(report)
        Dim stiPreview As StiPreviewControl = form.PreviewControl
        AddHandler stiPreview.Close, New EventHandler(AddressOf Me.stiPreview_Close)
        Dim tb As StiToolBar = stiPreview.ToolBar
        Dim btnSave As StiToolButton = TryCast(tb.Controls.get_Item("tbSave"),StiToolButton)
        Dim btnExport As StiToolButton = TryCast(tb.Controls.get_Item("tbExport"),StiToolButton)
        btnSave.Image = btnExport.Image
        report.Render
        form.ShowDialog
        RemoveHandler stiPreview.Close, New EventHandler(AddressOf Me.stiPreview_Close)
    End Using
End Sub

Public Sub stiPreview_Close(ByVal sender As Object, ByVal e As EventArgs)
    TryCast(TryCast(sender,StiPreviewControl).Parent,Form).Close
End Sub