https://wiki.open-office.es/index.php?action=history&feed=atom&title=Eventos_de_raton_en_OpenOffice_BasicEventos de raton en OpenOffice Basic - Historial de revisiones2026-06-04T03:34:50ZHistorial de revisiones para esta página en el wikiMediaWiki 1.23.5https://wiki.open-office.es/index.php?title=Eventos_de_raton_en_OpenOffice_Basic&diff=12961&oldid=prevSalva: Página creada con «{{Menu|cat=Basic|Titulo=Eventos del ratón o dispositivo apuntador en OOo Basic|vers=4.1.x}} <seo title="Eventos del ratón o dispositivo apuntador en OOo Basic - Apache Op...»2015-05-27T02:32:54Z<p>Página creada con «{{Menu|cat=Basic|Titulo=Eventos del ratón o dispositivo apuntador en OOo Basic|vers=4.1.x}} <seo title="Eventos del ratón o dispositivo apuntador en OOo Basic - Apache Op...»</p>
<p><b>Página nueva</b></p><div>{{Menu|cat=Basic|Titulo=Eventos del ratón o dispositivo apuntador en OOo Basic|vers=4.1.x}}<br />
<seo title="Eventos del ratón o dispositivo apuntador en OOo Basic - Apache OpenOffice Basic" <br />
metakeywords="eventos,raton,mouse,acceso,control,controles,macro,basic,dialogos,starbasic,manual,curso,tutorial,open,office,openoffice,apache openoffice,libreoffice" <br />
metadescription="Eventos del ratón o dispositivo apuntador en lenguaje OOo Basic (StarBasic) en Apache OpenOffice y LibreOffice"/><br />
<br />
{| class="mitb" width="80%" align="center"<br />
|<big><big><br />
:*[[#Ratón entra(Ratón dentro) |Ratón entra (Ratón dentro)]]<br />
:*[[#Mover ratón por medio del teclado |Mover ratón por medio del teclado]]<br />
:*[[#Movimiento de ratón |Movimiento de ratón]]<br />
:*[[#Botón del ratón pulsado |Botón del ratón pulsado]]</big><br />
::*[[#Buttons(short) |Buttons (Short)]]<br />
::*[[#X(long) |X (Long)]]<br />
::*[[#Y(long) |Y (Long)]]<br />
::*[[#ClickCount(long) |ClickCount(Long)]]<big><br />
:*[[#Botón del ratón soltado |Botón del ratón soltado]]<br />
:*[[#Ratón sale(Ratón fuera) |Ratón sale (Ratón fuera)]]</big></big><br />
|}<br />
<br />
<br />
Apache OpenOffice '''''Basic''''' reconoce los siguientes eventos del ratón o dispositivo apuntador: <br />
<br />
<br />
{| class="mitb" align="center" width="90%"<br />
!Evento<br />
!Descripción<br />
|-<br />
|<br />
==== Ratón entra (Ratón dentro) ====<br />
|El usuario ha movido el ratón desde fuera hacia el interior del objeto, entrando en el área del mismo. X e Y almacenan la posición de entrada del cursor.<br />
|-<br />
| <br />
==== Mover ratón por medio del teclado ====<br />
|El usuario arrastra el ratón mediante pulsaciones de una tecla<br />
|-<br />
| <br />
==== Movimiento de ratón ====<br />
|El usuario mueve el ratón sobre el objeto. X e Y almacenan la posición actual del cursor. <br />
|-<br />
| <br />
==== Botón del ratón pulsado ====<br />
|El usuario ha pulsado un botón<br />
|-<br />
| <br />
==== Botón del ratón soltado ====<br />
|El usuario ha soltado el botón pulsado<br />
|-<br />
| <br />
==== Ratón sale (Ratón fuera) ====<br />
|El usuario ha movido el ratón desde el interior del objeto hacia afuera, saliendo del área del mismo. X e Y almacenan la posición de salida del cursor. <br />
|}<br />
<br />
{{Aviso|ancho=80%|imagen=[[image:Señal_Nota.png|link=]]|color=RoyalBlue|imagenpos= | texto=El evento ''Botón del ratón pulsado'' también se utiliza para notificar las solicitudes del menú contextual del control. En este caso, la propiedad '''PopupTrigger''' toma el valor TRUE. <br />
<br />
Si la solicitud se hace pulsando el botón derecho del ratón, el evento se activará dos veces: una por la solicitud del menú contextual ('''PopupTrigger''' toma el valor TRUE), y otra por el clic del ratón ('''PopupTrigger''' toma el valor FALSE).<br />
<br />
Si sólo interesa controlar el clic el procedimiento deberá ignorar la llamada cuando '''PopupTrigger''' es TRUE}}<br />
<br />
<br />
La estructura de los eventos asociados al objeto se definen en la estructura '''''com.sun.star.awt.MouseEvent''''' (ver {{Enlace|http://www.openoffice.org/api/docs/common/ref/com/sun/star/awt/MouseEvent.html|Struct MouseEvent}}) que proporciona la siguiente información: <br />
<br />
<br />
{| class="mitb" align="center" width="90%"<br />
!Propiedad<br />
!Tipo<br />
!Descripción<br />
|-<br />
|<br />
==== Buttons ====<br />
|''Short''<br />
|El botón que ha sido presionado, indicado por una o más de las constantes definidas en la enumeración '''''com.sun.star.awt.MouseButton''''' (ver {{Enlace|https://www.openoffice.org/api/docs/common/ref/com/sun/star/awt/MouseButton.html|Constants group MouseButton}}):<br />
<br />
::'''LEFT''' Botón izquierdo del ratón <br />
::'''RIGHT''' Botón derecho del ratón <br />
::'''MIDDLE''' Botón central del ratón <br />
|-<br />
| <br />
==== X ====<br />
|''Long''<br />
|Coordenada X del ratón, medida en píxeles desde la esquina superior izquierda del control <br />
|-<br />
| <br />
==== Y ====<br />
|''Long''<br />
|Coordenada Y del ratón, medida en píxeles desde la esquina superior izquierda del control <br />
|-<br />
| <br />
==== ClickCount ====<br />
|''Long''<br />
|Número de clics asociados con el evento del ratón. Si Apache OpenOffice responde lo suficientemente rápido, '''''ClickCount''''' puede mostrar un valor 1 cuando se ha realizado un doble clic.<br />
|}<br />
<br />
<br />
Los siguientes ejemplos examinan la posición del ratón, qué botón se ha pulsado, y cuantos clics se han realizado, y depositan la información en un control '''''Label''''' del diálogo. Deben asignarse a los eventos correspondientes de un control (puede ser la misma etiqueta):<br />
<br />
<br />
<syntaxhighlight lang="oobas"><br />
Sub Raton_BotonPulsado( oEv As Object )<br />
'--------------------------------------------------------------------------<br />
Dim Msg As String<br />
If oEv.PopupTrigger Then Exit Sub ' PopupTrigger<br />
Msg = IIf(oEv.ClickCount = 1,"C", "Doble c") & "lic botón " <br />
Select Case oEv.BUTTONS<br />
Case com.sun.star.awt.MouseButton.LEFT<br />
Msg = Msg & "izquierdo"<br />
Case com.sun.star.awt.MouseButton.RIGHT<br />
Msg = Msg & "derecho"<br />
Case com.sun.star.awt.MouseButton.MIDDLE<br />
Msg = Msg & "central"<br />
End Select<br />
Msg = Msg & " pulsado X= " & oEv.X & " Y=" & oEv.Y<br />
oEv.Source.Context.getControl("Label3").Text = Msg<br />
End Sub<br />
</syntaxhighlight><br />
<br />
<br />
<br />
<syntaxhighlight lang="oobas"><br />
Sub Raton_BotonSoltado( oEv As Object )<br />
'--------------------------------------------------------------------------<br />
Dim Msg As String<br />
If oEv.PopupTrigger Then Exit Sub ' PopupTrigger<br />
Msg = IIf(oEv.ClickCount = 1,"C", "Doble c") & "lic botón " <br />
Select Case oEv.BUTTONS<br />
Case com.sun.star.awt.MouseButton.LEFT<br />
Msg = Msg & "izquierdo"<br />
Case com.sun.star.awt.MouseButton.RIGHT<br />
Msg = Msg & "derecho"<br />
Case com.sun.star.awt.MouseButton.MIDDLE<br />
Msg = Msg & "central"<br />
End Select<br />
Msg = Msg & " soltado X= " & oEv.X & " Y=" & oEv.Y<br />
oEv.Source.Context.getControl("Label3").Text = Msg<br />
End Sub<br />
</syntaxhighlight><br />
<br />
<br />
<br />
<syntaxhighlight lang="oobas"><br />
Sub Raton_Mueve( oEv As Object )<br />
'--------------------------------------------------------------------------<br />
oEv.Source.Context.getControl("Label3").Text = "El ratón se mueve por X= " & oEv.X & " Y=" & oEv.Y<br />
End Sub<br />
</syntaxhighlight><br />
<br />
<br />
<br />
<syntaxhighlight lang="oobas"><br />
Sub Raton_Entra( oEv As Object )<br />
'--------------------------------------------------------------------------<br />
oEv.Source.Context.getControl("Label3").Text = "El ratón ha entrado por X= " & oEv.X & " Y=" & oEv.Y<br />
End Sub<br />
</syntaxhighlight><br />
<br />
<br />
<br />
<syntaxhighlight lang="oobas"><br />
Sub Raton_Sale( oEv As Object )<br />
'--------------------------------------------------------------------------<br />
oEv.Source.Context.getControl("Label3").Text = "El ratón ha salido por X= " & oEv.X & " Y=" & oEv.Y<br />
End Sub<br />
</syntaxhighlight><br />
<br />
<br />
{{Aviso|ancho=80%|imagen=[[image:Señal_Nota.png|link=]]|color=RoyalBlue|imagenpos= | texto=Los eventos '''''Click''''' y '''''Doubleclick''''' de VBA no existen en Apache OpenOffice '''''Basic'''''. Pero como hemos visto, es fácil implementar procedimientos que los sustituyan}}<br />
<br />
<br />
{{Aviso|ancho=80%|imagen=[[image:Señal_CopyRight.png|link=]]|color=NavajoWhite|imagenpos=top | texto=<small><small>Texto, imágenes y código bajo licencia [[Image:CC_BY-SA.png|64px|link=http://creativecommons.org/licenses/by-sa/3.0/es/]]<br><small><br>Basado en el documento '''Getting Started with Base. Apache OpenOffice<sup>tm</sup> Database Component''', de '''Drew Jensen''' Copyright 2013 liberado bajo licencia Apache Software License 2.0, que incluye material de:<br />
:*OpenOffice.org 3.3 Getting Started Guide, Chapter 8 - Getting Started with Base, Copyright 2010 Dan Lewis, Iain Roberts, Magnus Adielsson, Jean Hollis Weber, JiHui Choi<br />
:*OpenOffice.org 3.2 BASIC Guide · March 2010, Copyright Oracle Corp.</small></small></small> }}<br />
<br />
{{Pie|Eventos de teclado en OpenOffice Basic|Eventos de teclado|Larga=5}}<br />
[[Category:Ver.4.0.x]][[Category:Ver.3.4.x]][[Category:Ver.3.3.x]][[Category:Ver.3.2.x]][[Category:Ver.3.1.x]]</div>Salva