COMPUTACION

Computación e Informática

DESARROLLE EL PROYECTO N° 4

I. PROCEDIMIENTO

• Diseño de la aplicación.
  

-         Ingresar al programa Visual Basic 6.0.

-         Abrir un proyecto.

-         En el formulario Form1 dibujar los siguientes controles.

Para el control Combo1 active el control Combo Box en la caja de herramientas

-         Haga doble clic en el objeto Command1 e ingrese el siguiente código:

Private Sub Command1_Click()
Dim nuevo As String
nuevo = InputBox("Ingrese un nuevo elemento", "Nuevo elemento")
If Len(Trim(nuevo)) > 0 Then
Combo1.AddItem nuevo
End If
End Sub

-         Haga doble clic en el objeto Command2 e ingrese el siguiente código:

Private Sub Command2_Click()
If Combo1.ListIndex <> -1 Then
Combo1.RemoveItem Combo1.ListIndex
Text1.Text = ""
End If
End Sub

-         Haga doble clic en el objeto Command3 e ingrese el siguiente código:

Private Sub Command3_Click()
Combo1.Clear
End Sub

-         Haga doble clic en el objeto Command4 e ingrese el siguiente código:

Private Sub Command4_Click()
End
End Sub

-         Haga doble clic en el objeto Combo1, observe que en el evento que se va ha programar es Change, ingrese el siguiente código:

Private Sub Combo1_Change()
Text1.Text = Combo1.Text
End Sub

-         Haga doble clic en el objeto Combo1, cambie el evento Change a Click, ingrese el siguiente código:

Private Sub Combo1_Click()
If Combo1.ListIndex <> -1 Then
If Combo1.Text <> "Ninguno" Then
Text1.Text = Combo1.List(Combo1.ListIndex)
Else
Text1.Text = ""
End If
End If
End Sub