[RESUELTO] Pasar valor de un TextField a una variable

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
PabloBerugo
Mensajes: 8
Registrado: Mar Feb 10, 2015 4:13 am

[RESUELTO] Pasar valor de un TextField a una variable

Mensaje por PabloBerugo »

Hola a todos,

Este es mi primer mensaje, por lo que probablemente tenga errores que con el tiempo corregiré. Si el mensaje ya fue resuelto en otra ocasión (busqué coincidencias pero no encontré) pido disculpas.

Estoy intentando pasar un valor de un TextField del diálogo "Dialog2" a una variable tipo string. Estuve viendo la ejecución paso a paso y resulta que la variable nunca se carga con el valor de la TextField1.

Mas detalles:
Tengo una Hoja en Calc llamada "Pablo"(muy original). Esta hoja contiene un botón que abre un diálogo mediante la macro detallada a continuación y que para mi propósito funciona perfectamente.

Código: Seleccionar todo

Sub EjecutarMiDialogo1()
Dim oDialogo As Object

	'Cargamos la librería Standard en memoria
	DialogLibraries.LoadLibrary( "Standard" )
	'Cargamos el cuadro de diálogo en memoria
	oDialogo = CreateUnoDialog( DialogLibraries.Standard.getByName("Dialog2") )
	'Lo ejecutamos (mostramos)
	oDialogo.execute()
	'Lo liberamos de memoria
	oDialogo.dispose()
	
End Sub
El formulario contiene 3 controles, como se puede ver en la imagen:
2015-02-10_0052.png
El CommandButton, tiene asociado al evento "Boton del ratón pulsado" la siguiente macro:

Código: Seleccionar todo

Sub CLickbuscar() 

Dim oDialogo As Object
DIm ValorID as String

Dim oCelda as Object
	'Cargamos la librería Standard en memoria
	DialogLibraries.LoadLibrary( "Standard" )
	'Cargamos el cuadro de diálogo en memoria
	oDialogo = CreateUnoDialog( DialogLibraries.Standard.getByName("Dialog2") )
	ValorID=oDialogo.getControl("TextField1").Text


	oCelda=ThisComponent.getSheets().getbyname("Pablo").getcellrangebyname("A15")
	oCelda.setstring(ValorID)
	
End Sub
La idea es que la macro copie el valor de la TextField1 a la celda A15 pero no lo está haciendo.

Agradezco su ayuda,
Hasta luego
Última edición por SLV-es el Jue Feb 12, 2015 11:51 pm, editado 3 veces en total.
Razón: Reemplazar el enlace a la imagen por la imagen. Por favor, utiliza 'Subir adjunto'
Solo viviendo absurdamente se podria romper alguna vez este absurdo infinito
LibreOffice 4.3.5.2 en Windows XP
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Pasar valor de un TextField a una variable

Mensaje por mauricio »

Ahí mismo de donde copiaste la primer macro esta la respuesta... si ya abriste el formulario, no hay razón para que lo vuelvas a hacer en el botón buscar... vuelve a leer dicho capitulo...

Saludos
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
PabloBerugo
Mensajes: 8
Registrado: Mar Feb 10, 2015 4:13 am

Re: Pasar valor de un TextField a una variable

Mensaje por PabloBerugo »

Hola, ya lo probé y funciona :knock:

Muchas gracias Mauricio.
Saludos,
Solo viviendo absurdamente se podria romper alguna vez este absurdo infinito
LibreOffice 4.3.5.2 en Windows XP
Responder