Πώς να κάνει ένα Visual Basic Uploader Εικόνα

Δημιουργία αίτηση σε Visual Basic είναι μια αρκετά εύκολη υπόθεση που δεν μπορεί να επιτευχθεί ακόμη και στην ελεύθερη " Express " έκδοση του Visual Basic . Η σημαντικότερη απαίτηση είναι ότι πρέπει να χρησιμοποιήσετε μια υπηρεσία φιλοξενίας εικόνας που υποστηρίζει το πρωτόκολλο FTP για τη μεταφορά αρχείων μέσω του διαδικτύου . Στις αρχές του 2010 , μερικά παραδείγματα των υπηρεσιών που υποστηρίζουν αυτό το χαρακτηριστικό είναι VillagePhotos και η Pro έκδοση του Photobucket . Τα πράγματα που θα χρειαστείτε
Visual Basic υποδοχής Στοκ Εικόνα που υποστηρίζει FTP
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Προσθέστε ένα κουμπί , ένα πλαίσιο κειμένου και μια ετικέτα . Αυτό μπορεί να γίνει με την εύρεση κάθε συστατικού με τη σειρά στον κατάλογο συστατικών στην αριστερή πλευρά της οθόνης και μεταφέροντάς τα στο άδειο παράθυρο στη Visual Basic GUI designer.Change το κείμενο το κουμπί "Αναζήτηση εικόνας » από το αριστερό κλικ στο κουμπί και να βρεθεί η «Κείμενο» ιδιοκτησίας στα ακίνητα κουτί στην κάτω δεξιά πλευρά του screen.Change το όνομα του πλαισίου κειμένου για να " Imagebox " με την αλλαγή του "Όνομα" ιδιοκτησίας στο πλαίσιο της ιδιότητας της . Αλλαγή ιδιοκτησίας κείμενο της ετικέτας στο "Εικόνα ". Το πλαίσιο κειμένου θα κρατήσει τη θέση της εικόνας και το κουμπί θα εμφανιστεί ένα πρόγραμμα περιήγησης στο αρχείο για να επιτρέπουν στο χρήστη να επιλέξει μια εικόνα . 2

Προσθέστε ένα OpenFileDialog από τη λίστα εξαρτημάτων στην αριστερή πλευρά .

Η 3

Προσθέστε δύο πλαίσια κειμένου και τις συνοδευτικές ετικέτες . Ονομάστε το κουτιά " usernameBox " και " pwBox . " Αλλάξτε τις ιδιότητες του κειμένου των ετικετών "username" και "password ". Αυτό μπορεί να γίνει επιλέγοντας το καθένα με τη σειρά και την αλλαγή του " Κείμενο " ή "Όνομα" ιδιότητες των συστατικών στο πλαίσιο της ιδιότητας τους .
Η 4

Προσθέστε ένα κουμπί σύροντάς το από τη λίστα συστατικών . Αλλαγή κειμένου του να " φορτώσει ".
5

Κάντε διπλό κλικ στο " Εύρεση εικόνας " κουμπί για να δημιουργήσετε μια ενέργεια για το πότε ότι κάνετε κλικ στο κουμπί . Αυτό θα σας τραβήξει έξω από το περιβάλλον σχεδιασμού GUI και στο πρόγραμμα επεξεργασίας πηγαίου κώδικα . Εισάγετε τον κωδικό : OpenFileDialog1.ShowDialog ( ) imageBox.Text = OpenFileDialog1.FileNameThis θα παρουσιάσει το χρήστη με ένα παράθυρο διαλόγου κάθε φορά που πατάει το "Find Image " κουμπί που θα τον καλεί να επιλέξετε ένα αρχείο εικόνας στο σκληρό δίσκο του . Το πλήρες όνομα αρχείου και τη διαδρομή της εικόνας στη συνέχεια θα τοποθετούνται στο πλαίσιο κειμένου δίπλα στο κουμπί , το οποίο θα ονομάζεται " Imagebox " στο Βήμα 1 .
Η

6 Κάντε κλικ στην καρτέλα " Σχεδίαση " για να επιστρέψετε στην διασύνδεση του σχεδιασμού GUI και κάντε διπλό κλικ στο κουμπί "Αποστολή " για να δημιουργήσετε μια ενέργεια για το φόρτωμα της εικόνας . Αυτό θα σας μεταφέρει πίσω στο πρόγραμμα επεξεργασίας πηγαίου κώδικα και δημιουργεί αυτόματα μια νέα λειτουργία δράσης για σας . Εισάγετε τον κωδικό αυτό σε λειτουργία : Dim όνομα = usernameBox.TextDim password = διακομιστής pwBox.TextDim = " ftp://ftp.photobucket.com/" My.Computer.Network.UploadFile ( imageBox.Text , server & OpenFileDialog1.SafeFileName , όνομα χρήστη , κωδικό πρόσβασης ) Αλλάξτε το διακομιστή με εκείνη που σας έχει δοθεί από την εικόνα σας υπηρεσία φιλοξενίας , αν ο υπολογιστής σας δεν είναι Photobucket .
Η
εικόνων