Private Sub Tree1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = vbRightButton Then MsgBox Tree1.SelectedItem.Text If Button = vbRightButton And InStr(1, Tree1.SelectedItem.Key, "C") = 0 And InStr(1, Tree1.SelectedItem.Key, "F") > 0 Then Form5.Show vbModal Form5.Text1 = Tree1.SelectedItem.Text Form5.Combo1.Text = Replace(Tree1.Nodes(Tree1.SelectedItem.Index + 1).Text, "Codecs: ", "") Form5.Text2.Text = Tree1.SelectedItem.Tag End If
Tree1 c'est mon treeview, et bizarrement le msgbox me donne la bonne valeur mais pas le textbox ni le reste d'ailleur
|