ActiveReports 15 .NET Edition
GrapeCity.ActiveReports.Export.Excel Assembly / GrapeCity.SpreadBuilder.Imaging Namespace / LineInfo Class
Members Example

In This Topic
    LineInfo Class
    In This Topic
    The LineInfo class represents a line on a spreadsheet, and all of its settings.
    Object Model
    LineInfo Class
    Public Class LineInfo 
    public class LineInfo 
    Private void btnSpread_Click(Object sender, System.EventArgs e)
        //Dimension a Workbook and add a sheet to its Sheets collection
        GrapeCity.SpreadBuilder.Workbook sb = new GrapeCity.SpreadBuilder.Workbook();
        //Set up properties and values for columns, rows and cells as desired
        sb.Sheets[0].Name = "Customer Call List";
        sb.Sheets[0].Columns(0).Width = 2 * 1440;
        sb.Sheets[0].Columns(1).Width = 1440;
        sb.Sheets[0].Columns(2).Width = 1440;
        sb.Sheets[0].Rows(0).Height = 1440/4;
        //Header row
        sb.Sheets[0].Cell(0,0).SetValue("Company Name");
        sb.Sheets[0].Cell(0,0).FontBold = true;
        sb.Sheets[0].Cell(0,1).SetValue("Contact Name");
        sb.Sheets[0].Cell(0,1).FontBold = true;
        sb.Sheets[0].Cell(0,2).FontBold = true;
        //First row of Data
        sb.Sheets[0].Cell(1,2).SetValue("(614) 895-3142");
        GrapeCity.SpreadBuilder.Imaging.LineInfo l = new GrapeCity.SpreadBuilder.Imaging.LineInfo();
        l.ColumnLeft = 3; //starting column for the line
        l.Color = System.Drawing.Color.Salmon; //color for the line
        l.ColumnRight = 8; //ending column for the line
        l.dxL = 50;
        l.dxR = 60;
        l.dyB = 80;
        l.dyT = 10;
        l.EndAHLength = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadLengths.Long; //length of the ending arrowhead
        l.EndAHStyle = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadStyles.DoubleEndedOpen; //style of the ending arrowhead
        l.EndAHWidth = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadWidths.Wide; //width of the ending arrowhead
        l.fAuto = true;
        l.iQu = GrapeCity.SpreadBuilder.Imaging.ObjectDirection.UpperLeftToLowerRight; //direction of the line
        l.MoveType = GrapeCity.SpreadBuilder.Imaging.SBFloatingMoveType.MoveSize; //sets whether user will be able to move and/or resize the line
        l.RowBottom = 8; //bottom row for the line
        l.RowTop = 1; //top row for the line
        l.StartAHLength = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadLengths.Long; //length of the starting arrowhead
        l.StartAHStyle = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadStyles.DoubleEndedOpen; //style of the starting arrowhead
        l.StartAHWidth = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadWidths.Wide;
        l.Style = GrapeCity.SpreadBuilder.Imaging.LineStyles.Dash; //style of the line
        l.Weight = 5; //thickness of the line
        //Save the Workbook to an Excel file
        sb.Save (Application.StartupPath + @"\x.xls");
        MessageBox.Show("Your Spreadsheet, " + sb.Sheets[0].Columns(0).OwnerSheet.Name + ", has been saved to " + Application.StartupPath + "\\x.xls");
    Private Sub btnSpread_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpread.Click
        'Dimension a Workbook and add a sheet to its Sheets collection
        Dim sb As New GrapeCity.SpreadBuilder.Workbook
        'Set up properties and values for columns, rows and cells as desired
        With sb.Sheets(0)
            .Name = "Customer Call List"
            .Columns(0).Width = 2 * 1440
            .Columns(1).Width = 1440
            .Columns(2).Width = 1440
            .Rows(0).Height = 1440 / 4
            .Rows(0).AutoSize = False
            'Header row
            .Cell(0, 0).SetValue("Company Name")
            .Cell(0, 0).FontBold = True
            .Cell(0, 1).SetValue("Contact Name")
            .Cell(0, 1).FontBold = True
            .Cell(0, 2).SetValue("Phone")
            .Cell(0, 2).FontBold = True
            'First row of data
            .Cell(1, 0).SetValue("GrapeCity")
            .Cell(1, 1).SetValue("Mortimer")
            .Cell(1, 2).SetValue("(614) 895-3142")
        End With
        Dim l As New GrapeCity.SpreadBuilder.Imaging.LineInfo
        With l
            .ColumnLeft = 3 'starting column for the line
            .Color = System.Drawing.Color.Salmon 'color for the line
            .ColumnRight = 8 'ending column for the line
            .dxL = 50
            .dxR = 60
            .dyB = 80
            .dyT = 10
            .EndAHLength = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadLengths.Long 'length of the ending arrowhead
            .EndAHStyle = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadStyles.DoubleEndedOpen 'style of the ending arrowhead
            .EndAHWidth = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadWidths.Wide 'width of the ending arrowhead
            .fAuto = True
            .iQu = GrapeCity.SpreadBuilder.Imaging.ObjectDirection.UpperLeftToLowerRight 'direction of the line
            .MoveType = GrapeCity.SpreadBuilder.Imaging.SBFloatingMoveType.MoveSize 'sets whether user will be able to move and/or resize the line
            .RowBottom = 8 'bottom row for the line
            .RowTop = 1 'top row for the line
            .StartAHLength = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadLengths.Long 'length of the starting arrowhead
            .StartAHStyle = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadStyles.DoubleEndedOpen 'style of the starting arrowhead
            .StartAHWidth = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadWidths.Wide
            .Style = GrapeCity.SpreadBuilder.Imaging.LineStyles.Dash 'style of the line
            .Weight = 5 'thickness of the line
        End With
        'Save the Workbook to an Excel file
        sb.Save(Application.StartupPath & "\x.xls")
        MessageBox.Show("Your Spreadsheet, " & sb.Sheets(0).Columns(0).OwnerSheet.Name & ", has been saved to " & Application.StartupPath & "\x.xls")
    End Sub
    Inheritance Hierarchy


    See Also