'试试这个,单击右空白你可以自己做 Private Sub grid_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 1 Then If grid.MouseRow = grid.Rows - 1 Then ' If y > grid.CellTop + grid.CellHeight Then Text1.SetFocus '转移焦点 End If End If End If End Sub
Private Sub grid_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
If grid.MouseRow = grid.Rows - 1 Then '
If y > grid.CellTop + grid.CellHeight Then
Text1.SetFocus '转移焦点
End If
End If
End If
End Sub
因为点TITLE和点最后的空白处ROW的值和首行、尾行是相同的,程序里无法区别,况且我觉的并不妨碍用户的操作