Practicas en Visual Basic 6.0

  1. Inicializamos el programa y seleccionamos EXE ESTANDAR para luego colocar a el formulario (1 textbox, 2 Frame, 5 option button para el 1 frame y 2 para el frame 2 y un coman button). 2. Luego le cambiamos los nombres a los objetos desde la propiedad caption (es importante aclarar que como el aplicativo es cambiar color en un objeto en cada opcion button deberá ir el nombre de color que se desee aparezca en el textbox ; en el frame de abajo el movimiento arriba y abajo). 3. Una vez codificado cada objeto con el siguiente codigo el aplicativo quedará así  Private Sub Command1_Click() End End Sub Private Sub Form_Load() Txtcaja.Top = 0 End Sub Private Sub Option1_Click() Txtcaja.BackColor = vbBlue End Sub Private Sub Option2_Click() Txtcaja.BackColor = vbRed End Sub Private Sub Option3_Click() Txtcaja.BackColor = vbBlack End Sub Private Sub Option4_Click() Txtcaja.BackColor = vbYellow End Sub Private Sub Option5_Click() Txtcaja.BackColor = vbGreen End Sub Private Sub Option6...

  1. Inicializamos el programa y seleccionamos EXE ESTANDAR para luego colocar un color de fondo al formulario.  2. A continuacion se le asigna un fondo de color a los siguientes objetos (4 label, 4 textbox y 2 option button).  3. Una vez codificado cada objeto con el siguiente codigo el aplicativo quedará así: Private Sub Command1_Click()  Text2.Text = DateDiff("yyyy", Text1.Text, Format(Date, "dd/mm/yyyy")) Text3.Text = DateDiff("d", Text1.Text, Format(Date, "dd/mm/yyyy")) Text4.Text = DateDiff("m", Text1.Text, Format(Date, "dd/mm/yyyy")) End Sub Private Sub Command2_Click()  Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End Sub Private Sub Command3_Click()  End End Sub

  1. Inicializamos el programa y seleccionamos EXE ESTANDAR para luego colocar un color de fondo al formulario. Luego insertamos 1 objeto picture y despúes en la propiedad del mismo nombre buscamos e insertamos una imagen. 2. Seguidamente a la imagen le insertamos 3 objetos shape y a cada uno le seleccionamos la propiedad (shape-circle) (backstyle-opaque). 3. Luego codificaremos 3 objetos timer. 4. Luego de ubicar los codigos a los objetos shape nos ubicamos al formulario y al 1 shape le cambiamos el color por el color negro copiamos ese codigo y manipulamos el color en una secuencia logica donde no debe aparecer mas colores sino el rojo en el 1 el naranja en el segundo y el verde en el 3 observen el siguiente codigo: Private Sub Timer1_Timer() Shape1.BackColor = &HFF& Shape2.BackColor = &H0& Shape3.BackColor = &H0& End Sub Private Sub Timer2_Timer() Shape1.BackColor = &H0& Shape2.BackColor = &H80FF& Shape3.BackColor = &H0& End Sub Pr...

 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) Pic...

  Proceso: 1.Iniciar el programa. 2.Apertuamos un EXE ESTANDAR. 3.En el formulario insertamos los siguientes objetos (label, 2 textbox y 3 comandbutton). 4.Adjuntamos los códigos de los comandbutton. Private Sub Command1_Click()                                                                       Dim N As Integer   N = Val(Text1.Text)       For i = 1 To 12           Text1.AddItem i & " x " & N & " = " & i * N       Next   End Sub Private Sub Command2_Click()     Text1.Text = "" End Sub Private Sub Command3_Click()     End End Sub 5.. Por ultimo ejecutamos el programa.

  PRIMERAMENTE INICIALIZAMOS VISUAL, LUEGO CREAMOS UN EXE ESTÁNDAR  SEGUIDAMENTE DISEÑAMOS NUESTRO FORMULARIO CON 3 LABEL, 3 CAJAS DE TEXTO, 2 BOTONES Y UN PICTUREBOX PARA INSERTAR UNA IMAGEN (TABLA IMC EN FORMATO JPG) EN EL DISEÑO DEL FORMULRIO DEBEN ASIGNAR UN NOMBRE AL FORMULARIO EN SU PROPIEDAD CAPTION , LUEGO EN BACKCOLOR ASIGNAR UN COLOR DE FONDO; EL MISMO COLOR SE DEBERÁ ASIGNAR A LAS LABEL. BUENO AHORA COMENZAR A PROGRAMAR PRIMERAMENTE EL FORMULARIO CON LA SIGUIENTE LINEA DE CODIGO QUE PREVIAMENTE DEBEN ELIMINAR LO QUE COMUNMENTE APARECERA AL DAR DOBLE CLIC EN EL FORMULARIO . Dim peso, talla, resultado As Double CÓDIGO DEL BOTON CALCULAR Private Sub Command1_Click() peso = Textpeso.Text talla = Texttalla.Text resultado = peso / (talla * talla) Textresultado.Text = resultado Textpeso.Text = "" Texttalla.Text = "" Textpeso.SetFocus CÓDIGO PARA QUE LA CAJA DE TEXTO DONDE APARECE EL RESULTADO NO SE PUEDA INGRESAR ABSOLUTAMENTE NADA Private Sub Form_Load() Textre...