我遇到一个涉及LostFocus事件的过程。
当光标从特定文本框中失去焦点时，我只是将焦点重新放回到该框中。
我的问题是将焦点移走足够长的时间，以使用户单击注销按钮。有没有办法拦截LostFocus事件足够长的时间以允许用户单击注销按钮？
如何延迟VB6中的LostFocus事件
•
问答
jia654112637 回答：如何延迟VB6中的LostFocus事件
很明显，我不知道这里的全局。但是，仅遵循您所说的，技巧就可以了。实际上，事件会短暂延迟，从而允许单击按钮：
aws_pipeline结合使用library(dplyr)
library(tidyr)
library(stringr)
df1 %>%
group_by(Frequency) %>%
summarise(Sample_Set = first(Sample_Set),Probability = sum(Probability)) %>%
mutate(Sample_Set = str_c('Sample',Sample_Set)) %>%
complete(Frequency,Sample_Set = str_c("Sample",1:4),fill = list(Probability = 0)) %>%
pivot_wider(names_from = Sample_Set,values_from = Probability,values_fill = list(Probability = 0))
# A tibble: 3 x 5
# Frequency Sample1 Sample2 Sample3 Sample4
# <dbl> <dbl> <dbl> <dbl> <dbl>
#1 1 0.5 0 0 0
#2 2 0 0.25 0 0
#3 3 0 0 0 0.25
和窗体边界之外的另一个控件，您可以实现这一目标。
Timer在此示例中，Private Sub Text1_LostFocus()
Combo1.SetFocus
ReturnFocusTimer.Enabled = True
End Sub
Private Sub ReturnFocusTimer_Timer()
ReturnFocusTimer.Enabled = False
Text1.SetFocus
End Sub
的位置超出了表单的底部。您可以将Combo1间隔控制到所需的时间。