Hvordan lage en Visual Basic Image Uploader

Hvordan lage en Visual Basic Image Uploader


Opprette et program i Visual Basic er en ganske enkel oppgave som kan oppnås selv i fri "Express" versjon av Visual Basic. Det viktigste kravet er at du må bruke et bilde hosting tjeneste som støtter FTP-protokollen for overføring av filer over internett. Som i begynnelsen av 2010, noen eksempler på tjenester som støtter denne funksjonen er VillagePhotos og Pro-versjonen av Photobucket.

Bruksanvisning

1 Legg til en knapp, en tekstboks og en etikett. Dette kan gjøres ved å finne hver komponent i sving i listen komponentene på venstre side av skjermen, og dra dem inn i det åpne vinduet i Visual Basic GUI designer.
Endre teksten på knappen til "Finn bilde" ved å venstreklikke på knappen og finne "Text" eiendom i egenskapene boksen på nedre høyre side av skjermen.
Endre navnet på tekstboksen for å "ImageBox" ved å endre "Name" eiendom i eiendommen sin boks. Endre etiketten tekst egenskapen til "Image". Tekstboksen vil holde plasseringen av bildet og knappen vil få opp en fil nettleser for å la brukeren velge et bilde.

2 Legg en OpenFileDialog fra listen komponenter til venstre.

3 Legg til to flere tekstbokser og medfølgende etiketter. Navn boksene "usernameBox" og "pwBox." Endre tekstegenskaper på etikettene til "brukernavn" og "passord". Dette kan gjøres ved å velge dem etter tur og endre "Text" eller "navn" egenskaper av komponentene i deres eiendom boks.

4 Legg til en knapp ved å dra den fra listen komponenter. Endre teksten til "Last opp".

5 Dobbeltklikk på "Finn Image" knappen for å lage en handling for når det klikkes. Dette vil trekke deg ut av det grafiske brukergrensesnittet utformingen grensesnitt og inn i kildekoden editor. Skriv inn koden:

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

Dette vil gi brukeren en dialog når han trykker på "Finn Image" knappen som vil invitere ham til å velge en bildefil på harddisken sin. Den fullstendige filnavn og bane av bildet vil da bli plassert i tekstboksen ved siden av knappen, som vi kalt "ImageBox" i trinn 1.

6 Klikk på "Design" -kategorien for å gå tilbake til det grafiske utformingen grensesnitt og dobbeltklikk på "Last opp" for å lage en handling for å laste opp bildet. Dette vil ta deg tilbake til kildekoden redaktør og automatisk opprette en ny handling funksjon for deg. Skriv inn denne koden inn i funksjonen:

Dim username = usernameBox.Text
Dim password = pwBox.Text
Dim server = "ftp://ftp.photobucket.com/"
My.Computer.Network.UploadFile(imageBox.Text, server & OpenFileDialog1.SafeFileName, username, password)

Endre serveren til en gitt til deg av din image hosting service, hvis verten er ikke Photobucket.

Hint

  • Det er viktig at "ftp: //" og den endelige etterfølgende "/" i navnet på serveren er ikke utelatt. Leaving ut enten vil bryte programmet.