Kod:
Private Sub TreeView1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)
Dim esr As Node
Set esr = TreeView1.HitTest(x, y)
If Not esr Is Nothing Then
esr.Selected = True
End If
End Sub
yalnız unutmadan label edit manuel olacak
sayın mehmet eser kardeş birde buna drag drop uygularsak işin cılkı cıkacak sadece bir formda bir sürü kod olacak ancak birz ara vermek zorundayım sınavım var ona çalışmak zorundayım çalışmaktan sıkıldığım bir arada yapabilirim
birde değişik bir uygulma bu uygulamadada treeview de üzerinde gezdiğiniz kayda tıklamadan formda aynı anda gösteriyor
Kod:
Private Sub TreeView1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)
Dim nodSelected As MSComctlLib.Node
Set nodSelected = Me.TreeView1.SelectedItem
Dim Node2 As Node
Set Node2 = TreeView1.HitTest(x, y)
If Not Node2 Is Nothing Then
Node2.Selected = True
End If
If nodSelected.Key Like "AZ*" Then
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[PERSONELNO] = " & Str(Nz(Mid(nodSelected.Key, 3), 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
rs.Close
Else
End If
End Sub