title image


Smiley Re: Drag & Drop Problem
Damit gehts:Private Sub Tree_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Call p_GetActiveNodeAndIndex(Tree, x, y, l_ActiveNode, Idx)-----------------------------------------------und die zugehörige SubPublic Sub p_GetActiveNodeAndIndex(Contr As Control, MousePosX As Single, MousePosY As Single, ActiveNode As Node, Idx As Integer) '----------------------------------------------------------------------------- 'Liefert den Index des angeklickten Icons zurück) 'und den Index 'Input: Control ' x, y Posisition des Cursors 'Output: Keywort 1. Teil ' Keywert 2. Teil ' Index des Node. Wenn kein Node unter x,Y gefunden, dann Index =0 '------------------------------------------------------------------------------ Set ActiveNode = Contr.HitTest(MousePosX, MousePosY) If ActiveNode Is Nothing Then 'in die Linie geklickt Idx = 0 Else Idx = ActiveNode.Index End IfEnd Subwerden dafür noch mehr Funktionen benötigt z.B. childs an einem Node, SearchNode, set nodeActive,.......dann juergen.bock@gmx.de

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: