CONNEXION
  • RetourJeux
    • Sorties
    • Hit Parade
    • Les + populaires
    • Les + attendus
    • Soluces
    • Tous les Jeux
    • Gaming
  • RetourActu Gaming
    • News
    • Astuces
    • Tests
    • Previews
    • Toute l'actu gaming
  • RetourBons plans
    • Bons plans
    • Bons plans Smartphone
    • Bons plans Hardware
    • Bons plans Image et Son
    • Bons plans Amazon
    • Bons plans Cdiscount
    • Bons plans Decathlon
    • Bons plans Fnac
    • Tous les Bons plans
  • RetourJVTech
    • Actus High-Tech
    • Intelligence Artificielle
    • Smartphones
    • Mobilité urbaine
    • Hardware
    • Image et son
    • Tutoriels
    • Tests produits High-Tech
    • Guides d'achat High-Tech
    • JVTech
  • RetourCulture
    • Actus Culture
    • Culture
  • RetourVidéos
    • A la une
    • Gaming Live
    • Vidéos Tests
    • Vidéos Previews
    • Gameplay
    • Trailers
    • Chroniques
    • Replay Web TV
    • Toutes les vidéos
  • RetourForums
    • Hardware PC
    • PS5
    • Switch 2
    • Xbox Series
    • Switch
    • Pokemon pocket
    • FC 25 Ultimate Team
    • League of Legends
    • Tous les Forums
  • PC
  • PS5
  • Xbox Series
  • Switch 2
  • PS4
  • One
  • Switch
  • iOS
  • Android
  • MMO
  • RPG
  • FPS
En ce moment Genshin Impact Valhalla Breath of the wild Animal Crossing GTA 5 Red dead 2
Liste des sujets

[HELP VB.NET] Drag and Drop upload

Pseudo supprimé
Pseudo supprimé 29 septembre 2016 à 02:20:13

Bonjour, j'ai un petit problème, j'ai une classe qui Upload un fichier sur Noelshack, mais il marche que lorsque je clique avec le bouton parcourir et j'ai une autre section qui est un système de Drag and Drop mais celle-ci ne marche pas :/

Voici le code sur mon bouton :

Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Using OFD As New OpenFileDialog
            Dim result As DialogResult = OFD.ShowDialog()
            If result = DialogResult.OK Then
                TextBox1.Text = OFD.FileName
                Using Noel = New Uploader
                    Dim response = Await Noel.UploadFile(OFD.FileName)
                    TextBox2.Text = response.ToString
                    TextBox2.Focus()
                    My.Computer.Clipboard.SetText(TextBox2.Text)
                End Using
            End If
        End Using
    End Sub

Et voici le code de mon DragDrop :

    Private Async Sub PictureBox2_DragDrop(sender As Object, e As DragEventArgs) Handles PictureBox2.DragDrop
        Using Noel = New Uploader
            Dim response = Await Noel.UploadFile(OFD.FileName')
            TextBox2.Text = response.ToString
            TextBox2.Focus()
            My.Computer.Clipboard.SetText(TextBox2.Text)
        End Using

    End Sub

Je me doute que c'est à cause de OFD qui n'est pas déclaré mais je ne veut pas ouvrir un openfiledialog, je veux qu'il s'ajoute et s'upload automatiquement, quelqu'un aurait une petite idée sur comment résoudre cette erreur ?
Merci beaucoup :)

Pseudo supprimé
Pseudo supprimé 29 septembre 2016 à 02:43:13

Je me rappelle plus, mais dans le DragEvent tu aurais pas le fichier en question? Ce qui remplacerait ton OFD.

Pseudo supprimé
Pseudo supprimé 29 septembre 2016 à 02:48:25

Le 29 septembre 2016 à 02:43:13 demonyunther a écrit :
Je me rappelle plus, mais dans le DragEvent tu aurais pas le fichier en question? Ce qui remplacerait ton OFD.

C'est ce que je cherche à faire, uploader le fichier actuel :-(

