ActiveReports.Viewer3 Request technical support
ToolById Method
See Also  Example


id

ID of the Tool.

Gets the toolbar tool with the specified ID in the toolbar tools collection.

Syntax

Visual Basic (Declaration) 
Public Function ToolById( _
   ByVal id As Integer _
) As Tool
Visual Basic (Usage)Copy Code
Dim instance As ToolsCollection
Dim id As Integer
Dim value As Tool
 
value = instance.ToolById(id)
C# 
public Tool ToolById( 
   int id
)

Parameters

id

ID of the Tool.

Example

C#Copy Code
private void arv_Load(object sender, System.EventArgs e)
{
   DataDynamics.ActiveReports.Toolbar.Tool[] arr = new DataDynamics.ActiveReports.Toolbar.Tool[2];
   DataDynamics.ActiveReports.Toolbar.Button b = new DataDynamics.ActiveReports.Toolbar.Button();
   b.ButtonStyle = DataDynamics.ActiveReports.Toolbar.ButtonStyle.Icon;
   b.Enabled = true;
   b.Id = 777;
   b.ImageIndex = 0;
   b.ToolTip = "Do not click here.";
   b.Visible = true;

   DataDynamics.ActiveReports.Toolbar.CheckButton c = new DataDynamics.ActiveReports.Toolbar.CheckButton();
   c.ButtonStyle = DataDynamics.ActiveReports.Toolbar.ButtonStyle.TextAndIcon;
   c.Id = 888;
   c.ImageIndex = 1;
   c.ToolTip = "Click here.";

   arr[0] = b;
   arr[1] = c;

   System.Windows.Forms.ImageList i = new ImageList();
   i.Images.Add(Image.FromFile("c:\\icons\\Zero Suit.ico"));
   i.Images.Add(Image.FromFile("c:\\icons\\The Other Band.ico"));

   DataDynamics.ActiveReports.Toolbar.Toolbar t = new DataDynamics.ActiveReports.Toolbar.Toolbar();
   t.DisplayToolTips = true;
   t.Images = i;
   t.Parent = arv.Parent;
   t.Tools.AddRange(arr);
   t.Wrappable = true;
   
   t.Tools.Remove(t.Tools.ToolById(888));

   rptDD rpt = new rptDD();
   rpt.Run();
   arv.Document = rpt.Document;
}
Visual BasicCopy Code
Private Sub arv_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles arv.Load
    Dim arr(1) As DataDynamics.ActiveReports.Toolbar.Tool
    Dim b As New DataDynamics.ActiveReports.Toolbar.Button
    b.ButtonStyle = DataDynamics.ActiveReports.Toolbar.ButtonStyle.Icon
    b.Enabled = True
    b.Id = 777
    b.ImageIndex = 0
    b.ToolTip = "Do not click here."
    b.Visible = True

    Dim c As New DataDynamics.ActiveReports.Toolbar.CheckButton
    c.ButtonStyle = DataDynamics.ActiveReports.Toolbar.ButtonStyle.TextAndIcon
    c.Id = 888
    c.ImageIndex = 1
    c.ToolTip = "Click here."

    arr(0) = b
    arr(1) = c

    Dim i As New System.Windows.Forms.ImageList
    i.Images.Add(Image.FromFile("c:\icons\Zero Suit.ico"))
    i.Images.Add(Image.FromFile("c:\icons\The Other Band.ico"))

    Dim t As New DataDynamics.ActiveReports.Toolbar.Toolbar
    t.DisplayToolTips = True
    t.Images = i
    t.Parent = arv.Parent
    t.Tools.AddRange(arr)
    t.Wrappable = True

    t.Tools.Remove(t.Tools.ToolById(888))

    Dim rpt As New rptDD
    rpt.Run()
    arv.Document = rpt.Document
End Sub

See Also