Article ID: 241355
Article Last Modified on 7/1/2004
APPLIES TO
- Microsoft Visual Basic 5.0 Learning Edition
- Microsoft Visual Basic 6.0 Learning Edition
- Microsoft Visual Basic 5.0 Professional Edition
- Microsoft Visual Basic 6.0 Professional Edition
- Microsoft Visual Basic 5.0 Enterprise Edition
- Microsoft Visual Basic 6.0 Enterprise Edition
This article was previously published under Q241355
SUMMARY
The default behavior of the MSFlexGrid is to tab directly into and out of the control. This article demonstrates how to tab and move through the cells of the MSFlexGrid control using the Tab key. The ability to edit has also been included, by placing a Textbox over the active cell.
Later in this article there is an example that demonstrates this functionality.
MORE INFORMATION
Step by step example
- Start a new Visual Basic Standard EXE project. Form1 is created by default.
- Site three Textboxes and one MSFlexGrid control on Form1.
Add the following Code to the General Declarations of Form1:
Option Explicit Private UsingMouse As Boolean ' Flag for using the Mouse in the Grid. Private Sub Form_Load() ' Set Control Property Values Text1.TabIndex = 1 Text2.TabIndex = 2 Text2.BorderStyle = 0 Text3.TabIndex = 3 MSFlexGrid1.Cols = 5 MSFlexGrid1.Rows = 5 MSFlexGrid1.TabStop = False End Sub Private Sub Text1_LostFocus() MSFlexGrid1.Col = 1 MSFlexGrid1.Row = 1 End Sub Private Sub Text2_GotFocus() MSFlexGrid1.Text = Text2.Text If MSFlexGrid1.Col >= MSFlexGrid1.Cols Then MSFlexGrid1.Col = 1 ChangeCellText End Sub Private Sub MSFlexGrid1_EnterCell() ' Assign cell value to the textbox Text2.Text = MSFlexGrid1.Text End Sub Private Sub MSFlexGrid1_LeaveCell() ' Assign textbox value to grid MSFlexGrid1.Text = Text2.Text Text2.Text = "" End Sub Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, _ x As Single, y As Single) UsingMouse = True MSFlexGrid1.Text = Text2.Text ChangeCellText End Sub Private Sub Text2_LostFocus() If UsingMouse = True Then UsingMouse = False Exit Sub End If If MSFlexGrid1.Col <= MSFlexGrid1.Cols - 2 Then MSFlexGrid1.Col = MSFlexGrid1.Col + 1 ChangeCellText Else If MSFlexGrid1.Row + 1 < MSFlexGrid1.Rows Then MSFlexGrid1.Row = MSFlexGrid1.Row + 1 MSFlexGrid1.Col = 1 ChangeCellText End If End If End Sub Public Sub ChangeCellText() ' Move Textbox to active cell. Text2.Move MSFlexGrid1.Left + MSFlexGrid1.CellLeft, _ MSFlexGrid1.Top + MSFlexGrid1.CellTop, _ MSFlexGrid1.CellWidth, MSFlexGrid1.CellHeight Text2.SetFocus Text2.ZOrder 0 End Sub
- Run the project. Notice that you are now able to move through all of the cells of the MSFlexGrid. When you reach the end, it will tab to the next control in the tab order.
REFERENCES
For additional information on using the MSFlexGrid and MSHFlexGrid controls, click the article numbers below to view the articles in the Microsoft Knowledge Base:
201197 How To Use a ComboBox to Enter Data into a FlexGrid Control
187834 How To Select and Unselect a Range of Cells in MSFlexGrid
Keywords: kbhowto kbctrl KB241355