Cómo hacer una imagen visual Cargador básico

Creación de una aplicación en Visual Basic es una tarea bastante fácil que se puede lograr incluso en la versión libre de "Express" de Visual Basic. El requisito más importante es que se debe utilizar un servicio de alojamiento de imágenes que soporta el protocolo FTP para transferir archivos a través de Internet. A partir de principios de 2010, algunos ejemplos de servicios que apoyan esta función son VillagePhotos y la versión Pro de Photobucket.

Instrucciones

1 Añadir un botón, un cuadro de texto y una etiqueta. Esto se puede hacer mediante la búsqueda de cada componente a su vez en la lista de componentes en el lado izquierdo de la pantalla y arrastrándolos a la ventana vacía en el diseñador de Visual GUI básico.
Cambiar el texto del botón de "Buscar imagen" haciendo clic izquierdo en el botón y la búsqueda de la propiedad "Texto" en el cuadro de propiedades en la parte inferior derecha de la pantalla.
Cambiar el nombre del cuadro de texto para "Imagebox" mediante la alteración de la propiedad "Nombre" en su cuadro de propiedades. Cambiar la propiedad text de la etiqueta de "imagen". El cuadro de texto llevará a cabo la localización de la imagen y el botón se abrirá un explorador de archivos para permitir al usuario seleccionar una imagen.

2 Añadir un OpenFileDialog componentes de la lista de la izquierda.

3 Añadir dos más cuadros de texto y etiquetas que acompañan. Nombre las cajas "usernameBox" y "pwBox." Cambiar las propiedades del texto de las etiquetas a "nombre de usuario" y "contraseña". Esto se puede hacer mediante la selección de cada uno de ellos a su vez y cambiar el nombre de "propiedades" de los componentes en su cuadro de propiedad "Texto" o.

4 Añadir un botón arrastrándolo desde la lista de componentes. Cambiar su texto a "Subir".

5 Haga doble clic en el botón "Buscar imagen" para crear una acción para cuando se hace clic en ese botón. Esto le salir de la interfaz de diseño de interfaz gráfica de usuario y en el editor de código fuente. Ingrese el código:

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

Esto presentará al usuario con un cuadro de diálogo cada vez que se presiona el botón "Buscar imagen" que le invite para seleccionar un archivo de imagen en su disco duro. El nombre de archivo completo y la ruta de la imagen a continuación, se colocan en el cuadro de texto al lado del botón, lo que hemos llamado "Imagebox" en el paso 1.

6 Haga clic en la pestaña "Diseño" y para volver a la interfaz de diseño de interfaz gráfica de usuario haga doble clic en el botón "Subir" para crear una acción para cargar la imagen. Esto le llevará de nuevo al editor de código fuente y crear automáticamente una nueva función de acción para usted. Introduce el código en la función:

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)

Cambiar el servidor al que se le ha asignado el servicio de alojamiento de imágenes, si su anfitrión no es Photobucket.

Consejos y advertencias

• Es importante que el "ftp: //" y la posterior final "/" en el nombre del servidor no se quedan fuera. Dejando de lado o bien se romperá el programa.