Aggiungi un pulsante, una casella di testo e un'etichetta . Questo può essere fatto trovando ciascun componente a turno nella lista componenti sul lato sinistro dello schermo e trascinarli nella finestra vuota nella base GUI designer.Change visivo il testo del pulsante "Trova immagine " di sinistra clic sul pulsante e trovare la proprietà "Testo" nella casella di proprietà sul lato inferiore destro della screen.Change il nome della casella di testo a " ImageBox " , modificando la proprietà " name" nella finestra delle proprietà. Modificare la proprietà Text dell'etichetta di " immagine ". La casella di testo si terrà la posizione dell'immagine e il pulsante , si apre un browser di file per consentire all'utente di selezionare un'immagine.
2
Aggiungi un OpenFileDialog dalla lista componenti a sinistra.
3
Aggiungere altre due caselle di testo e le etichette allegate. Assegnare le caselle " usernameBox " e " pwBox . " Modificare le proprietà del testo delle etichette da " nome utente " e "password ". Questo può essere fatto selezionando ciascuno a turno e di cambiare il "nome" proprietà dei componenti nella loro casella di proprietà "Testo" o .
4
Aggiungere un pulsante trascinandolo dalla lista componenti . Cambia il suo testo su "Carica file ". Fare doppio clic sul pulsante
5
"Trova immagine " per creare un azione per quando viene cliccato il pulsante . Questo tirerà fuori l'interfaccia di progettazione grafica e nell'editor di codice sorgente. Inserisci il codice : OpenFileDialog1.ShowDialog ( ) imageBox.Text = OpenFileDialog1.FileNameThis presenterà all'utente una finestra di dialogo ogni volta che preme il pulsante "Trova immagine " che lo inviterà a selezionare un file immagine sul suo hard disk . Il nome del file e il percorso completo dell'immagine saranno poi inseriti nella casella di testo accanto al pulsante , che abbiamo chiamato " ImageBox " al punto 1 .
6
Fare clic sulla scheda "Design" per tornare alla interfaccia di progettazione grafica e fare doppio clic sul pulsante "Upload " per creare un'azione per caricare l'immagine . Questo vi porterà indietro per l'editor di codice sorgente e creare automaticamente una nuova funzione di azione per voi . Inserisci questo codice nella funzione : Dim username = password = usernameBox.TextDim pwBox.TextDim server = " ftp://ftp.photobucket.com/" My.Computer.Network.UploadFile ( imageBox.Text , Server & OpenFileDialog1.SafeFileName , nome utente, password ) Cambiare il server a quello che ti ha dato l'immagine di hosting , se il vostro host non è Photobucket .
Programmazione © www.354353.com