MSHFlexGrid 读取EXCEL显示字体问题

Question

本帖最后由 bigbillybear 于 2010-05-10 09:28:22 编辑

Answer 1

MSHFlexGrid没用过，try 
MSHG3.font
  

Answer 2

Private Sub Form_Load()
   MSHFlexGrid1.Font.Size = 24
   MSHFlexGrid1.TextMatrix(0, 0) = 100
   MSHFlexGrid1.TextMatrix(1, 1) = 100
   
End Sub

Answer 3

Private Sub Form_Load()
   MSHFlexGrid1.Row = 0
   MSHFlexGrid1.Col = 0
   MSHFlexGrid1.CellFontSize = 24
   MSHFlexGrid1.TextMatrix(0, 0) = 100
   
End Sub

Answer 4

试试这个：
For i = 0 To MSHG3.Rows - 1
    MSHG3.RowHeight(i) = 600
    MSHG3.Row = i
    'MSHG3.CellFontSize = 14
    For j = 0 To MSHG3.Cols - 1
        MSHG3.Col = i
        MSHG3.CellFontSize = 14
    Next
Next

Answer 5

这一段不是和我写得一样吗只是我的是循环啊。所以我很奇怪为啥不行，但是直接FONT.siez是有效的~~~~但是貌似没有中间对齐？？MSHG3.CellAlignment = 4
这句话失效了。

Answer 6

CellFontSize、CellAlignment 只对当前单元有效。
要批量设置，你的循环中必须先正确设置好 Col、Row 属性。

Answer 7

不一样，我比你多了两句
MSHFlexGrid1.Row = 0
MSHFlexGrid1.Col = 0
单元格设置时，要先移动活动单元格到当前位置，然后设置它。用循环也要考虑当前活动单元格。

Answer 8

哎~~实在是晕了、、、、这两天调蒙了。其实我知道这两个是只能针对选中的一格。结果还是忘记定义.row了。顺便请请教下，我读进来的数据，希望表格的滚动条在最下面，显示最新的记录，我看网上有人说用toprow
    MSHG3.ROW = MSHG3.Rows - 1
    MSHG3.TopRow = MSHG3.ROW    
    MSHG3.Redraw = True
但是好象不行，请问这一点该怎么写呢？？？

Answer 9

上面这个写法是对的：Private Sub Form_Load()
    MSHFlexGrid1.Rows = 100
    MSHFlexGrid1.TopRow = 99
End Sub
TopRow 属性 (MSHFlexGrid)
返回或设置 MSHFlexGrid 中最上面的可视行（不是固定行）。
当设置 TopRow 时可以使用的最大行号是总行数减去在 MSHFlexGrid 中可视的行数。如果这一属性被设置为一个更大行号，MSHFlexGrid 将重新把它设置为这个可能的最大值。

Answer 10

哦，我知道是哪错了，我应该把这两句放在MSHG3.Redraw = True后面，谢谢楼上赐教啊~~~~~最近发现很多控件还是一知半解，经常发现，属性语句放的位置不对，造成没能修改过来~~~~