Créer jeu
Créer jeu
Tous les jeux

Examen Visual Pedido Listbox

Compléter

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

Téléchargez la version papier pour jouer

Dupliquer
Créer un défi Créer un défi
Imprimer le PDF
À propos de Compléter
tecnologías de la información y comunicación 4º - bachillerato Âge recommandé: 16 ans
3 fois fait

Créé par

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

Top 10 résultats

  1. 1
    Isaías A. Cuá Dubón
    Isaías A. Cuá Dubón
    02:35
    temps
    80
    but
Voulez-vous apparaître dans le Top 10 de ce jeu? Connectez-vous pour vous identifier.
Créez votre propre jeu gratuite à partir de notre créateur de jeu
Créez compléter
Affrontez vos amis pour voir qui obtient le meilleur score dans ce jeu
Créer un défi

0 Commentaires

Connectez-vous pour écrire un commentaire.

Top Jeux

  1. temps
    but
  1. temps
    but
temps
but
temps
but
Vous avez dépassé le nombre maximum de jeux que vous pouvez imprimer avec votre Plan actuel.
Pour imprimer autant de jeux que vous le souhaitez, vous avez besoin d’un Plan Académique ou un Plan Commerciel.
Obtenir Plan Académique

Imprimez votre jeu

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

decision2 RemoveItem Clear MsgBox AddItem ListIndex Caption If Caption decision

'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

Imprimer le PDF