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

《MSFlexGrid控件属性及使用方法整理》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、MSFlexGrid控件属性及使用方法整理=================================================MSFlexGrid总行数和总列数的定义：MSFlexGrid1.Rows= 5    '规定表格的总行数为5行MSFlexGrid1.Cols=2   '规定表格的总列数为2行MSFlexGrid某一单元格的文本内容MSFlexGrid1.TextMatrix(3,0)="网站地址" '定义第3行的左边表头文本内容为：“网站地址”MSFlexGrid1.TextMatrix

2、(3,2)="u3u3.com.cn"  定义第3行第2列的文本内容为：“u3u3.com.cn”右键选中MSFlexGrid的PrivateSubMSFlexGrid1_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)IfButton=vbRightButtonThenMSFlexGrid1.Row=y/MSFlexGrid1.RowHeight(0)-0.5MSFlexGrid1.RowSel=MSFlexGrid1.Row'右键选种当

3、前行---备用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.TextEndIfEndSubMSFlexGrid的单元格被点击时的事件PrivateSubMSFlexGrid1_EnterCell()

4、    MSFlexGrid1.CellBackColor=vbBlue     '被点中MSFlexGrid的单元格背景变兰色    MSFlexGrid1.CellForeColor=vbWhite    '字体变白色EndSubMSFlexGrid的单元格失去光标后的事件PrivateSubMSFlexGrid1_LeaveCell()    MSFlexGrid1.CellBackColor=vbWhite    MSFlexGrid1.CellForeColor=vbBlueEndSub使MSFlexG

5、rid的单元格内容可编辑'前提：新建两个text文本框，分别为text1和text1'====================从这里开始，使单元格可以编辑PrivateSubMSFlexGrid1_EnterCell()    MSFlexGrid1.CellBackColor=vbBlue    MSFlexGrid1.CellForeColor=vbWhite    Text1.Text=MSFlexGrid1.Text    Text1.SelStart=0    Text1.SelLength=Len(T

6、ext1.Text)EndSubPrivateSubMSFlexGrid1_LeaveCell()    MSFlexGrid1.CellBackColor=vbWhite    MSFlexGrid1.CellForeColor=vbBlueEndSubPrivateSubText1_Change()    MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,MSFlexGrid1.Col)=Text1.TextEndSubPrivateSubText2_Change()'修改表头 D

7、imr,cAsInteger r=MSFlexGrid1.Row c=0  MSFlexGrid1.TextMatrix(r,0)=Text2.TextEndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)    SelectCaseKeyCode        CasevbKeyLeft,vbKeyRight,vbKeyUp,vbKeyDown            KeyCode=0    EndSelectEndSub'=========

8、===========使单元格可以编辑，到此结束MSFlexGrid选中整行和整列右键点 MSFlexGrid控件，选“属性/样式”，把“合并单元格”选择为：“0-Never”然后运行程序，就会发现MSFlexGrid可以自由选择整行或整列了！ MSFlexGrid插入行PrivateSubCommand1_Click()IfMSFlexGrid1.Rows<2ThenM