Pseudo supprimé
Pseudo supprimé 29 septembre 2016 à 02:53:07

Justement dans la variable e DragEventArgs.

Un copie colle de stack overflow :

if (e.Data.GetDataPresent(DataFormats.FileDrop))
{
string[] files = (string[])e.Data.GetData(DataFormats.FileDrop);
foreach (string filePath in files)
{
Console.WriteLine(filePath);
}
}

T'adaptes ca en vb et c'est bon, ça supporte plusieurs fichiers mais tu en as pas besoin toi

Pseudo supprimé
Pseudo supprimé 29 septembre 2016 à 03:16:22

Le 29 septembre 2016 à 02:53:07 demonyunther a écrit :
Justement dans la variable e DragEventArgs.

Un copie colle de stack overflow :

if (e.Data.GetDataPresent(DataFormats.FileDrop))
{
string[] files = (string[])e.Data.GetData(DataFormats.FileDrop);
foreach (string filePath in files)
{
Console.WriteLine(filePath);
}
}

T'adaptes ca en vb et c'est bon, ça supporte plusieurs fichiers mais tu en as pas besoin toi

J'ai essayé :

    Private Async Sub PictureBox2_DragDrop(sender As Object, e As DragEventArgs) Handles PictureBox2.DragDrop
        Dim file As String = e.Data.GetData(DataFormats.FileDrop)(0)
        Using Noel = New NoelShackUploader
            Dim response = Await Noel.UploadFile(e.Data.GetDataPresent(DataFormats.FileDrop))
            TextBox2.Text = response.ToString
            TextBox2.Focus()
            My.Computer.Clipboard.SetText(TextBox2.Text)
        End Using
    End Sub

Mais ça ne marche pas :-(

Pseudo supprimé
Pseudo supprimé 29 septembre 2016 à 11:45:20

Await Noel.UploadFile(e.Data.GetDataPresent(DataFormats.FileDrop))

SI j'en crois le code que je t'ai envoyé, cela permet juste de savoir si les données sont de type FileDrop mais le contenu lui est : string[] files = (string[])e.Data.GetData(DataFormats.FileDrop);
files[0] si tu es sur d'avoir un seul fichier.

Pseudo supprimé
Pseudo supprimé 29 septembre 2016 à 17:31:48

Ça marche pas, ça me saoule en plus je suis sûr que c'est un code tout con [[sticker:p/1kks]]

Pseudo supprimé
Pseudo supprimé 29 septembre 2016 à 17:33:36

Y a pas 36 solutions pour t'aider, soit tu me montres ton projet, soit t'y vas avec le debugger et tu regarde étape par étape pour comprendre ce qu'il se passe.

Pseudo supprimé
Pseudo supprimé 29 septembre 2016 à 17:40:03

Le 29 septembre 2016 à 17:33:36 demonyunther a écrit :
Y a pas 36 solutions pour t'aider, soit tu me montres ton projet, soit t'y vas avec le debugger et tu regarde étape par étape pour comprendre ce qu'il se passe.

Ouais excuse moi, je te montre tout ça :ok:

Pseudo supprimé
Pseudo supprimé 29 septembre 2016 à 18:53:32

Tu pourrais m'envoyer le projet directement s'il n'y a rien de confidentiel, que je regarde dessus et que je te renvois corrigé si je trouve :)

Message édité le 29 septembre 2016 à 18:55:04 par Pseudo supprimé
Pseudo supprimé
Pseudo supprimé 29 septembre 2016 à 19:26:09

Le 29 septembre 2016 à 18:53:32 demonyunther a écrit :
Tu pourrais m'envoyer le projet directement s'il n'y a rien de confidentiel, que je regarde dessus et que je te renvois corrigé si je trouve :)

Yep :ok:

Sous forums
  • Aide à l'achat Mac
  • Internet
  • Macintosh
  • Création de sites web
  • Création de Jeux
  • Linux
  • Programmation
  • Steam Deck
  • Hardware
La vidéo du moment