奇怪的现象，关于控件Cell的光标位置

收藏

我想做的效果是，按tab键活着鼠标点到该单元格的时候，那么就实现把该单元格的内容从右往左选中。
代码如下：
Private Sub dw_振込入金取込_EditingControlShowing(ByVal sender As System.Object, ByVal e As GrapeCity.Win.MultiRow.EditingControlShowingEventArgs) Handles dw_振込入金取込.EditingControlShowing
      Dim t As TextBox = TryCast(e.Control, TextBox)
      If t IsNot Nothing Then
         If Not t.IsHandleCreated Then
            t.CreateControl()
         End If
         t.BeginInvoke(New System.Action(AddressOf Me.SetMousePos))
      End If
End Sub

Private Sub SetMousePos()
      SendKeys.Send("{END}")
      SendKeys.Send("+{HOME}")
End Sub

现在的问题是，按Tab键是对了，但是鼠标点击到该单元格的时候，还是跟原先一样，直接点到单元格内容的最右边去了。另外，MultiRow的editmode = editonenter
MultiRow版本：5.0

robert · robert

我想了解下为什么需要这样选择（从右往左选择）？

chenf1980 · chenf1980

嗯，因为单元格内比较窄，而该单元格内从数据库读出来的内容比较长，并且数据库是自动补足了空格，所以鼠标一点进去的时候，结果单元格内空白一片。

chenf1980 · chenf1980

所以客户要求，鼠标点进去的时候，实现从右往左选择

robert · robert

尝试改写一下SetMousePos函数
Private Sub SetMousePos()
      GcMultiRow.Capture = False
      SendKeys.Send("{END}")
      SendKeys.Send("+{HOME}")
End Sub

chenf1980 · chenf1980

果然可以了，这个capture是干嘛用的？

		自动登录	找回密码
密码			立即注册

奇怪的现象，关于控件Cell的光标位置

5 个回复

活字格认证

微信认证勋章