2024年6月11日发(作者：)

MSFlexGrid控件属性及使用方法整理

=================================================

MSFlexGrid总行数和总列数的定义：

= 5 '规定表格的总行数为5行

= 2 '规定表格的总列数为2行

MSFlexGrid某一单元格的文本内容

trix(3, 0) ="网站地址" '定义第3行的左边表头文本内容为：“网站地址”

trix(3, 2) =" " 定义第3行第2列的文本内容为：“”

右键选中MSFlexGrid的

Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

If Button = vbRightButton Then

= y / ght(0) - 0.5

=

'右键选种当前行---备用u3u3：

' = 0

' = - 1

'右键选种当前单元格---备用u3u3：

' = x / th(0) - 0.5

' =

' =

End If

End Sub

MSFlexGrid的单元格被点击时的事件

Private Sub MSFlexGrid1_EnterCell()

ckColor = vbBlue '被点中

MSFlexGrid

的单元格背景变兰色

reColor = vbWhite '字体变白色

End Sub

MSFlexGrid的单元格失去光标后的事件

Private Sub MSFlexGrid1_LeaveCell()

ckColor = vbWhite

reColor = vbBlue

End Sub

使MSFlexGrid的单元格内容可编辑

'前提：新建两个text文本框，分别为text1和text1

'====================从这里开始，使单元格可以编辑

Private Sub MSFlexGrid1_EnterCell()

ckColor = vbBlue

reColor = vbWhite

=

rt = 0

gth = Len()

End Sub

Private Sub MSFlexGrid1_LeaveCell()

ckColor = vbWhite

reColor = vbBlue