Collabora Office 24.04 laguntza
Elkarrizketa-koadroek, dokumentuek, inprimakiek edo kontrol grafikoek sortutako gertaerak makroekin lotu daitezke; hain zuzen, horri deritzo gertaeren bidez gidatutako programazioa. Gertaerak makroekin lotzeko metodorik arruntena menuko Gertaerak fitxa eta menuko Elkarrizketa-koadroen editorea Kontrol-propietateen panela dira.
Artefaktu grafikoak, teklatu-sarrerak, saguaren mugimenduak eta gizakien eta makinen arteko beste elkarrekintza batzuk erabiltzailearen portaeraren jarraipena egiten duten UNO entzuleak erabilita kontrolatu daitezke. Entzuleak makro-esleipenen ordezko programa-kode dinamikoak dira. Jarraitu nahi den gertaera bakoitzeko UNO entzule bat sortu daiteke. Entzule bakar batek erabiltzaile-interfazearen kontrol anitz maneiatu ditzake.
Entzuleak elkarrizketa-koadroetako kontrolei lotzen zaizkie, edo dokumentu- edo inprimaki-gertaerei. Entzuleak exekuzio-garaiko elkarrizketa-koadroak sortzeko edo koadro bati kontrolak dinamikoki gehitzeko ere erabiltzen dira.
Adibide honek entzule bat sortzen du Standadr liburutegiko Dialog1 elkarrizketa-koadroaren Button1 botoirako.
# -*- coding: utf-8 -*-
from __future__ import unicode_literals
import uno, unohelper
from com.sun.star.awt import XActionListener
from com.sun.star.awt import ActionEvent
from com.sun.star.lang import EventObject
from com.sun.star.ui.dialogs.ExecutableDialogResults \
import OK, CANCEL
import msgbox as util
_MY_BUTTON = "Button1"
_NIRE_ETIKETA = 'Pythonek entzuten du..'
_DLG_PROVIDER = "com.sun.star.awt.DialogProvider"
def Main(*args):
ui = createUnoDialog("Standard.Dialog1", embedded=True)
ui.Title = "Python X[any]Listener"
ctl = ui.getControl(_MY_BUTTON)
ctl.Model.Label = _MY_LABEL
act = ActionListener()
ctl.addActionListener(act)
rc = ui.execute()
if rc == OK:
MsgBox("Erabiltzaileak elkarrizketa-koadroa onartu du.")
elif rc == CANCEL:
MsgBox("Erabiltzaileak elkarrizketa-koadroa utzi du.")
ui.dispose() # ui.endExecute
ctl.removeActionListener(act)
def createUnoDialog(libr_dlg: str, embedded=False):
""" Sortu elkarrizketa-koadro bat bere kokalekutik """
smgr = XSCRIPTCONTEXT.getComponentContext().ServiceManager
if embedded:
model = XSCRIPTCONTEXT.getDocument()
dp = smgr.createInstanceWithArguments(_DLG_PROVIDER, (model,))
location = "?location=document"
else:
dp = smgr.createInstanceWithContext(_DLG_PROVIDER, ctx)
location = "?location=application"
dlg = dp.createDialog("vnd.sun.star.script:"+libr_dlg+location)
return dlg
class ActionListener(unohelper.Base, XActionListener):
""" Entzun eta zenbatu botoi-klikak """
def __init__(self):
self.count = 0
def actionPerformed(self, evt: ActionEvent):
self.count = self.count + 1
#mri(evt)
if evt.Source.Model.Name == _MY_BUTTON:
evt.Source.Model.Label = _MY_LABEL+ str( self.count )
return
def disposing(self, evt: EventObject): # derrigorrezko errutina
pass
def MsgBox(txt: str):
mb = util.MsgBox(uno.getComponentContext())
mb.addButton("Ok")
mb.show(txt, 0, "Python")
g_exportedScripts = (Main,)
{installation}/program/ direktorioan dagoen msgbox.py scriptak botoi-entzuleen zenbait adibide ditu.
Option Explicit
Const MY_LIBRARY = "Standard", MY_DIALOG = "Dialog1", MY_BUTTON = "Button1"
Const NIRE_ETIKETA = "Basic-ek entzuten du..."
Dim count As Integer
Sub Main
Dim libr As Object ' com.sun.star.script.XLibraryContainer
Dim dlg As Object
Dim ui As Object ' stardiv.Toolkit.UnoDialogControl
Dim ctl As Object ' stardiv.Toolkit.UnoButtonControl
Dim act As Object ' com.sun.star.awt.XActionListener
Dim rc As Object : rc = com.sun.star.ui.dialogs.ExecutableDialogResults
BasicLibraries.LoadLibrary(MY_LIBRARY)
libr = DialogLibraries.GetByName(MY_LIBRARY)
dlg = libr.GetByName(MY_DIALOG)
ui = CreateUnoDialog(dlg)
ui.Title = "Basic X[any]Listener example"
count = 0
ctl = ui.GetControl(MY_BUTTON)
ctl.Model.Label = MY_LABEL
act = CreateUnoListener("awt_", "com.sun.star.awt.XActionListener")
ctl.addActionListener(act)
Select Case ui.Execute
Case rc.OK : MsgBox "Erabiltzaileak elkarrizketa-koadroa onartu du.",, "Basic"
Case rc.CANCEL : MsgBox "Erabiltzaileak elkarrizketa-koadroa utzi du.",, "Basic"
End Select
ui.dispose ' ui.endExecute()
ctl.removeActionListener(act)
End Sub
Private Sub awt_actionPerformed(evt As com.sun.star.awt.ActionEvent)
''' Entzun eta zenbatu botoi-klikak '''
With evt.Source.Model
If .Name = MY_BUTTON Then
count = count + 1
.Label = MY_LABEL+Cstr(count)
End If
End With
End Sub ' awt_actionPerformed
Private Sub awt_disposing(evt As com.sun.star.lang.EventObject) ' mandatory Sub
' zure kodea hemen doa
End Sub ' awt_disposing
Entzuleak normalean elkarrizketa-koadroa irekitzearekin programatzen dira. Entzuleak sortzeko hainbat modu daude, adibidez elkarrizketa-koadroetako gertaeren maneiuaren bidez edo dokumentuetako edo inprimakietako gertaeren kontrolaren bidez.