ActiveReports 6 Online Help
Contains Method (ToolsCollection)
Example 

The Tool to be located in the collection.
Determines whether the specified toolbar tool is a member of the collection.
Syntax
'Declaration
 
Public Function Contains( _
   ByVal value As Tool _
) As Boolean
public bool Contains( 
   Tool value
)

Parameters

value
The Tool to be located in the collection.

Return Value

A Boolean value. True if the Tool is a member of the collection; otherwise, False.
Example
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.Viewer.ToolbarObject t = new DataDynamics.ActiveReports.Viewer.ToolbarObject(arv);
    t.DisplayToolTips = true;
    t.Images = i;
    t.Tools.AddRange(arr);

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

    rptDD rpt = new rptDD();
    rpt.Run();
    arv.Document = rpt.Document;
}
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.Viewer.ToolbarObject
    t.DisplayToolTips = True
    t.Images = i
    t.Tools.AddRange(arr)

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

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

Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2

See Also

Reference

ToolsCollection Class
ToolsCollection Members

Send Feedback