OpenOffice.info

Code: Alles auswählen

tmp = Split(DeinText, CHR(10))
Msgbox UBOUND(tmp())

Code: Alles auswählen

otext = oLabelPreparation.Peer.Textlines
	
Do While Instr(otext, Chr(10))
	i = Instr(otext, Chr(10))
	otext = right(otext,len(otext)-i)
	n = n + 1
Loop

Code: Alles auswählen

Sub Main
    DialogLibraries.loadLibrary("Standard")
    odlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
    otxt1 = odlg.getcontrol("txt1")
    otextlines = otxt1.Peer.textlines
    ncounter = 0
    for i = 1 to len(otextlines)
        a = mid(otextlines,i,1)
        if asc(a) = 10 then ncounter = ncounter + 1
    next i
    msgbox "Es werden "+ (ncounter +1) + " Zeilen dargestellt"
End Sub

Code: Alles auswählen

.setPropertyValue("MultiLine", true)

Code: Alles auswählen

Dim i As Long
For i = 0 To ubound(dlg.Model.ElementNames())
If Left(dlg.Model.ElementNames(i), 3) = "lbl" OR Left(dlg.Model.ElementNames(i), 3) = "txt" Then dlg.getControl(dlg.Model.ElementNames(i)).Model.Border = 0
Next i

Code: Alles auswählen

REM  *****  BASIC  *****
Global odlg as object


Sub S_Create_Dialog
   
Dim oWindow As Object
Dim oMod As Object
Dim i As Integer
If  not isNull (odlg) then
  if odlg.isVisible() Then
    odlg.setVisible(False)
    odlg.dispose
  end if
end if

REM ***** Initialisierung der Eigenschaften des Dialogs
odlgModel = CreateUnoService("com.sun.star.awt.UnoControlDialogModel")

With odlgModel
   .setPropertyValue("PositionX", 320)
   .setPropertyValue("PositionY", 111 )
   .setPropertyValue("FontName", Font)
   .setPropertyValue("Width", 150)
   .setPropertyValue("Height", 200)
   .setPropertyValue("Title", "Text")
   .setPropertyValue("Name", "DLG")
   '.setPropertyValue("DesktopAsParent", True )
End With
       
odlg = CreateUnoService("com.sun.star.awt.UnoControlDialog")
       

REM **********numerisches Feld erzeugen       
oMod = odlgModel.createInstance("com.sun.star.awt.UnoControlEditModel")
With oMod
   .setPropertyValue("Name", "Test")
   .setPropertyValue("PositionX", 10)
   .setPropertyValue("PositionY", 10)
   .setPropertyValue("Height", 180)
   .setPropertyValue("Width", 130)
   .setPropertyValue("MultiLine", true)
   .setPropertyValue("Text","konnte ich nicht glauben, Lösung:Wenn Du das Model des Textfeldes dynamisch erzeugst, mußt du ihm die Eigenschaft der Mehrzeiligkeit mitgeben, alakonnte ich nicht glauben, Lösung:Wenn Du das Model des Textfeldes dynamisch erzeugst, mußt du ihm die Eigenschaft der Mehrzeiligkeit mitgeben, ala")
   
End With     
odlgModel.insertByName("Test", oMod)
odlg.setModel(odlgModel)
     
     
REM ********** Mittels des Modells den Dialog anzeigen
oWindow = CreateUnoService("com.sun.star.awt.Toolkit")
odlg.createPeer(oWindow, null)
Dim oWindowsListener as Object
oTopWindowsListener = CreateUnoListener( "Top_Win_", "com.sun.star.awt.XTopWindowListener" )
odlg.addTopWindowListener(oTopWindowsListener)
odlg.setVisible(True)
sTextlines = odlg.getcontrol("Test").Peer.Textlines
atemp = split(sTextlines,chr(10))
odlg.title = "der umgebrochene Text hat "+(Ubound(atemp)+1)+" Zeilen"

End Sub


'Diese Routinen werden von dem XTopWindowListener benötigt
Sub Top_Win_windowClosing( oEvent ) 'Dialog schließen
    odlg.setVisible(False)
End Sub

Sub Top_Win_disposing( )
End Sub
Sub Top_Win_windowOpened   ( oEvent )
End sub
Sub Top_Win_windowClosed   ( oEvent )
End sub 
Sub Top_Win_windowMinimized   ( oEvent )
End sub
Sub Top_Win_windowNormalized   ( oEvent )
End sub
Sub Top_Win_windowActivated   ( oEvent )
Top_Win_windowDeactivated = false
End sub
function Top_Win_windowDeactivated ( oEvent ) as boolean
    Top_Win_windowDeactivated = true
End function

Code: Alles auswählen

.border = -1