需要帮助,VBA,正在停止来自另一个私人子项目的私人子事件

时间:2018-07-16 10:28:31

标签: vba excel-vba

我有private sub textbox1_keydown和private sub textbox1_afterupdate。如果即时通讯已填满textbox1,则单击组合框仍将其填充列表。但是,当im完成填满textbox1时,然后按Enter键,组合框将填充一个异常列表。 cmbo4是一个子事件,它根据我在textbox1中输入的内容填充组合框。我的代码在用户表单上

这里是我的代码:

Private sub TextBox1_KeyDown(ByVal KeyCode As_ 
MSForms.ReturnInteger,ByVal Shift As Integer)
If KeyCode=13 Then
ComboBox4.Clear
Call cmbo4
ComboBox4.DropDown
ComboBox4.SetFocus
End If
End Sub

现在我有这个textbox1_afterupdate事件,当用户想要使用鼠标单击下一个组合框而不是通过按Enter时,我添加了此事件以避免我的程序出错。

Private Sub TextBox1_AfterUpdate()
ComboBox4.Clear
Call cmbo4
ComboBox4.DropDown
ComboBox4.SetFocus
End Sub

我的问题是,当用户按下Enter键时,将停止执行textbox1_afterupdate事件,以便我的组合框不会出现异常列表

1 个答案:

答案 0 :(得分:0)

Glide.with(context)
    .load(imgUrl)
    .diskCacheStrategy(DiskCacheStrategy.ALL)
    .error(placeholder)
    .placeholder(placeholder)
    .dontTransform()
    .override(200,200)
    .into(imageView);