Het creëren van een applicatie in Visual Basic is een vrij gemakkelijke taak die kan worden bereikt , zelfs in de gratis " Express " -versie van Visual Basic . De belangrijkste eis is dat je een image hosting service die het FTP- protocol voor het overbrengen van bestanden via internet ondersteunt moet gebruiken . Vanaf het begin van 2010 , enkele voorbeelden van diensten die deze functie ondersteunen zijn VillagePhotos en de Pro-versie van Photobucket . Wat je nodig hebt Visual Basic Redactionele Afbeelding host die FTP ondersteunt Toon Meer Aanwijzingen 1 Voeg een knop , een tekstvak en een label . Dit kan gedaan worden door het vinden van elk onderdeel op zijn beurt in de lijst onderdelen aan de linkerkant van het scherm en ze in de Visual Basic GUI designer.Change in het lege venster slepen van de tekst van de knop om "Find Beeld " vrij op - klikken op de knop en het vinden van de " text " eigenschap in het vak woningen op de onderste rechterkant van de screen.Change de naam van het tekstvak aan " Imagebox " door het veranderen van de "Naam" eigenschap in zijn vak eigenschap . Wijzig de eigenschap text van het label op " Beeld ". Het tekstvak zal de locatie van de afbeelding en de knop zal een bestand browser te laten de gebruiker een afbeelding selecteert houden . Kopen van 2 Voeg een OpenFileDialog uit de lijst onderdelen aan de linkerkant < br . > 3 Voeg nog twee tekstvakken en bijbehorende labels . Noem de dozen " usernameBox " en " pwBox . " Verander de tekst eigenschappen van de labels aan "username " en " password . " Dit kan gedaan worden door het selecteren van een ieder op zijn beurt en het veranderen van de " Tekst " of "Naam" eigenschappen van de componenten in hun vak woning . 4 Voeg een knop door deze in de lijst onderdelen te slepen . Verander de tekst op " Upload ". 5 de "Find Image " knop Dubbelklik op een actie voor als die knop wordt geklikt te creëren . Dit zal u trekken uit de GUI ontwerp -interface en in de broncode-editor . Voer de code : OpenFileDialog1.ShowDialog ( ) imageBox.Text = OpenFileDialog1.FileNameThis zal de gebruiker een dialoog presenteren wanneer hij drukt op de "Find Image " knop die hem zal uitnodigen om een image-bestand op zijn harde schijf te selecteren . De volledige bestandsnaam en het pad van de afbeelding wordt vervolgens geplaatst in het tekstvak naast de knop , waar we de naam " Imagebox " in stap 1 . 6 Klik op het tabblad " Ontwerp" om terug te keren naar de GUI ontwerp -interface en dubbel klik op de knop 'Uploaden' om een actie te maken voor het uploaden van de afbeelding . Dit brengt u terug naar de broncode-editor en automatisch een nieuwe actie -functie voor u te maken . Voer deze code in de functie : Dim username = usernameBox.TextDim password = pwBox.TextDim server = " ftp://ftp.photobucket.com/" My.Computer.Network.UploadFile ( imageBox.Text , server & OpenFileDialog1.SafeFileName , gebruikersnaam, wachtwoord ) Verander de server aan de ene gegeven aan u door uw image hosting service, als uw gastheer is niet Photobucket .
|