treeview_nodeclick(ByVal Node As MSComctlLib.Node)中用什么方法得到当前鼠标的位置

问题点数：20、回复次数：5Top

1 楼fraser01（王晓栋）回复于 2001-12-24 15:43:18 得分 4

用Node.index    
  Top

2 楼zhengyingen（小笨）回复于 2001-12-24 15:47:06 得分 6

Private   Sub   trvNode_MouseMove(Button   As   Integer,   Shift   As   Integer,   x   As   Single,   y   As   Single)  
  Dim   ndeTarget   As   Node  
  Set   ndeTarget   =   Me.trvNode.HitTest(x,   y)  
  End   SubTop

3 楼yangzhaoyu（老妖）回复于 2001-12-24 15:49:54 得分 10

Dim   sngX   As   Single,   sngY   As   Single  
  Private   Sub   Form_Load()  
          For   i   =   1   To   10  
                  TreeView1.Nodes.Add   ,   ,   ,   Str(i)  
          Next  
                   
  End   Sub  
   
  Private   Sub   TreeView1_MouseDown(Button   As   Integer,   Shift   As   Integer,   x   As   Single,   y   As   Single)  
          sngX   =   x  
          sngY   =   y  
  End   Sub  
   
  Private   Sub   TreeView1_NodeClick(ByVal   Node   As   MSComctlLib.Node)  
          Debug.Print   sngX,   sngY  
  End   Sub  
  Top

4 楼ferrytang（欢迎你）回复于 2001-12-24 15:51:57 得分 0

??????????Top

5 楼small_pig（小猪）回复于 2001-12-24 16:39:37 得分 0

Declare   Function   GetCursorPos   Lib   "user32"   Alias   "GetCursorPos"   (lpPoint   As   POINTAPI)   As   Long似乎更好一些Top

相关问题

• nodeclick
• mscomctllib
• sngx
• treeview
• ndetarget
• trvnode
• sngy
• node
• subprivate
• single

• 帖主：small_pig
• fraser01
• zhengyingen
• yangzhaoyu

• Visual Basic类图书
• Visual Basic类源码下载