combobox或textbox如何实现回车才触发事件

danhanqing · 发表于 2016-7-8 00:39

现在的问题是，用change不行，还没输入完就发触发，想实现输入完后回车再触发，请教老师们如何实现！谢谢！

百度不到去谷歌 · 发表于 2016-7-8 08:21

用keyup事件

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
[A1] = TextBox1
End If
End Sub

复制代码

danhanqing · 发表于 2016-7-8 14:38

百度不到去谷歌发表于 2016-7-8 08:21
用keyup事件

输入完按回车后并未触发呢，不知道错在哪里，再请教！
Private Sub 入库管理_参数1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
MsgBox "输入完成！"
类别 = Me.Controls(页面名称 & "_业务类别1").Value
品类 = Me.Controls(页面名称 & "_品名1").Value
品牌 = Me.Controls(页面名称 & "_规格品牌1").Value
型号 = Me.Controls(页面名称 & "_选项型号1").Value
参数 = Me.Controls(页面名称 & "_参数1").Value
Call 提取单价
Me.Controls(页面名称 & "_单价1").Value = 单价
Me.Controls(页面名称 & "_售价1").Value = 售价
Call 提取单位
Me.Controls(页面名称 & "_单位1").Value = 单位
End If
End Sub

y1983y · 发表于 2019-10-16 10:58

danhanqing 发表于 2016-7-8 14:38
输入完按回车后并未触发呢，不知道错在哪里，再请教！
Private Sub 入库管理_参数1_KeyUp(ByVal KeyCode ...

最后怎么解决的呢？

danhanqing · 发表于 2024-1-18 15:17

Private Sub 物料管理_单位名称_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
With Me.Controls(页面名称 & "_" & "单位名称")
  If Len(Trim(.Value)) > 0 Then
   If KeyCode = vbKeyReturn Then
      Me.Controls(页面名称 & "_" & "详细地址").BackColor = &H80000005
      Me.Controls(页面名称 & "_" & "电话").BackColor = &H80000005
      Me.Controls(页面名称 & "_" & "联系人").BackColor = &H80000005
      Me.Controls(页面名称 & "_" & "联系人").SetFocus
   End If
  End If
End With
End Sub

danhanqing · 发表于 2024-1-18 15:18

y1983y 发表于 2019-10-16 10:58
最后怎么解决的呢？

Private Sub 物料管理_单位名称_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
With Me.Controls(页面名称 & "_" & "单位名称")
  If Len(Trim(.Value)) > 0 Then
   If KeyCode = vbKeyReturn Then
      Me.Controls(页面名称 & "_" & "详细地址").BackColor = &H80000005
      Me.Controls(页面名称 & "_" & "电话").BackColor = &H80000005
      Me.Controls(页面名称 & "_" & "联系人").BackColor = &H80000005
      Me.Controls(页面名称 & "_" & "联系人").SetFocus
   End If
  End If
End With
End Sub

		自动登录	找回密码
密码			免费注册

[求助] combobox或textbox如何实现回车才触发事件