您所在位置：主题：弱问Grid
ylyl
[专家分：0] 发布于 2010-04-04 09:52:00
text1是row由vscroll1控制 text2是col由vscroll2控制
怎么实现GRID行列的增减
Private Sub Form_Load()
VScroll1.Value = VScroll1.Value + 1
VScroll1.Max = 1
VScroll1.Min = 10000
VScroll2.Value = VScroll1.Value + 1
VScroll2.Max = 1
VScroll2.Min = 10000
End Sub
Private Sub VScroll1_Change()
Text1.Text = VScroll1.Value
VScroll1.Value = MSFlexGrid1.Rows
End Sub
Private Sub VScroll2_Change()
Text2.Text = VScroll2.Value
VScroll2.Value = MSFlexGrid1.Cols
End Sub
请各位帮忙看看怎么做才行？
怎么实现GRID行列的增减
Private Sub Form_Load()
VScroll1.Value = VScroll1.Value + 1
VScroll1.Max = 1
VScroll1.Min = 10000
VScroll2.Value = VScroll1.Value + 1
VScroll2.Max = 1
VScroll2.Min = 10000
End Sub
Private Sub VScroll1_Change()
Text1.Text = VScroll1.Value
VScroll1.Value = MSFlexGrid1.Rows
End Sub
Private Sub VScroll2_Change()
Text2.Text = VScroll2.Value
VScroll2.Value = MSFlexGrid1.Cols
End Sub
请各位帮忙看看怎么做才行？
