Text2.Top = Grid1.Top + Grid1.CellTop

            Else

                Text2.Top = Grid1.Top - Grid1.CellTop

            End If

    End Select

End Sub

'通过方向键来控制光标所在单元格中的位置

Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)

     Select Case KeyCode

        Case 37, 38, 39, 40

            Text2.SetFocus

     End Select

End Sub

以上代码是需要用户自己添加的内容，接下来要利用VB6的控件接口向导，将想要的属性、方法和事件添加到自定义控件中。注意必须要选定Rows、Cols属性和grid方法，其他的步骤根据需要去选，或者按照向导默认完成。在完成向导提示内容后，回到代码编辑区，会看到关于Rows、Cols的代码，其中Rows代码勿动，Cols代码修改如下：

'注意！不要删除或修改下列被注释的行！

'MappingInfo=Grid1,Grid1,-1,Cols

Public Property Get Cols() As Long

    Cols = Grid1.Cols

End Property

Public Property Let Cols(ByVal New_Cols As Long)

    Grid1.Cols = New_Cols

    PropertyChanged "Cols"

End Property

'Rows代码参考如下：

'注意！不要删除或修改下列被注释的行！

'MappingInfo=Grid1,Grid1,-1,Rows

Public Property Get Rows() As Long

    Rows = Grid1.Rows

End Property

Public Property Let Rows(ByVal New_Rows As Long)

    Grid1.Rows() = New_Rows

    PropertyChanged "Rows"

End Property

五、文件保存及编译

将以上文件保存，然后通过文件菜单中的编译菜单项编译成UCXgrid.ocx文件，保存到文件加中。在文本框中输入表格的行数和列数，表格自动添加行列；当用户用鼠标点击表格中的任意单元格时，text2文本框会随着鼠标移动，并能把添加在text2中的内容添加在当前单元格中，这样就可以通过改写表格中的数据，来更新数据库相应记录中的数据了。