Opprette et program i Visual Basic er en ganske enkel oppgave som kan gjøres 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 . Du trenger
Visual Basic
bilde host som støtter FTP
Vis flere instruksjoner
en

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

Legg en OpenFileDialog fra komponentene listen til venstre .

3

Legg to tekstbokser og medfølgende etiketter . Navngi boksene " usernameBox " og " pwBox . " Endre tekst egenskaper på etikettene til "brukernavn " og " passord ". Dette kan gjøres ved å velge dem etter tur og endre "Text " eller "navn" egenskapene til komponentene i deres eiendom boksen .
4

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

Dobbeltklikk på " Finn bilde " for å lage en handling for når knappen klikkes. Dette vil trekke deg ut av det grafiske utformingen grensesnitt og inn i kildekoden editor. Tast inn koden: OpenFileDialog1.ShowDialog ( ) imageBox.Text = OpenFileDialog1.FileNameThis vil presentere brukeren med en dialogboks når han trykker på " Finn bilde "-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 GUI designet grensesnitt og dobbeltklikk på "Last opp" -knappen for å opprette 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.TextDim password = pwBox.TextDim server = " ftp://ftp.photobucket.com/" My.Computer.Network.UploadFile ( imageBox.Text , server & OpenFileDialog1.SafeFileName , brukernavn, passord ) Endre serveren til en du fikk av din image hosting service, hvis verten er ikke Photobucket .