Comment faire une image Visual Basic Uploader

Instructions

1. Ajouter un bouton, une zone de texte et une étiquette. Cela peut être fait en trouvant chaque composant à son tour dans la liste des composants sur la gauche; côté de l'écran et de les glisser dans la fenêtre vide dans le concepteur Visual Basic GUI.
   Modifier le texte du bouton pour "Trouver l'image" par la gauche; cliquant sur le bouton et de trouver le "Texte" la propriété dans les propriétés boîte sur le côté inférieur droit de l'écran.
   Changer le nom de la boîte de texte à "ImageBox" en modifiant la "Nom" la propriété dans sa zone de propriété. Changez la propriété text de l'étiquette "Image." La zone de texte tiendra l'emplacement de l'image et le bouton fera apparaître un navigateur de fichiers pour permettre à l'utilisateur de sélectionner une image.

2. Ajoutez un OpenFileDialog de la liste des composants sur la gauche.

3. Ajouter deux zones de texte et des étiquettes d'accompagnement. Nommez les boîtes "usernameBox" et "pwBox." Modifiez les propriétés de texte des étiquettes "nom d'utilisateur" et "mot de passe." Ceci peut être réalisé en sélectionnant chacun à son tour et en changeant la "Texte" ou "Nom" propriétés des composants dans leur zone de propriété.

4. 
   
   
   

   Ajouter un bouton en le faisant glisser à partir de la liste des composants. Changez son texte à "Upload."

5. Double-cliquez sur le "Trouver l'image" bouton pour créer une action lorsque ce bouton est cliqué. Cela va vous sortir de l'interface de conception graphique et dans l'éditeur de code source. Entrez le code:

   OpenFileDialog1.ShowDialog ()
   imageBox.Text = OpenFileDialog1.FileName

   
   
   
   

   Cela présenter à l'utilisateur une fenêtre de dialogue, chaque fois qu'il appuie sur la "Trouver l'image" bouton qui va l'inviter à sélectionner un fichier d'image sur son disque dur. Le nom complet et le chemin de l'image seront ensuite placés dans la zone de texte à côté du bouton, que nous avons nommé "ImageBox" à l'étape 1.

6. Cliquez sur le "Conception" onglet pour revenir à l'interface de conception graphique et double cliquez sur le "Télécharger" bouton pour créer une action pour le téléchargement de l'image. Cela vous ramènera à l'éditeur de code source et de créer automatiquement une nouvelle fonction d'action pour vous. Entrez ce code dans la fonction:

   Nom d'utilisateur = Dim usernameBox.Text
   Mot de passe = Dim pwBox.Text
   Dim server = "ftp://ftp.photobucket.com/"
   My.Computer.Network.UploadFile (imageBox.Text, serveur & OpenFileDialog1.SafeFileName, nom d'utilisateur, mot de passe)

   Changer le serveur à celle donnée à vous par votre service d'hébergement d'image, si votre hôte est pas Photobucket.

• Il est important que le "ftp: //" et la fuite finale "/" dans le nom du serveur ne sont pas laissés de côté. Laissant de côté soit brisera le programme.