|
2008/05/11(Sun) 12:32:46 編集(投稿者)
>よねKENさま
このコードでやりたいことが実現できました。
Dim tv As TreeView = DirectCast(sender, TreeView) Dim returnValue As TreeViewHitTestInfo returnValue = tv.HitTest(New Point(e.X, e.Y)) Select Case returnValue.Location Case TreeViewHitTestLocations.Label tv.SelectedNode = returnValue.Node End Select
ちなみに、これまで書いていた記述はこれです Dim tv As TreeView = DirectCast(sender, TreeView) Dim k_Node As TreeNode = tv.GetNodeAt(New Point(e.X, e.Y)) If k_Node Is Nothing Then Else tv.SelectedNode = k_Node End If
MSDNの調べ方をもっと勉強します 適切なご教授本当にありがとうございました
|