单元格换行

收藏

vb6 spread8 中单元格大于宽度时自动换行。

iceman · iceman

回复 1楼zhaoyuanxu的帖子

请通过以下代码测试：

fpSpread1.Col = 2
fpSpread1.Row = 3
' Define cell type as static
fpSpread1.CellType = CellTypeStaticText
' Provide text for the specified cell
fpSpread1.Text = "Select one of the following"
' Set the text to wrap to multiple lines
fpSpread1.TypeTextWordWrap = True
' Set vertical alignment to center
fpSpread1.TypeVAlign = TypeVAlignCenter
' Set horizontal alignment to center
fpSpread1.TypeHAlign = TypeHAlignCenter
' Set row height of specified row
fpSpread1.RowHeight(3) = 38
' Set column width of specified column
fpSpread1.ColWidth(2) = 9

复制代码

zhaoruiheng · zhaoruiheng

回复 1楼zhaoyuanxu的帖子

请通过以下代码测试：
[code]
fpSpread1.Col = 2
fp......
iceman 发表于 2014-8-6 16:28:00

请问，可以设置单个单元格的自动换行吗？

iceman · iceman

回复 3楼zhaoruiheng的帖子

如果您使用的是 ASP.NET 平台 spread 可以通过 TextCellType 来实现：

FarPoint.Web.Spread.TextCellType tcell = new FarPoint.Web.Spread.TextCellType();
string Str;
Str = "测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试";
tcell.AllowWrap = true;
tcell.Size = 90;
FpSpread1.ActiveSheetView.Cells[0, 0].CellType = tcell;
FpSpread1.ActiveSheetView.SetValue(0, 1, Str);
FpSpread1.Sheets[0].Columns[0].Width = 120;
FpSpread1.Sheets[0].Rows[0].Height = 120;

复制代码

zhaoruiheng · zhaoruiheng

回复 4楼iceman的帖子

winform,可以吗？好像是可以，那天好像已经完成了这一部分。
foreach (CellRange cellRange in cellRanges)
         {//循环多个选中区域中的每个选中域
            CellRange range = GetActualCellRange(cellRange, sheet.RowCount, sheet.ColumnCount);//获取每个域的确切范围
            for (int i = 0; i < range.RowCount; i++)
            {//循环行
                  for (int j = 0; j < range.ColumnCount; j++)
                  {//循环列
                     if (sheet.Cells[i + range.Row, j + range.Column].CellType is TextCellType)
                     {//如果单元格类型是文本类型，则设置其自动换行
                        tct = sheet.Cells[i + range.Row, j + range.Column].CellType as TextCellType;
                        tct.WordWrap = true;
                        sheet.Cells[i + range.Row, j + range.Column].CellType = tct;
                     }
                  }
            }
         }

iceman · iceman

回复 5楼zhaoruiheng的帖子

实现方法如下：

FarPoint.Win.Spread.CellType.TextCellType txt = new FarPoint.Win.Spread.CellType.TextCellType();
txt.Multiline = true;
txt.WordWrap = true;
fpSpread1.Sheets[0].Cells[0, 0].CellType = txt;
fpSpread1.Sheets[0].Cells[0, 0].Text = "测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试";
this.fpSpread1.Sheets[0].Rows[0].Height = this.fpSpread1.Sheets[0].Rows[0].GetPreferredHeight();

复制代码

zhaoruiheng · zhaoruiheng

回复 6楼iceman的帖子

谢谢！

iceman · iceman

回复 7楼zhaoruiheng的帖子

客气了

		自动登录	找回密码
密码			立即注册

[已处理] 单元格换行

7 个回复

活字格认证

微信认证勋章

元老葡萄