msflexgrid中如何让所有的内容都居左显示?

河南阿锋 2004-07-23 10:34:46
在form1_load() 事件中
我用 msflexgrid1.cellalignment=0
只能让一(1,1)一格这样显示,
其它都不变,请问高手如何做?
...全文
522 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
frankwong 2004-07-23
  • 打赏
  • 举报
回复
意思没理解清楚
adamcannibal 2004-07-23
  • 打赏
  • 举报
回复
借花献佛:
FormatString 属性


设置 MSHFlexGrid的列宽、对齐方式、固定行文本和固定列文本。

语法

object.FormatString [= string]

FormatString 属性的语法包含如下部分:

部分 描述
object 一个对象表达式,其值为“应用于”列表中的一个对象。
string 一个字符串表达式,为格式化在行和列中的文本。如在说明中所述。


说明

在设计时,MSHFlexGrid 语法分析和解释 FormatString 来获得如下信息:行和列的数目、行和列标头的文本、列宽和列对齐方式。

FormatString 属性包含由管道字符 (|) 分隔的段。管道字符之间的文本定义一列并且也可能包含特定的对齐字符。这些字符使整个列左对齐(<)、居中(^)或右对齐(>)。另外,根据缺省规定文本被指定给行 0,且文本宽度定义每一列的宽度。

FormatString 属性可能包含一个分号 (;)。这使得字符串的余下部分被解释为行标头和行宽度信息。另外,根据缺省规定文本被指定给列 0,且最长的字符串定义列 0 的宽度。

MSHFlexGrid 创建附加的行和列来驻留由 FormatString 定义的所有字段。如果只有几个字段被指定,附加的行和列不被删除。要删除附加的行和列,设置 Rows 和 Cols 属性。


FormatString 属性示例
下面的示例举例说明 FormatString 属性如何工作。

注意 如果正在使用 MSFlexGrid,用“MSFlexGrid1”代替“MSHFlexGrid1”。

' 设置列标头。
s$ = "<Region |<Product |<Employee |>Sales "
MSHFlexGrid1.FormatString = s$



' 设置行标头(注意开始的分号)。
s$ = ";Name|Address|Telephone|Social Security#"
MSHFlexGrid1.FormatString = s$



' 设置列和行标头。
s$ = "|Name|Address|Telephone|Social Security#"
s$ = s$ + ";|Robert|Jimmy|Bonzo|John Paul"
MSHFlexGrid.FormatString = s$

MSHFlexGrid MSFlexGrid 都适用
mylzw 2004-07-23
  • 打赏
  • 举报
回复
使用
.FixedAlignment (设置指定列的对齐方式)
.ColAlignment (设置指定固定列的对齐方式)

常数 值 描述
flexAlignLeftTop 0 单元格的内容左、顶部对齐。
flexAlignLeftCenter 1 字符串的缺省对齐方式。单元格的内容左、居中对齐。
flexAlignLeftBottom 2 单元格的内容左、底部对齐。
flexAlignCenterTop 3 单元格的内容居中、顶部对齐。
flexAlignCenterCenter 4 单元格的内容居中、居中对齐。
flexAlignCenterBottom 5 单元格的内容居中、底部对齐。
flexAlignRightTop 6 单元格的内容右、顶部对齐。
flexAlignRightCenter 7 数值的缺省对齐方式。单元格的内容右、居中对齐。
flexAlignRightBottom 8 单元格的内容右、底部对齐。
flexAlignGeneral 9 单元格的内容按一般方式进行对齐。字符串按“左、居中”显示,数字按“右、居中”显示。
sinall 2004-07-23
  • 打赏
  • 举报
回复
首先,msflexgrid1.cellalignment=0 只是设置了当前单元格的显示方式
让每个单元格都居左显示,有两种方法
楼上是一种
另外:
With MSHFlexGrid1
.Rows = 5
.Cols = 4
For i = 0 To .Rows - 1
For j = 0 To .Cols - 1
.Row = i
.Col = j
'在这了可以对单元格进行各种操作
.Text = i & "|" & j
.CellAlignment = 1
Next j
Next i
End With
这种方法对于fixed的行和列也有效。
northwolves 2004-07-23
  • 打赏
  • 举报
回复
Private Sub Form_Load()
With MSFlexGrid1
.Rows = 10
.Cols = 5
For j = 0 To 4
.ColAlignment(j) = 1 '--------->as this
For i = 0 To 9
.TextMatrix(i, j) = i * j
Next
Next
End With
End Sub

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