Bonjour,
j'ai fais un logiciel pour upload des images sur mon ftp et j'ai fais un système de Drag&Drop avec une picturebox et l'évenement DragEnter pour vérifier l'extension du fichier :
Le code n'est pas très joli/propre mais cela fonctionnait jusqu'à que je me rende compte que en lançant mon application normalement tout va bien mais si je le lance en tant qu'administrateur, il est impossible de glisser un fichier. Et ceci avec n'importe quel fichier --> l'icone e.Effect = DragDropEffects.None. C'est a dire l'icone qui montre que l'on ne peut pas le glisser.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 If e.Data.GetDataPresent(DataFormats.FileDrop) Then Dim chemin As String = e.Data.GetData(DataFormats.FileDrop) If chemin.EndsWith("jpg") Or chemin.EndsWith("png") Or chemin.EndsWith("gif") Or chemin.EndsWith("JPG") Or chemin.EndsWith("PNG") Or chemin.EndsWith("GIF") Or chemin.EndsWith("webm") Or chemin.EndsWith("WEBM") Or chemin.EndsWith("mp3") Or chemin.EndsWith("MP3") Or chemin.EndsWith("txt") Or chemin.EndsWith("TXT") Or chemin.EndsWith("wav") Or chemin.EndsWith("WAV") Or chemin.EndsWith("exe") Or chemin.EndsWith("EXE") Or chemin.EndsWith("rar") Or chemin.EndsWith("RAR") Or chemin.EndsWith("zip") Or chemin.EndsWith("ZIP") Or chemin.EndsWith("7z") Then e.Effect = DragDropEffects.Move HuraTextBox1.Text = chemin Else e.Effect = DragDropEffects.None End If End If
J'ai cherché partout mais je ne vois pas d'où cela peut venir. L'inverse m'aurait semblé logique d'un coté si il manque des droits mais avoir un bug dû au lancement de l'application en tant qu'administrateur... Je ne comprend pas !
Partager