ActiveReports.Viewer6 Assembly > DataDynamics.ActiveReports.Toolbar Namespace > ToolsCollection Class : Contains Method |
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
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