关于FlexGrid的使用问题。-----可以再加分。

Question

我重新在Form上画了个FlexGrid,
结果是可以的。
但是原来的FlexGrid我设置了一下颜色什么的，就不行了。
该怎么改回来呢？

Answer 1

为了使FlexGrid边框能够随Form的Resize变化,我写了如下语句，
结果导致滚动条失效。
该怎么办？Private Sub Form_Resize()
'MsgBox ("Height:" + Str(Me.Height) + " Width:" + Str(Me.Width))
MSFlexGrid1.Height = Me.Height - 200
MSFlexGrid1.Width = Me.Width - 100
MSFlexGrid1.Top = 0
MSFlexGrid1.Left = 10
End Sub

Answer 2

在load中有如下语句，导致滚动条出现但不可使用。Private Sub Form_Load()MSFlexGrid1.ColWidth(0) = 500
MSFlexGrid1.ColWidth(1) = 2000
MSFlexGrid1.ColWidth(2) = 3000
MSFlexGrid1.ColWidth(3) = 2000
MSFlexGrid1.ColWidth(4) = 1500End Sub

Answer 3

你减的太少了，每个减300就应该看的见。
Private Sub Form_Resize()
××××××××××××××××××××
MSFlexGrid1.Height = Me.Height - 300
MSFlexGrid1.Width = Me.Width - 300
××××××××××××××××××××
End Sub 

Answer 4

好象me.height 和 msflexgrid.height的单位不一样打出来看，me有4000多，flex只有70多。

Answer 5

你的程序中有一些小问题，如下两条的写法应改正
MSFlexGrid1.Height = Me.Height - 200
MSFlexGrid1.Width = Me.Width - 100
正确的写法应该如下
MSFlexGrid1.Height = Me.ScaleHeight - 200
MSFlexGrid1.Width = Me.ScaleWidth - 100
因为窗体的高与宽与窗体内部的可用的高与宽是不同的概念。

Answer 6

打出来后，
me.scaleheight=2.01906
如果
msflexgrid1.height=me.scaleheight * 0.9
就什么表格都看不见了。

Answer 7

解决了。MSFlexGrid1.Height = Me.ScaleHeight - 0.05
MSFlexGrid1.Width = Me.ScaleWidth - 200