Hola a todos:
Si tuviesen oportunidad, ¿podrían hacer la siguiente prueba?
en un nuevo documento, agreguen un cuadro de diálogo y en este un cuadro
de texto, después, prueben el siguiente código
Sub CuadroTexto()
Dim oDialogo As Object
Dim oControl As Object
DialogLibraries.LoadLibrary( "Standard" )
'Reemplazar el nombre del dialogo
oDialogo =
CreateUnoDialog( DialogLibraries.Standard.getByName("Dialogo") )
'El cuadro de texto con el nombre que hayan usado
oControl = oDialogo.getControl("txtNombre")
'Mostramos el cuadro de dialogo
oDialogo.execute()
'Al cerrar mostramos el contenido del control
MsgBox oControl.Text
oDialogo.dispose() End Sub
Primero escriban algo en el cuadro de texto, en la segunda prueba "no"
escriban nada, ¿que les devuelve en cada caso?
Gracias por su tiempo.
Saludos
Mauricio
P.D. Comúnmente, me llega copia de mi mensaje enviado, pero tiene un par
de meses que esto no pasa, perdonen si duplico los mensajes.
_____________________________________________
Todo lo que no es dado es perdido
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
