窗体程序的enter事件
本帖最后由 zgblxy 于 2019-6-20 09:52 编辑我的代码是这样的，感觉没有错，请大神指教！
Private Sub txtShoBunruiCD_KeyDown(sender As Object, e As KeyEventArgs) Handles txtShoBunruiCD.KeyDown
If e.KeyCode = Keys.Enter Then
txtShoBunruiCD.Text = vbNullString
MessageBox.Show("1")
ElseIf txtShoBunruiCD.TextLength <> 3 Then
MessageBox.Show("2")
End If
End Sub
我看你的这个方面名称是txtShoBunruiCD_KeyDown
这个你应该绑定的是KeyDown事件吧，并不是enter事件 是的，cellenter在multirow中应该怎么用呢，我用了这个事件，但是我一点击单元格就直接触发了。没有enter键的事了
下边是我的代码，麻烦您帮忙看看，为什么cellenter不行呢。
Private Sub mgrdMeisaiList_CellEnter(ByVal sender As Object, ByVal e As CellEventArgs) Handles mgrdMeisaiList.CellEnter
If Not sender.ContainsFocus Then
Return
End If
Dim shuiru As Double
Dim shuiba As Double
shuiru = mgrdMeisaiList.Rows(0).Cells(3).Value
shuiba = mgrdMeisaiList.Rows(0).Cells(4).Value
If mgrdMeisaiList.Rows(0).Cells(3).Value = vbNull OrElse mgrdMeisaiList.Rows(0).Cells(3).Value = 0 Then
MessageBox.Show("12")
mgrdMeisaiList.Rows(0).Cells(4).Enabled = False
Return
End If
shuiba = shuiru / 1.08
mgrdMeisaiList.Rows(0).Cells(4).Value = shuiba
If mgrdMeisaiList.Rows(0).Cells(4).Value = vbNull OrElse mgrdMeisaiList.Rows(0).Cells(4).Value = 0 Then
MessageBox.Show("1.")
mgrdMeisaiList.Rows(0).Cells(3).Enabled = False
Return
End If
shuiru = shuiba * 0.08
mgrdMeisaiList.Rows(0).Cells(3).Value = shuiru
End Sub 你好，CellEnter事件是切换ActiveCell时，某个Cell变成当前Cell了，会发这个事件。这个和你的理解不太一样。
我建议你先详细描述一下目前是需要什么功能，是需要在什么时候触发。然后我帮你确认解决办法 好的，我是想在点击单元格输入完之后，点击回车，触发之后的事件。 我理解的可能不是很对，我理解的是cellenter事件就是点击回车事件呢。 我就是想我把焦点放到这个单元格上，输入完成，点击回车，确定完。然后就会有后面的操作，计算出数来。
现在我的情况是输入完，点击回车没有反应，但是失去焦点后才会有下边的操作。 好的，明天我会验证一下你这边需要的功能如何实现，然后给你答复 好的，谢谢您
页:
[1]
2