Saludos. Estoy intentando insertar un botón de comando (con código). Me ha resultado.
Luego intento programarle un Acontecimiento. Consistiría en insertarle el enlace a una macro en el campo "Botón del ratón soltado" para que al dar clic ejecute dicho código. En el wiki hay algo de información pero es muy concisa y resulta dificil de interpretar. Es mas dificil aún, interpretar las lineas que ofrecen en 'http://api.openoffice.org/docs/common/ref/com/sun..' Ahora bien, Mi intento va así: Sub InsertaBotonYAcontecimiento oSheet=Thiscomponent.CurrentController.ActiveSheet ControlBoton1 = Thiscomponent.createInstance("com.sun.star.drawing.ControlShape") ControlBox1=Thiscomponent.createInstance("com.sun.star.form.component.CommandButton") Dim oPos as new com.sun.star.awt.Point oPos.X = 8000 : oPos.Y = 5000 ControlBoton1.setPosition(oPos) Dim oSize as new com.sun.star.awt.Size oSize.Width = 4000 : oSize.Height = 2000 ControlBoton1.setSize(oSize) ControlBox1.Name="botonflotante2" ControlBox1.label="Suspender Proceso" ControlBox1.FontHeight = 15 ControlBox1.FontName="Times" ControlBox1.BackgroundColor=13434879 ControlBox1.MultiLine = True 'False ControlBoton1.setControl(ControlBox1) oSheet.DrawPage.add(ControlBoton1) ' Hasta aqui se crea el botón OK... ' Ahora el intento de insertar el acontecimiento...! '--------------------- comentarios 'He intentado comprender los contenidos de: 'http://api.openoffice.org/docs/common/ref/com/sun/star/awt/XMouseClickHandler.html#mousePressed 'http://api.openoffice.org/docs/common/ref/com/sun/star/xml/dom/events/EventType.html#click 'http://api.openoffice.org/docs/common/ref/com/sun/star/script/ScriptEventDescriptor.html '------------------------------------------- Dim sInterfazListener$, sEventMethod$, sScriptCode$ sInterfazListener = "com.sun.star.awt.XMouseListener" sEventMethod ="mousePressed" sScriptCode = "vnd.sun.star.script:LISTAS.Module1.ParaStop?language=Basic&location=document" ' macro a ejecutar post-click Dim oEvents(0) As New Com.sun.star.script.ScriptEventDescriptor oEvents(0).ListenerType = sInterfazListener oEvents(0).EventMethod = sEventMethod oEvents(0).AddListenerParam = "" oEvents(0).ScriptType = "StarBasic" oEvents(0).ScriptCode = sScriptCode oForms =ThisComponent.CurrentController.ActiveSheet.DrawPage ' ' Idenfiticando el boton insertado. If oForms.Count = 0 Then msgbox "NO HAY BOTONES" Exit Sub endif For n = 0 To oForms.Count-1 oShape = oForms.getByIndex(n) nombrebox=oForms.Forms.getByIndex(0).Getbyindex(n) if nombrebox.name="botonflotante2" then nombrebox.label="cambia nombre" '<- Para saber si es ' localizado nombrebox.registerScriptEvent(n,oEvents(0))'<- No funciona Exit For endif Next n End sub ¿Qué tan diferente sería el insertar una macro en los acontecimiento para: un checkbox o en un textbox? 'Teoria sobre esto es muy escasa. Hasta hoy logré encontrar una pequeña lista de las "Propiedades General" para los campos de control (.label= , .FontHeight = , .FontName= , .BackgroundColor= , .MultiLine = True). Pero sobre los Acontencimientos no encuentro: Nada, Nada Nada... ! Gracias por sus apoyos. Atte. Alejandro ______________________________________________ Enviado desde Correo Yahoo! La bandeja de entrada más inteligente. --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
