Crear juego
Crear juego
Todos los juegos

Examen Visual Pedido Listbox

Completar frases

Complete el código y luego prográmelo en el botón que corresponda.

Descarga la versión para jugar en papel

Duplicar
Crear reto Crear reto
Imprimir PDF
Sobre Completar frases
tecnologías de la información y comunicación 4º - bachillerato Edad recomendada: 16 años
3 veces realizada

Creada por

Isaías A. Cuá Dubón
Isaías A. Cuá Dubón
Guatemala

Top 10 resultados

  1. 1
    Isaías A. Cuá Dubón
    Isaías A. Cuá Dubón
    02:35
    tiempo
    80
    puntuacion
¿Quieres aparecer en el Top 10 de este juego? Inicia sesión para identificarte.
Crea tu propio juego gratis desde nuestro creador de juegos
Crear completar frases
Compite contra tus amigos para ver quien consigue la mejor puntuación en esta actividad
Crear reto

0 Comentarios

Inicia sesión para escribir un comentario.

Top juegos

  1. tiempo
    puntuacion
  1. tiempo
    puntuacion
tiempo
puntuacion
tiempo
puntuacion
Has superado el número máximo de juegos que puedes imprimir con tu Plan actual.
Para imprimir tantos juegos como quieras, necesitas un Plan Académico o un Plan Comercial.
Obtener Plan Académico

Imprime tu juego

game-icon

Completar

Examen Visual Pedido Listbox

Complete el código y luego prográmelo en el botón que corresponda.

Isaías A. Cuá Dubón
game-qr
1

Clear If Caption decision MsgBox Caption decision2 RemoveItem ListIndex AddItem

'Botón que borra todo el listbox
Private Sub BtnBorrarLista_Click ( )
Dim As Integer
decision2 = ( " ¿ Está seguro que desea borrar el pedido ? " , vbYesNoCancel , " Eliminar Lista " )
If decision2 = vbYes Then
Lst1 .
End If
End Sub
'Botón que borra un medicamento
Private Sub BtnEliminaRegistro_Click ( )
Dim As Integer
decision = MsgBox ( " Esta seguro de borrar el medicamento seleccionado " , vbYesNoCancel , " Eliminar medicamento " )
If decision = vbYes Then
Lst1 . ( Lst1 . )
Lbl3 . = Lst1 . Text
End
End Sub
'Botón que llena el listbox
Private Sub BtnLlenar_Click ( )
Dim Medicamento As String
Medicamento = ( TxtMedicamento . Text )
Lst1 . ( Medicamento )
TxtMedicamento . Text = " "
MsgBox " Medicamento agregado exitosamente al pedido " , vbExclamation , " Medicamento agregado "
End Sub
Private Sub Lst1_Click ( )
'Asignamos al Label3 el texto que contiene el registro seleccionado del listbox
Lbl3 . = Lst1 . Text
End Su b

Imprimir PDF