Hola Mauricio,
Mauricio Alejandro Moreno Castro escribió:
Hola Ariel
Gracias por la info super !!
está es la macro que utilizo
Sub CheckRadio
' Creacion de objeto para manejo del control, los formularios y el
formulario de la pagina activa
Dim Control,oForms,oForm As Object
' Obtencio de los formularios del documento
oForms = ThisComponent.CurrentController.getActiveSheet.DrawPage.Forms
' Obtencion del formulario para la pagina especifica
oForm = oForms.getByName("WW-Standard")
'obtencion del control
Control = oForm.getByName("OptionButton")
'String temp = Control.StringItemList(Control.SelectedItems (0))
Dim i as integer
Dim oHoja As Object
Dim oCell As Object
For i =1 to oForm.Count
if oForm.ControlModels(i-1).State = 1 then
oHoja = ThisComponent.CurrentController.getActiveSheet
oCell
=ThisComponent.CurrentController.getActiveSheet.getCellByPosition(6,10)
oCell.setFormula(i)
'MsgBox i
End if
Next
End Sub
Anexo te envió el archivo a tu correo
EL archivo no tiene ninguna macro asignada a los controles! Así que no
puedo darme una idea de para qué empleas las macros!
En principio, debes pensar si lo que deseas realizar se puede lograr SIN
macros: puedes vincular una celda a un control, y asignarle un valor de
referencia, luego realizar cálculos tomando ese valor. TODO eso es
posible SIN emplear macros.
Si empleas macros, no es necesario emplear un bucle para obtener el
control seleccionado: al asignar una macro a un evento, cuando tu macro
es invocada recibes un objeto de evento (EventObject), que te brinda
determinada información, dependiendo del tipo de interfaz.
Para "campos de opción" debes elegir el evento "Estado modificado"
(según la pestaña "Acontecimientos" de la ventana "Propiedades").
Debes tener en cuenta:
* agrupar los "campos de opción" dándoles el mismo nombre a todos
* asignar la misma macro al mismo evento en todos los controles RadioButton
El siguiente ejemplo
http://www.arielconstenlahaile.com.ar/ooo/docs/ARIEL_OOoBasic_RadioButton.ods
muestra cómo emplear controles tipo RadioButton con y sin macros.
Si bien la macro está bastante comentada, NO reemplaza el estudio: ¡a
estudiar!
Saludos
Ariel.
gracias
Salu2
Mauricio
El día 13/12/07, Ariel Constenla-Haile
<[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>> escribió:
> Hola Mauricio,
>
> Mauricio Alejandro Moreno Castro escribió:
> > Buen día a todos
> >
> > Poseo un inconveniente en un formulario con 4 radio buttons el cual de
> > pendiendo de el RB seleccionado deseo que actualize una celda, para
tal
> > efecto escribi una macro la cual asocio al evento de recepción del
foco y se
> > queda en un bucle infinito que podra ser??
>
> debería leer tu código, para poder emitir una opinión.
> En principio, el evento no es el indicado.
>
> > Existe alguna manera de controlar el evento o crear un listener estilo
> > Java???
>
> lee estos mensajes (y la bibliografía citada!):
> http://es.openoffice.org/servlets/ReadMsg?list=users&msgNo=5851
<http://es.openoffice.org/servlets/ReadMsg?list=users&msgNo=5851>
> http://es.openoffice.org/servlets/ReadMsg?list=users&msgNo=5855
<http://es.openoffice.org/servlets/ReadMsg?list=users&msgNo=5855>
>
>
> > Gracias a todos
> >
> > Mauricio Moreno
> > Feliz Navidad Prospero Año 2008
>
> Saludos,
> Ariel.
>
>
> --
> Ariel Constenla-Haile
> La Plata, Argentina
>
> [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
> [EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
>
> http://www.arielconstenlahaile.com.ar/ooo/
>
>
>
> "Aus der Kriegsschule des Lebens
> - Was mich nicht umbringt,
> macht mich härter."
> Nietzsche Götzendämmerung, Sprüche und Pfeile, 8.
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
> For additional commands, e-mail: [EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
>
>
--
Mauricio Alejandro Moreno Castro
Estudiante de Ing. de Sistemas
F.U.S.M
--
Ariel Constenla-Haile
La Plata, Argentina
[EMAIL PROTECTED]
[EMAIL PROTECTED]
http://www.arielconstenlahaile.com.ar/ooo/
"Aus der Kriegsschule des Lebens
- Was mich nicht umbringt,
macht mich härter."
Nietzsche Götzendämmerung, Sprüche und Pfeile, 8.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
