anfitrión Imagen Visual Basic que soporta FTP
Mostrar más instrucciones
1
Agregar 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 designer.Change GUI Visual Basic el texto del botón de "Buscar imagen " de la izquierda clic en el botón y la búsqueda de la propiedad "Texto " en el cuadro de propiedades en la parte inferior derecha de la screen.Change el nombre del cuadro de texto para " ImageBox " modificando la propiedad " Name" en su cuadro de la propiedad . Cambie la propiedad de texto de la etiqueta de "Imagen ". El cuadro de texto se mantenga la ubicación de la imagen y el botón se abrirá un explorador de archivos para que el usuario seleccione una imagen.
2
Añadir un OpenFileDialog de la lista de los componentes de la izquierda.
3
agregar dos cuadros de texto y etiquetas adjuntas . Nombra las cajas " usernameBox " y " pwBox . " Cambiar las propiedades del texto de las etiquetas de " nombre de usuario" y "contraseña ". Esto se puede hacer mediante la selección de uno en uno y el cambio de las propiedades del "nombre" de los componentes de su cuadro de la propiedad "Texto " o .
4
Agregue un botón arrastrándolo desde la lista de componentes . Cambie el texto a "Subir ". Haga doble clic en el botón
5
"Buscar imagen" para crear una acción para cuando se hace clic en ese botón. Esto sacarte del diseño de la interfaz GUI y en el editor de código fuente. Introduzca el código: OpenFileDialog1.ShowDialog () imageBox.Text = OpenFileDialog1.FileNameThis presentará al usuario un cuadro de diálogo cada vez que se pulsa el botón "Buscar imagen" que le invitan a seleccionar un archivo de imagen de su disco duro. El nombre 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" para volver a la diseño de la interfaz GUI y haga doble clic en el botón " Upload" para crear una acción para subir 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. Escriba el siguiente código en la función: Dim username = password = usernameBox.TextDim pwBox.TextDim server = " ftp://ftp.photobucket.com/" My.Computer.Network.UploadFile ( imageBox.Text , servidor y OpenFileDialog1.SafeFileName , nombre de usuario, contraseña) Cambia el servidor al que se le ha asignado el servicio de alojamiento de imágenes , si su anfitrión no es Photobucket .