none
Run As avec Drag & Drop RRS feed

  • Question

  • Bonjour,

    je suis en train de coder une petite application qui va me faciliter la vie de tous les jours.

    Le fonctionnement est assez simple, en gros une seule fenêtre sur laquelle je tape mon mot de passe et ensuite je vais glisser/déposer (drag & drop) mes autres applications (des utilitaires, des raccourcis cmd, ...) afin de les exécuter avec le login et mot de passe tapés dans la même fenêtre plus tôt.

    Pour l'instant j'ai réussi à définir ma Form afin qu'on puisse y glisser/déposer des objets.

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
            Me.AllowDrop = True
    
        End Sub

    Ensuite je récupère le chemin du raccourcis de ce qui a été déposé.

        Private Sub Form1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
    
            If e.Data.GetDataPresent(DataFormats.FileDrop) Then
                e.Effect = DragDropEffects.Copy
            End If
    
        End Sub

    Et après je lance ce qui a été déposé.

    Private Sub Form1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
    
            Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
    
    
            Process.Start(files(0))
    
        End Sub

    Pour l'instant j'arrive à lancer des raccourcis ainsi que des *.exe mais je n'arrive pas à intégrer la fonction Run As.

    Que me conseillez vous ?

    Merci d'avance.

    mardi 18 juin 2013 11:41

Toutes les réponses