Question

vb mshflexgrid 请问用代码怎么设置字体，字号！标头字体字号颜色怎么设置，谢谢！

Answer 1

'设置第一列，第一行
 MSFlexGrid1.Row = 0
 MSFlexGrid1.Col = 0
 MSFlexGrid1.CellFontName = "宋体"       '单元格字体
 MSFlexGrid1.RowHeight(0) = 500          '行高
 MSFlexGrid1.ColWidth(0) = 1000          '列宽
 MSFlexGrid1.CellFontSize = 20           '字体大小
 MSFlexGrid1.ForeColorFixed = &HFF&      '标题字体颜色
 MSFlexGrid1.CellForeColor = &HC00000    '单元格字体颜色
 '请参考采纳！谢谢！

追问

好的，谢谢，我试下，做的列车时刻表，要适应不同的屏幕

追答

好，给你一个详细MSHFlexGrid控件说明。

追问

vb 从asscss数据库调出RGB（200，58，57）怎么调用，我用的是文本格式，谢谢

追答

'方法一：数据库中保存 "RGB(200, 58, 57)"
Private Sub Command1_Click()
Dim A As String
A = "RGB(200, 58, 57)"
A = UCase(A) '将小写字母变为大写
If InStr(1, A, "RGB(") > 0 Then
A = Replace(A, "RGB(", "")
A = Replace(A, ")", "")
B = Split(A, ",")
If UBound(B) = 2 Then
Text1.ForeColor = RGB(B(0), B(1), B(2))
End If
End If
End Sub
'方法二:
'建议在数据库中只保存 "200,58,57"
'调用时直接使用 RGB(B(0), B(1), B(2)) 就可以了

追问

vb mshflexgrid 请问这个在中间分隔开，网格线怎么设置，别外合并列怎么设置，谢谢！

Answer 2

Font --普通单元格
FontFixed--标头
--------------------这2个 又有子属性如 Size(大小)。MSHFG.Font.Size=10

ForeColor--普通单元格字体颜色
ForeColorFixed--标头..

其他的，自己研究下..

追问

好的，谢谢，我试下，做的列车时刻表，要适应不同的屏幕