原创力文档- 1、本文档共12页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
MSFlexGrid控件属性及使用方法
MSFlexGrid控件属性及使用方法整理by u3u3
以下内容由u3u3编写测试成功！转载请注明来自: ================================================= MSFlexGrid总行数和总列数的定义： MSFlexGrid1.Rows =?5???? 规定表格的总行数为5行 MSFlexGrid1.Cols = 2??? 规定表格的总列数为2行
MSFlexGrid某一单元格的文本内容 MSFlexGrid1.TextMatrix(3, 0) =网站地址? 定义第3行的左边表头文本内容为：“网站地址” MSFlexGrid1.TextMatrix(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 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
MSFlexGrid的单元格被点击时的事件 Private Sub MSFlexGrid1_EnterCell() ???? MSFlexGrid1.CellBackColor = vbBlue????? 被点中MSFlexGrid的单元格背景变兰色 ???? MSFlexGrid1.CellForeColor = vbWhite???? 字体变白色 End Sub
MSFlexGrid的单元格失去光标后的事件 Private Sub MSFlexGrid1_LeaveCell() ???? MSFlexGrid1.CellBackColor = vbWhite ???? MSFlexGrid1.CellForeColor = vbBlue End Sub
使MSFlexGrid的单元格内容可编辑 前提：新建两个text文本框，分别为text1和text1 ====================从这里开始，使单元格可以编辑 Private Sub MSFlexGrid1_EnterCell() ???? MSFlexGrid1.CellBackColor = vbBlue ???? MSFlexGrid1.CellForeColor = vbWhite ???? Text1.Text = MSFlexGrid1.Text ???? Text1.SelStart = 0 ???? Text1.SelLength = Len(Text1.Text) End Sub
Private Sub MSFlexGrid1_LeaveCell() ?牋?MSFlexGrid1.CellBackColor = vbWhite 牋牋 MSFlexGrid1.CellForeColor = vbBlue End Sub
Private Sub Text1_Change() 牋牋 MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col) = Text1.Text End Sub Private Sub Text2_Change() 修改表头 ? Dim r, c As Integer ? r = MSFlexGrid1.Row ? c = 0 ?? MSFlexGrid1.TextMatrix(r, 0) = Text2.Text End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) ???? Select Case KeyCode ???????? Case vbKeyLeft, vbKeyRight, vbKeyUp, vbKeyDow
文档评论（0）