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.