[已解决]关于TextBox问题

dongqing1998

TextBox问题.rar (8.77 KB, 下载次数: 31)

2011-12-24 11:36 上传

点击文件名下载附件

要求：只有第三个文本框(TextBox3)获得焦点时，才显示列表框，离开第三个文本框时列表框自动隐藏。
现在的情况是：用TAB键切换没有问题(TextBox2的Exit事件能够满足要求)，但是用鼠标键选择时，如果选择的不是第三个文本框，比如从第二个文本框直接用鼠标选择第四(或第五或第六)个文本框(即跳过第三个文本框)，也会触发TextBox2的Exit事件(显示列表框)。怎样才能达到如果用鼠标选择的不是第三个文本框，就让列表框自动隐藏？

最佳答案

月排行榜 / 总排行榜

mxg825

2011-12-24 11:53

1. Option Explicit
   
2. Private Sub TextBox3_Enter()
   
3.     Me.ListBox1.Visible = True
   
4. End Sub
   
5. Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
6.   Me.ListBox1.Visible = False
   
7. End Sub
   
8. Private Sub UserForm_Initialize()
   
9.   Dim i As Integer
   
10.   With Me.ListBox1
    
11.     For i = 1 To 10
    
12.       .AddItem "张三" & Format(i, "00")
    
13.     Next
    
14.     .Visible = False
    
15.   End With
    
16. End Sub

复制代码

跳转到最佳答案楼层

mxg825

1. Option Explicit
   
2. Private Sub TextBox3_Enter()
   
3.     Me.ListBox1.Visible = True
   
4. End Sub
   
5. Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
6.   Me.ListBox1.Visible = False
   
7. End Sub
   
8. Private Sub UserForm_Initialize()
   
9.   Dim i As Integer
   
10.   With Me.ListBox1
    
11.     For i = 1 To 10
    
12.       .AddItem "张三" & Format(i, "00")
    
13.     Next
    
14.     .Visible = False
    
15.   End With
    
16. End Sub

复制代码

兰色幻想

这个要用enter事件
Private Sub TextBox3_Enter()
Me.ListBox1.Visible = True
End Sub

dongqing1998

都是最佳，学了一招，兰版就别抢最佳了。

mxg825

这样写。。不知是不是楼主想要的结果！