ACCIÓN DE MODIFICAR

Al pulsar este botón, el usuario modificará alguna de las entradas que haya en el ListBox. Si no hay ninguna, el botón no debe hacer nada, y si no han seleccionado ninguna línea, mostrará un mensaje de aviso. Veamos la implementación del procedimiento asociado.

' Acción "Modificar"
PUBLIC SUB Modificar_Click()
   f AS FInputBox
   IF ListBox1.Count > 0 THEN ' Si no hay nada en el formulario,
                              ' su propiedad Count es 0. En este caso,
                              ' no hacemos nada.
       IF ListBox1.Index = -1 THEN
           ' La propiedad Index nos devuelve el índice de la línea seleccionada.
           ' Si no hay seleccionada ninguna, devuelve -1. En este caso, avisamos
           ' al usuario y no hacemos más.
           message.Info("Debe seleccionar la línea que desea modificar.")
       ELSE
           ' El usuario ha seleccionado una línea en el ListBox.
           ' Mostramos nuestro InputBox, pasándole también el texto seleccionado.
           ' El texto seleccionado es la propiedad Text del objeto ListBoxItem
           ' seleccionado, al que se accede a su vez con la propiedad Selected
           ' del ListBox
           f = NEW FInputBox("Modificar entrada",
                               "Modifique la línea seleccionada:",
                               ListBox1.Current.Text)
           f.ShowModal()
           ' El cuadro de diálogo FInputBox modifica la variable compartida
           ' en el módulo MComun.
           ' Si no está vacía, la asignamos al ListBoxItem seleccionado.
           IF MComun.texto THEN ListBox1.Current.Text = MComun.texto
           ' Como antes, "vaciamos" la variable compartida después de usarla.
           MComun.texto = ""
       END IF
   END IF
END