Pasos para crear un rompecabeza. (SEMANA 26)

 1. Inicializar el programa, maximizamos el formulario ubicandonos en la propiedad windowstate-maximized, luego cambiamos el color de de fondo del formulario y procedemos a descargar la imagen de la siguiente forma (imagenes de san valentin + jpg) y la pegamos en el programa paint.

2. Una vez recortada la imagen en fragmento y pegada en un objeto (image) debemos seleccionar el objeto (picturebox) y graficarlo en igual dimension que el fragmento de la imagen colocada en el formulario.

3. A cada picturebox lo seleccionamos y nos ubicamos en la propiedad (dragmode-1 automatical); luego a cada picturebox le asignaremos el siguiente codigo cambiando el evento clic para drapdrog, borrando las 2 lines del evento clic.

Picture1.Picture = Source.Picture

Source.Visible = False

Private Sub Picture2_DragDrop(Source As Control, X As Single, Y As Single)

Picture2.Picture = Source.Picture

Source.Visible = False

End Sub

Private Sub Picture3_DragDrop(Source As Control, X As Single, Y As Single)

Picture3.Picture = Source.Picture

Source.Visible = False

End Sub

Private Sub Picture4_DragDrop(Source As Control, X As Single, Y As Single)

Picture4.Picture = Source.Picture

Source.Visible = False

End Sub

Private Sub Picture5_DragDrop(Source As Control, X As Single, Y As Single)

Picture5.Picture = Source.Picture

Source.Visible = False

End Sub

Private Sub Picture6_DragDrop(Source As Control, X As Single, Y As Single)

Picture6.Picture = Source.Picture

Source.Visible = False

End Sub

Private Sub Picture7_DragDrop(Source As Control, X As Single, Y As Single)

Picture7.Picture = Source.Picture

Source.Visible = False

End Sub

Private Sub Picture8_DragDrop(Source As Control, X As Single, Y As Single)

Picture8.Picture = Source.Picture

Source.Visible = False

End Sub

Private Sub Picture9_DragDrop(Source As Control, X As Single, Y As Single)

Picture9.Picture = Source.Picture

Source.Visible = False

End Sub

4. Posteriormente a cada objeto image en la propiedad dragmode le cambiamos 0 manual por 1 automatical.

5. Ejecutamos el programa y seleccionamos una imagen y debe quedar pegada en la parte en blanco. Seguidamente creamos un boton en el objeto comand button y le asignamos color seleccionado en la propiedad style-grafical.




Comentarios

Publicar un comentario

Entradas más populares de este blog

Pasos para crear un formulario. (SEMANA 22)

Imagen
    Para que aparezca la frase “Hola chicos de 2 informática “, para eso debemos seleccionar EXE estándar y luego abrir en donde empezaremos a diseñar nuestro formulario.      Como primera acción debemos de cambiar el nombre del formulario en la propiedad NOMBRE y colocar (frm1), luego en la propiedad CAPTION colocar (Practica1).      Posteriormente al formulario damos doble clic , para que nos aparezca la ventana donde Codificaremos el mensaje con el comando msgbox(“Hola estudiantes de 2 informática”), vbInformation, “Hola estudiantes de 2 informática” Cabe indicar que la función vbInformation realiza una interfaz con el signo de Admiración con fondo azul.      Para cambiar la apariencia en la interfaz de ejecución con el comando msgbox(“Hola estudiantes de 2 informática”), Cambiamos(vbInformation) por vbCritical, “Hola estudiantes de 2 informática” Cabe indicar que la función vbCritical realiza una interfaz con el signo de X con f...
Leer más

Pasos para crear una calculadora a grados (SEMANA 33)

Imagen
 1. Iniciamos el programa. 2. Hacer clic en EXE ESTANDAR. 3. Colocar los siguientes objetos en el formulario: 2 Label, 2 TextBox, 1 ScrollBar. 4. En la label 1 le asignaremos el nombre de "ºCentigrado" y en la label 2 le asignaremos el nombre de "ºFarenhein". 5. En el objeto ScrollBar le insertamos el siguiente codigo: OBJETO SCROLLBAR Private Sub ScrollBar1_Change(). Dim dblgrados As Double TextBox1.Text = ScrollBar1.Value dblgrados = 1.8 *  ScrollBar1.Value TextBox2.Text = dblgrados End Sub 6. Ejecutamos la calculadora. 7. Guardamos y salimos.
Leer más

Practicas en Visual Basic 6.0

Imagen
 Crear un formulario     Para que aparezca la frase “Hola chicos de 2 informática “, para eso debemos seleccionar EXE estándar y luego abrir en donde empezaremos a diseñar nuestro formulario.     Como primera acción debemos de cambiar el nombre del formulario en la propiedad NOMBRE y colocar (frm1), luego en la propiedad CAPTION colocar (Practica1).     Posteriormente al formulario damos doble clic , para que nos aparezca la ventana donde Codificaremos el mensaje con el comando msgbox(“Hola estudiantes de 2 informática”), vbInformation, “Hola estudiantes de 2 informática” Cabe indicar que la función vbInformation realiza una interfaz con el signo de Admiración con fondo azul.     Para cambiar la apariencia en la interfaz de ejecución con el comando msgbox(“Hola estudiantes de 2 informática”), Cambiamos(vbInformation) por vbCritical, “Hola estudiantes de 2 informática” Cabe indicar que la función vbCritical realiza una interfaz con el signo de...
Leer más