Codejock Developer Community : MISSING: TabControl MouseDown, KeyDown/KUp Events http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 13 May 2026 00:08:55 +0000 Sat, 19 Jul 2008 00:35:49 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=11481 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[MISSING: TabControl MouseDown, KeyDown/KUp Events : I&#039;ve found a work-around...]]> http://forum.codejock.com/forum_posts.asp?TID=11481&PID=38572&title=missing-tabcontrol-mousedown-keydown-kup-events#38572 Author: jpbro
Subject: 11481
Posted: 19 July 2008 at 12:35am

I've found a work-around to accomplish the above goal (in case anyone else has a similar requirement).

In a module place this code:


Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Private Const KEY_MASK As Integer = &HFF80

Public Function IsKeyDown(KeyCode As Long) As Boolean
    IsKeyDown = GetKeyState(KeyCode) And KEY_MASK
End Function


Then, on your form with the TabControl:


Private Sub TabControl1_BeforeItemClick(ByVal Item As XtremeSuiteControls.ITabControlItem, Cancel As Variant)
   If Not (IsKeyDown(vbKeyLeft) Or IsKeyDown(vbKeyRight)) Then
      SOMEOTHERCONTROL.SetFocus
   End If
End Sub


Essentially, we are checking to see if either of the cursor keys are being pressed when the TabControl is about to change the selected tab. If so, then the focus will remain on the TabControl (so the user can continue navigating the tabs with the keyboard). If not, we'll assume that the user clicked a tab with the mouse, and then move the focus to some other control where they presumably want to start typing directly.


]]> Sat, 19 Jul 2008 00:35:49 +0000 http://forum.codejock.com/forum_posts.asp?TID=11481&PID=38572&title=missing-tabcontrol-mousedown-keydown-kup-events#38572 <![CDATA[MISSING: TabControl MouseDown, KeyDown/KUp Events : Control has MouseMove and MouseUp,...]]> http://forum.codejock.com/forum_posts.asp?TID=11481&PID=38532&title=missing-tabcontrol-mousedown-keydown-kup-events#38532 Author: jpbro
Subject: 11481
Posted: 18 July 2008 at 12:12am

Control has MouseMove and MouseUp, but not MouseDown. Has neither KeyUp or KeyDown events.

I would like to be able to determine if the user has switched tabs via keyboard or mouse so that I can choose whether to automatically focus a child control (mouse interaction) or not (keyboard interaction). These events would allow me to accomplish this.


]]> Fri, 18 Jul 2008 00:12:57 +0000 http://forum.codejock.com/forum_posts.asp?TID=11481&PID=38532&title=missing-tabcontrol-mousedown-keydown-kup-events#38532