MshFlexGrid教程
4星 · 超过85%的资源 需积分: 10 65 浏览量
2010-05-11
22:33:32
上传
评论
收藏 56KB DOC 举报 
MSFlexGrid 控件属性及使用方法整理
=================================================
MSFlexGrid 总行数和总列数的定义：
MSFlexGrid1.Rows =5 '规定表格的总行数为 5 行
MSFlexGrid1.Cols = 2 '规定表格的总列数为 2 行
MSFlexGrid 某一单元格的文本内容
MSFlexGrid1.TextMatrix(3, 0) ="网站地址" '定义第 3 行的左边表头文本内容为：“网站地址”
MSFlexGrid1.TextMatrix(3, 2) ="u3u3.com.cn " 定义第 3 行第 2 列的文本内容为：“u3u3.com.cn”
右键选中 MSFlexGrid 的
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton Then
MSFlexGrid1.Row = y / MSFlexGrid1.RowHeight(0) - 0.5
MSFlexGrid1.RowSel = MSFlexGrid1.Row
'右键选种当前行---备用 u3u3：
'MSFlexGrid1.Col = 0
'MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
'右键选种当前单元格---备用 u3u3：
'MSFlexGrid1.Col = x / MSFlexGrid1.ColWidth(0) - 0.5
'MSFlexGrid1.Col = MSFlexGrid1.Col
'Text1.Text = MSFlexGrid1.Text
End If
End Sub
剩余12页未读，继续阅读
评论6
最新资源