FarPoint.Win.Spread.CellType.BarCodeCellType barc = new FarPoint.Win.Spread.CellType.BarCodeCellType(); barc.AcceptsCheckDigit = true; barc.BarAdjust.X = "10"; barc.BarAdjust.Y = "10"; barc.BarCodePadding.Left = "5"; barc.BarCodePadding.Right = "5"; barc.BarSize.Height = "10"; barc.BarSize.Width = "10"; barc.DisplayCheckDigit = true; barc.DisplayMode = FarPoint.Win.Spread.CellType.BarCodeDisplayMode.Image; barc.FixedLength = 20; barc.Message = true; barc.MessagePosition = FarPoint.Win.Spread.CellType.BarCode.MessagePosition.Center; barc.MessageValue = "Display This Instead of Value"; barc.MinimumHeight = "80"; barc.ModuleSize.Broad = "1"; barc.ModuleSize.Narrow = "2"; barc.Rotation = FarPoint.Win.Spread.CellType.BarCode.Rotation.Rotation0; barc.SubEditor = null; barc.Type = new FarPoint.Win.Spread.CellType.BarCode.UPC(); barc.Unit = FarPoint.Win.Spread.CellType.BarCode.Unit.Inch; fpSpread1.ActiveSheet.Columns[0].Width = 220; fpSpread1.ActiveSheet.Rows[0].Height = 250; fpSpread1.ActiveSheet.Cells[0, 0].CellType = barc; fpSpread1.ActiveSheet.Cells[0, 0].Value = 36000280753;
Dim barc As New FarPoint.Win.Spread.CellType.BarCodeCellType barc.AcceptsCheckDigit = True barc.BarAdjust.X = "10" barc.BarAdjust.Y = "10" barc.BarCodePadding.Left = "5" barc.BarCodePadding.Right = "5" barc.BarSize.Height = "10" barc.BarSize.Width = "10" barc.DisplayCheckDigit = True barc.DisplayMode = FarPoint.Win.Spread.CellType.BarCodeDisplayMode.Image barc.FixedLength = 20 barc.Message = True barc.MessagePosition = FarPoint.Win.Spread.CellType.BarCode.MessagePosition.Center barc.MessageValue = "Display This Instead of Value" barc.MinimumHeight = "80" barc.ModuleSize.Broad = "1" barc.ModuleSize.Narrow = "2" barc.Rotation = FarPoint.Win.Spread.CellType.BarCode.Rotation.Rotation0 barc.SubEditor = Nothing barc.Type = New FarPoint.Win.Spread.CellType.BarCode.UPC barc.Unit = FarPoint.Win.Spread.CellType.BarCode.Unit.Inch fpSpread1.ActiveSheet.Columns(0).Width = 220 fpSpread1.ActiveSheet.Rows(0).Height = 250 fpSpread1.ActiveSheet.Cells(0, 0).CellType = barc fpSpread1.ActiveSheet.Cells(0, 0).Value = 36000280753