Manages the viewer's toolbar properties.
Object Model
Syntax
| Visual Basic (Declaration) | |
|---|
Public NotInheritable Class ToolbarObject |
| C# | |
|---|
public sealed class ToolbarObject |
Example
| C# | Copy Code |
|---|
private void arv_Load(object
sender, System.EventArgs e)
{
//run a report and display it in the viewer
rptDD rpt = new rptDD();
rpt.Run();
arv.Document = rpt.Document;
//create an array of tools
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;
//create a context menu
System.Windows.Forms.ContextMenu cm = new ContextMenu();
cm.MenuItems.Add("Hide");
//create a font
System.Drawing.Font f = new Font("Times New Roman", 12);
//create a toolbar
DataDynamics.ActiveReports.Viewer.ToolbarObject t = new DataDynamics.ActiveReports.Viewer.ToolbarObject(arv);
t.ContextMenu = cm;
t.DisplayToolTips = true;
t.Enabled = true;
t.Font = f;
//create an imagelist
ImageList i = new ImageList();
i.Images.Add(Image.FromFile("c:\\icons\\Open16x16.ico"));
i.Images.Add(Image.FromFile("c:\\icons\\Save16x16.ico"));
t.Images = i;
t.Tools.AddRange(arr);
t.Visible = true;
} |
| Visual Basic | Copy Code |
|---|
Private Sub arv_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles arv.Load
Dim rpt As New rptDD()
rpt.Run()
arv.Document = rpt.Document
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 cm As New ContextMenu()
cm.MenuItems.Add("Hide")
Dim f As New Font("Times New Roman", 12)
Dim t As New DataDynamics.ActiveReports.Viewer.ToolbarObject(arv)
t.ContextMenu = cm
t.DisplayToolTips = True
t.Enabled = True
t.Font = f
Dim i As New ImageList
i.Images.Add(Image.FromFile("c:\icons\Open16x16.ico"))
i.Images.Add(Image.FromFile("c:\icons\Save16x16.ico"))
t.Images = i
t.Tools.AddRange(arr)
t.Visible = True
End Sub |
Inheritance Hierarchy
Requirements
Target Platforms: Windows 98, Windows NT 4.0, Windows Millennium Edition, Windows 2000, Windows XP Home Edition, Windows XP Professional, Windows Server 2003 family
See Also