OpenOffice.info

Code: Alles auswählen

'...
oListener = CreateUnoListener("CheckAction_", "com.sun.star.awt.XMouseListener")

'...

With oDialog1
  '...
  .getControl("Test" & nummer).addMouseListener(oListener)
End With

'...

Sub CheckAction_mouseEntered(rueck)
	Dim s1
	Dim akt_i
	Dim fvh
	Dim ctr
	
	rueck.Source.Model.Border = 2
	
	For i = 0 To UBOUND(Colors())
		If rueck.Source.Model.BackgroundColor = sv.getByName(Colors(i)) Then
			fvh = Colors(i)
			Exit For
		End If
	Next i

	
	oDialog1.Title = fvh 'rueck.Source.Model.BackgroundColor

End Sub

Sub CheckAction_mouseExited( oEvent As Object )
	oEvent.Source.Model.Border = 1
End Sub

Sub CheckAction_mouseReleased( oEvent As Object )
End Sub

Sub CheckAction_mousePressed( oEvent As Object )
	Wait 3000
	oDialog1.Title = oEvent.Source.Model.BackgroundColor
End Sub

Code: Alles auswählen

sub AufgWeiter
	dDialog.SetVisible(false)
print
	wait 3000
print
	dDialog.SetVisible(true)
	z=-2
	AWeiter=1
end sub

Code: Alles auswählen

  	do while not aWeiter
	    wait 100
	loop
	Aweiter=0

Code: Alles auswählen

		dDialog.SetVisible(false)
		oDialog.setVisible(True)
		aweiter=0
		z=-2
		DialogeAuf=1
		do while DialogeAuf
			dDialog.getControl("Stoppuhr").text=z
			if z>=0 then dDialog.SetVisible(True)
			wait 1000
			z=z+1
		loop
		dDialog.SetVisible(false)
		oDialog.setVisible(false)