WinCC中MSFlexGrid控件编程程序.docVIP

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 ThenMSFlexGrid1.Row = y / MSFlexGrid1.RowHeight(0) - 0.5MSFlexGrid1.RowSel = MSFlexGrid1.Row 右键选种当前行---备用u3u3：MSFlexGrid1.Col = 0MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1 右键选种当前单元格---备用u3u3：MSFlexGrid1.Col = x / MSFlexGrid1.ColWidth(0) - 0.5MSFlexGrid1.Col = MSFlexGrid1.ColText1.Text = MSFlexGrid1.TextEnd IfEnd 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 = vbBlueEnd 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 = vbBlueEnd Sub Private Sub Text1_Change()???? MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col) = Text1.TextEnd SubPrivate Sub Text2_Change() 修改表头? Dim r, c As Integer? r = MSFlexGrid1.Row? c = 0?? MSFlexGrid1.TextMatrix(r, 0) = Text2.TextEnd Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)???? Select Case KeyCode???????? Case vbKeyLeft, vbKeyRight, vbKeyUp, vbKeyDown???????????? KeyCode = 0???? End SelectEnd Sub====================使单元格可以编辑，到此结束 MSFlexGrid选中整行和