MultiRow的Cell的SelectionStart

单元格是可编辑的，单元格的长度只有10，但是里面的字符串有20个长度。
鼠标点进去后，直接就拉到最右边了。 我想控制，鼠标点进去之后，最多只拉到单元格的长度，最右边的不显示出来。


如图，最左边是1111，结果拉到最右边去了

我们推测你的MultiRow的EditMode属性是EditOnEnter。
就是当Cell获得焦点时，就进入编辑状态。
而且看你的情况，你是想要进入编辑状态之后还把所有文字选中的。

只需要处理GcMultiRow的EditingControlShowing事件，代码如下：

2. Private Sub g_EditingControlShowing(sender As Object, e As EditingControlShowingEventArgs)
3.         Dim t As TextBox = TryCast(e.Control, TextBox)
4.         If t IsNot Nothing Then
5.                 If Not t.IsHandleCreated Then
6.                         t.CreateControl()
7.                 End If
8.                 t.BeginInvoke(New System.Action(Function() Do
9.                         SendKeys.Send("{END}")
10.                         SendKeys.Send("+{HOME}")
12.                 End Function))
13.         End If
14. End Sub

复制代码

C#代码：

3. void g_EditingControlShowing(object sender, EditingControlShowingEventArgs e)
4.         {
5.             TextBox t = e.Control as TextBox;
6.             if (t != null)
7.             {
8.                 if (!t.IsHandleCreated)
9.                 {
10.                     t.CreateControl();
11.                 }        
12.                 t.BeginInvoke(new System.Action(delegate()
13.                 {                  
14.                     SendKeys.Send("{END}");
15.                     SendKeys.Send("+{HOME}");
16.                 }));
18.             }
19.         }

复制代码

语法都通不过。。。

不好意思，vbcode中的确有个错误。:-D

2. Private Sub g_EditingControlShowing(sender As Object, e As EditingControlShowingEventArgs)
3.    Dim t As TextBox = TryCast(e.Control, TextBox)
4.         If t IsNot Nothing Then
5.             If Not t.IsHandleCreated Then
6.                 t.CreateControl()
7.             End If
8.             t.BeginInvoke(New System.Action(Function()
9.                                                 SendKeys.Send("{END}")
10.                                                 SendKeys.Send("+{HOME}")
12.                                             End Function))
13.         End If
15. End Sub

复制代码

奇怪的，你那边是正确的吗？
我这么拷贝后，还是一大堆错误啊

我这的确是可以编译通过的。

你贴出来的错误是没改之前的。 改过之后就没有问题了。:Z

奇怪的，我就是用的你修改之后的啊。又确认了下，就是不行

可能你用的是.net 2.0 不支持上面写的匿名方法。
我改写了一下：

2. Private Sub GcMultiRow1_EditingControlShowing(ByVal sender As System.Object, ByVal e As GrapeCity.Win.MultiRow.EditingControlShowingEventArgs) Handles GcMultiRow1.EditingControlShowing
3.         Dim t As TextBox = TryCast(e.Control, TextBox)
4.         If t IsNot Nothing Then
5.             If Not t.IsHandleCreated Then
6.                 t.CreateControl()
7.             End If
8.             t.BeginInvoke(New Action(AddressOf Me.MoveCursor))
10.         End If
13.     End Sub
15.     Private Sub MoveCursor()
16.         SendKeys.Send("{END}")
17.         SendKeys.Send("+{HOME}")
18.     End Sub

复制代码

Neil,我发现还是不对。
必须要在MultiRow模版里面，加上这么一句话

Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean
              MyBase.ProcessCmdKey(msg, keyData)

    End Function

这样才能实现效果，但是又不能加，因为加了之后，其他地方又出错了。