Desarrollo de aplicaciones con Gambas - Acción "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