MSFLEXGRID控件里，想在单元格里输入数据，而且要求是：在第二行第一列的位置开始，能够输入数据，输入之后还要求判断回车键有没有按下，如果按下了，就表明这个内容填写了，根据填写的内容然后同一行里其他单元格里填充内容，最后一行填完整了，再换到第二行。麻烦各位了。 -------------------------------------------------------------------------------- 一段利用MsFlexGrid控件作的非常简单的程序，可以输入英文字符和数字，按回车自动右移，支持方向键，可以自动添加行。只用到一个MsFlexGrid控件，没有别的： Private Sub Form_Load() Grid1.Rows = 10 Grid1.Cols = 6 End Sub Private Sub Grid1_KeyDown(KeyCode As Integer, Shift As Integer) Dim X As Long Dim Y As Long Dim L As Long Dim Tmp As String X = Grid1.Col Y = Grid1.Row Select Case KeyCode    Case 13       X = X + 1       If X >= Grid1.Cols Then          X = 1          Y = Y + 1          If Y >= Grid1.Rows Then Grid1.Rows = Grid1.Rows + 1       End If       Grid1.Col = X       Grid1.Row = Y    Case 8       Tmp = Grid1.Text       L = Len(Tmp) - 1       If L > -1 Then Grid1.Text = Left(Tmp, L)    Case Else       Grid1.Text = Grid1.Text & Chr(KeyCode) End Select End Sub 或者 private sub Grid_click() text1.move grid.cellleft+grid.left,grid.top+grid.celltop,grid.cellwidth-30,grid.cellheight-30 text1.zorder 0 end sub private sub text1_keypress(keyacii as integer) if keyascii=13 then grid.text=text1.text text1.visible=false end if end sub

评论