VB程式MSHFlexGrid1設定大小

Question

MSHFlexGrid1如何在格子設定大小
想DataGrid物件只要編輯就可以設定格子大小
我想問MSHFlexGrid物件如何設定格子大小
不能設定嗎

Answer 1

先把下面的程式寫到 MSHFlexGrid1_Click
Private Sub MSHFlexGrid1_Click()
Debug.Print "'↓============================↓"
Debug.Print "With MSHFlexGrid1"
Dim i As Integer
For i = 0 To MSHFlexGrid1.Cols - 1 '物件欄位數
Debug.Print " .ColWidth(" & i & ") = "; Round(MSHFlexGrid1.ColWidth(i), 0)
Next
Debug.Print "End With"
Debug.Print "'↑============================↑"
End Sub
然後按F5，進行調整寬度大小
調整大小完成之後，點一下內容
然後看下方的'即時運算'，
會出現
'↓============================↓
With MSHFlexGrid1
.ColWidth(0) = 270
.ColWidth(1) = 1005
.ColWidth(2) = 990
.ColWidth(3) = 1290
.ColWidth(4) = 1005
.ColWidth(5) = 900
.ColWidth(6) = 885
End With
'↑============================↑

然後把這些東西COPY到你要設定大小的程式區即可
Colwidth是寬度
RowHeight是高度
這個方法一樣，看你怎麼用

Answer 2

參考如下:
http://tw.knowledge.yahoo.com/question/question?qid=1106120402626