Both the VB6 and the .NET TreeView controls expose the HitTest method, but the two versions of the method work in a slightly different manner. When the mouse hovers to the right of a TreeView element – that is, to the right of the last character of the element’s caption – the VB6 version of the HitTest method assumes that the mouse isn’t on any element and therefore returns Nothing. Conversely, in the same situation the VB.NET version of the method returns a reference to the TreeNode object on the same line.
VB Migration Partner doesn’t automatically account for this minor difference. However, you can easily force VB.NET to behave as VB6 by adding a check on the mouse’s X-coordinate, as in:
Dim node As VB6Node = TreeView1.HitTest(x,y)
If node IsNot Nothing AndAlso Me.TextWidth(node.Text) < x Then node = Nothing
You typically add the extra statement by means of an InsertStatement pragma, as in this VB6 code:
Private Sub TreeView1_MouseMove(Button As Integer, Shift As Integer, _
x As Single, y As Single)
Dim node As Node
Set node = TreeView1.HitTest(x, y)
If node Is Nothing Then
lblMessage.Caption = "NULL"
Else
lblMessage.Caption = node.Text
End If
End Sub
An important note: this fix assumes that the TreeView control uses the same font as the parent form; if this isn’t the case you must find an alternative way to calculate the width of the node’s caption.