在MSHFlexGrid中,如何让文字竖直显示

天地客人 2005-10-17 12:48:00
在MSHFlexGrid中,第一列我是设定的相同合并显示,我还想让他所有文字竖直起来显示,如下:






象上面所示:

MSHFlexGrid1.TextMatrix1, 0) = "基" & vbCrLf & "本" & vbCrLf & "信" & vbCrLf & "息"
...全文
192 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
天地客人 2005-10-17
  • 打赏
  • 举报
回复
最关键就是这个属性:MSHFlexGrid1.WordWrap = True
上官云峰 2005-10-17
  • 打赏
  • 举报
回复
设置列宽,然后"基 本 信 息"
就能实现你需要的
northwolves 2005-10-17
  • 打赏
  • 举报
回复
设置列宽就可以了:(多按几次Command1_Click试试)

Dim a As Integer
Private Sub Command1_Click()
Dim i As Integer
a = a - 100
With MSHFlexGrid1

.AllowUserResizing = flexResizeColumns
.WordWrap = True
.Cols = 3
.Rows = 2
For i = 1 To 10
.AddItem i & vbTab & i ^ 2 & vbTab & "基本信息"
Next
MSHFlexGrid1.WordWrap = True
.RemoveItem 1
For i = 0 To 2
.ColWidth(i) = Array(1000, 1000, a)(i)
Next
.MergeCells = flexMergeRestrictColumns
.MergeCol(2) = True
End With
End Sub

Private Sub Form_Load()
a = 2000
End Sub

1,451

社区成员

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

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