Question

在VB6中，如何实现MSHFlexGrid控件表格的缩放（类似EXCEL中的缩放）？请高手支招，谢谢！

用什么方法可以实现MSHFlexGrid控件里的所有单元格同时实现缩放？
我用下面的方法可以实现，但是速度非常慢。
For i = 1 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Col = i
MSHFlexGrid1.Row = 0
MSHFlexGrid1.Text = i
MSHFlexGrid1.ColWidth(i) = 50 * 放大系数
Next i
For i = 1 To MSHFlexGrid1.Rows - 1
MSHFlexGrid1.Col = 0
MSHFlexGrid1.Row = i
MSHFlexGrid1.Text = i
MSHFlexGrid1.RowHeight(i) = 50 * 放大系数
Next i
请高手解答！

Answer 1

在窗体的resize事件写入以下代码
MSHFlexGrid1.width=me.width-100
MSHFlexGrid1.height=me.height-100
你可以改变后面的100的值，这里只是举例，表格控件便可根据你的窗体大小，自由缩放了！

追问

我用以下的方法可以实现，就是速度非常慢，不适用。
For i = 1 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Col = i
MSHFlexGrid1.Row = 0
MSHFlexGrid1.Text = i
MSHFlexGrid1.ColWidth(i) = 50 * 放大系数
Next i

追答

是的，这样可以同时调整多列或多行的宽度，但是行列较多时，速度大大折扣！不用使用循环语句，直接设置行高和列宽，这样非常非常的快！
MSHFlexGrid1.ColWidth(0) = 50* 放大系数
MSHFlexGrid1.RowHeight(0) = 50* 放大系数

追问

老师您好，非常感谢您的回答，我按照您的方法编了一段，发现只有控件的最上边的一列和最左边的一行有变化，而控件中的单元格大小没有改变，有能同时改变所有单元格大小的解决方法吗？谢谢您！

Answer 2

使用循环可以实现，但是效率太低

试试这样：
MSHFlexGrid1.ColWidth(-1) = 50*放大系数
MSHFlexGrid1.RowHeight(-1) =50*放大系数