Codejock Developer Community : [SOLVED]TabControl HitTest http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 13 May 2026 04:37:23 +0000 Thu, 06 Oct 2016 07:03:07 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=23085 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[[SOLVED]TabControl HitTest : Hello, Change you please code...]]> http://forum.codejock.com/forum_posts.asp?TID=23085&PID=75186&title=solvedtabcontrol-hittest#75186 Author: agontarenko
Subject: 23085
Posted: 06 October 2016 at 7:03am

Hello,

Change you please code as below
Private Sub TabControl1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

Regards,
Artem Gontarenko
]]> Thu, 06 Oct 2016 07:03:07 +0000 http://forum.codejock.com/forum_posts.asp?TID=23085&PID=75186&title=solvedtabcontrol-hittest#75186 <![CDATA[[SOLVED]TabControl HitTest : Hi there,I have strange result...]]> http://forum.codejock.com/forum_posts.asp?TID=23085&PID=74931&title=solvedtabcontrol-hittest#74931 Author: alif98
Subject: 23085
Posted: 03 August 2016 at 9:28am

Hi there,

I have strange result with TabControl HitTest function:

It seems okay with first tabitem

It started to be off on second item


And getting worse



Here's the code that I used on MouseMove
Private Sub TabControl1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
  With TabControl1
    Dim item As TabControlItem
    Set item = TabControl1.HitTest(x, y)
    If Not item Is Nothing Then
      FlatEdit1.Text = item.Caption & vbTab & item.Index
    End If
  End With
End Sub


It seems that I need to offset X and Y by some value but I am not sure how much. Any clue on this issue?

]]> Wed, 03 Aug 2016 09:28:53 +0000 http://forum.codejock.com/forum_posts.asp?TID=23085&PID=74931&title=solvedtabcontrol-hittest#74931