ActiveReports.Viewer3 Request technical support
Font Property
See Also  Example


Gets or sets the font used to display text on the toolbar.

Syntax

Visual Basic (Declaration) 
Public Property Font As Font
Visual Basic (Usage)Copy Code
Dim instance As ToolbarObject
Dim value As Font
 
instance.Font = value
 
value = instance.Font
C# 
public Font Font {get; set;}

Return Value

A Font value that specifies the font used to display text on the toolbar.

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 an imagelist
   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"));

   //create a toolbar
   DataDynamics.ActiveReports.Toolbar.Toolbar t = new DataDynamics.ActiveReports.Toolbar.Toolbar();
   t.ContextMenu = cm;
   t.DisplayToolTips = true;
   t.Enabled = true;
   t.Font = f;
   t.Images = i;
   t.Parent = arv.Parent;
   t.Tools.AddRange(arr);
   t.Visible = true;
   t.Wrappable = true;    
}
Visual BasicCopy Code
Private Sub arv_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles arv.Load
    'run a report and display it in the viewer
    Dim rpt As New rptDD
    rpt.Run()
    arv.Document = rpt.Document

    'create an array of tools
    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

    'create a context menu
    Dim cm As New ContextMenu
    cm.MenuItems.Add("Hide")

    'create a font
    Dim f As New Font("Times New Roman", 12)

    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"))

    'create a toolbar
    Dim t As New DataDynamics.ActiveReports.Toolbar.Toolbar
    t.ContextMenu = cm
    t.DisplayToolTips = True
    t.Enabled = True
    t.Font = f
    t.Images = i
    t.Parent = arv.Parent
    t.Tools.AddRange(arr)
    t.Visible = True
    t.Wrappable = True
End Sub

See Also