[VB6] attendere il completamento di una operazione (era: un problema di tempismo)

[rambco]

trwCategorie.SelectedItem = trwCategorie.HitTest(x, y)
trwCategorie.SelectedItem.Expanded = True

io eseguo queste due istruzioni, però il problema sta nel fatto che che alla seconda mi da errore perche nacora non ha finito la prima e non ha settato l'oggetto selecteditem ! Come faccio a dirgli che prima deve finire la prima e poi fare la seconda ?!?!

[xegallo]

intanto sarebbe bello sapere se stai parlando di un treeview e sarebbe anche bello mettere dei titoli comprensibili

[rambco]

non sapevo che titolo mettere sorry cmq si è una treeview

[Wild78]

FAi un loop di doevents fino a che non è definito

[rambco]

ottimo provo

[rambco]

niente va in loop infinito

Private Sub trwCategorie_OLEDragOver(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
  trwCategorie.SelectedItem = trwCategorie.HitTest(x, y)
  DoEvents
  Do Until trwCategorie Is Nothing
  Loop
  trwCategorie.SelectedItem.Expanded = True
End Sub

[rambco]

ho trovato l'errore ecco la soluzione lol

Private Sub trwCategorie_OLEDragOver(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
  If Not (trwCategorie.HitTest(x, y) Is Nothing) Then
    trwCategorie.SelectedItem = trwCategorie.HitTest(x, y)
    trwCategorie.SelectedItem.Expanded = True
  End If
End Sub