Solved

combo boxes

Posted on 1998-06-29
3
198 Views
Last Modified: 2010-05-18
I have noticed that using the up/down arrow keys when a combo box is pulled down generates the click event. I want the click event to be generated only if the user clicks on the item with the mouse or presses the ENTER key. How can I overcome this problem?
0
Comment
Question by:brl
  • 2
3 Comments
 
LVL 1

Accepted Solution

by:
royster earned 100 total points
ID: 1464554
Dim ClickFlag As Boolean

Private Sub Combo1_Click()
If ClickFlag = False Then Exit Sub
ClickFlag = False
End Sub

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 40 Or KeyCode = 38 Then Exit Sub
ClickFlag = True
End Sub

0
 
LVL 1

Expert Comment

by:royster
ID: 1464555
This will work better:
Dim ClickFlag As Boolean

Private Sub Combo1_Click()
If ClickFlag = True Then ClickFlag = False: Exit Sub 'reject if arrows used
'enter click code here

End Sub

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
ClickFlag = False
If KeyCode = 40 Or KeyCode = 38 Then ClickFlag = True
If KeyCode = 13 Then Combo1_Click
End Sub

0
 

Author Comment

by:brl
ID: 1464556
royster,

Thank you. I did try it. Seems to do what I want. I appreciate the quick repsonse.

brl.
0

Featured Post

Courses: Start Training Online With Pros, Today

Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

815 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now