forked from amazingfate/loongoffice
2b4fd2c89a
Patches contributed by Pedro Giffuni:
Avoid some uses of non portable #!/bin/bash in shell scripts.
http://svn.apache.org/viewvc?view=revision&revision=1235297
Reduce the dependencies on non standard GNU copy.
http://svn.apache.org/viewvc?view=revision&revision=1238684
Correct /usr/bin/env path.
http://svn.apache.org/viewvc?view=revision&revision=1235619
Complex Toolbar Controls Extension from the SDK
Patches contributed by Ariel Constenla-Haile
http://svn.apache.org/viewvc?view=revision&revision=1190390
i118615 - make epm more verbose
http://svn.apache.org/viewvc?view=revision&revision=1204288
Patches contributed by Mathias Bauer (and others)
gnumake4 work variously
http://svn.apache.org/viewvc?view=revision&revision=1394707
http://svn.apache.org/viewvc?view=revision&revision=1394326
Patches contributed by Juergen Schmidt:
jsc341: i117327: take care if no dependency node in current
description exists, create one
http://svn.apache.org/viewvc?view=revision&revision=1172101
jsc341: i117327: add extra extension dependency check
http://svn.apache.org/viewvc?view=revision&revision=1172098
make initial branding changes
http://svn.apache.org/viewvc?view=revision&revision=1231878
Patches contributed by Ingo Schmidt
native373: #i117733# no linux jre installation on 64 bit systems
http://svn.apache.org/viewvc?view=revision&revision=1167536
native373: ##164464# improve debian support
http://svn.apache.org/viewvc?view=revision&revision=1167537
Patch contribtued by Armin Le-Grand:
Changed various aspects concerning usages of old vendor names
http://svn.apache.org/viewvc?view=revision&revision=1293313
fix for neon webdav, remove coinmp bits, improve odk script,
cleanup & remove OS/2 conditionals, system ucpp fixes,
remove OS/2 conditionals, restore our license filenames.
234 lines
8.9 KiB
VB.net
234 lines
8.9 KiB
VB.net
'
|
|
' This file is part of the LibreOffice project.
|
|
'
|
|
' This Source Code Form is subject to the terms of the Mozilla Public
|
|
' License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
' file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
'
|
|
' This file incorporates work covered by the following license notice:
|
|
'
|
|
' Licensed to the Apache Software Foundation (ASF) under one or more
|
|
' contributor license agreements. See the NOTICE file distributed
|
|
' with this work for additional information regarding copyright
|
|
' ownership. The ASF licenses this file to you under the Apache
|
|
' License, Version 2.0 (the "License"); you may not use this file
|
|
' except in compliance with the License. You may obtain a copy of
|
|
' the License at http://www.apache.org/licenses/LICENSE-2.0 .
|
|
'
|
|
|
|
Option Explicit On
|
|
Option Strict On
|
|
|
|
imports System
|
|
imports System.Collections
|
|
imports Microsoft.VisualBasic
|
|
imports unoidl.com.sun.star.lang
|
|
imports unoidl.com.sun.star.uno
|
|
imports unoidl.com.sun.star.bridge
|
|
imports uno.util
|
|
|
|
Module WriterDemo
|
|
|
|
Sub Main( ByVal args() As String)
|
|
' If args.Length <> 2 Then
|
|
' Console.WriteLine("WriterDemo takes two arguments. A file url to the office" & _
|
|
' "program directory and a connection string.")
|
|
' End If
|
|
'Connect to a running office
|
|
'--------------------------------------------------
|
|
|
|
'Create a service manager of the remote office
|
|
'Dim ht As Hashtable = New Hashtable()
|
|
'ht.Add("SYSBINDIR", args(0))
|
|
Dim xContext As XComponentContext
|
|
'xLocalContext = Bootstrap.defaultBootstrap_InitialComponentContext( _
|
|
' args(0) & "/uno.ini", ht.GetEnumerator())
|
|
|
|
xContext = Bootstrap.bootstrap()
|
|
|
|
'Dim xURLResolver As XUnoUrlResolver
|
|
'xURLResolver = DirectCast(xLocalContext.getServiceManager(). _
|
|
' createInstanceWithContext("com.sun.star.bridge.UnoUrlResolver", _
|
|
' xLocalContext), XUnoUrlResolver)
|
|
|
|
'Dim xRemoteContext As XComponentContext
|
|
'xRemoteContext = DirectCast(xURLResolver.resolve( _
|
|
' "uno:socket,host=localhost,port=8100;urp;StarOffice.ComponentContext"), _
|
|
' XComponentContext)
|
|
|
|
Dim xFactory As XMultiServiceFactory
|
|
xFactory = DirectCast(xContext.getServiceManager(), _
|
|
XMultiServiceFactory)
|
|
|
|
'Create the Desktop
|
|
Dim xDesktop As unoidl.com.sun.star.frame.XDesktop
|
|
xDesktop = DirectCast(xFactory.createInstance("com.sun.star.frame.Desktop"), _
|
|
unoidl.com.sun.star.frame.XDesktop)
|
|
|
|
'Open a new empty writer document
|
|
Dim xComponentLoader As unoidl.com.sun.star.frame.XComponentLoader
|
|
xComponentLoader = DirectCast(xDesktop, unoidl.com.sun.star.frame.XComponentLoader)
|
|
Dim arProps() As unoidl.com.sun.star.beans.PropertyValue = _
|
|
New unoidl.com.sun.star.beans.PropertyValue(){}
|
|
Dim xComponent As unoidl.com.sun.star.lang.XComponent
|
|
xComponent = xComponentLoader.loadComponentFromURL( _
|
|
"private:factory/swriter", "_blank", 0, arProps)
|
|
Dim xTextDocument As unoidl.com.sun.star.text.XTextDocument
|
|
xTextDocument = DirectCast(xComponent, unoidl.com.sun.star.text.XTextDocument)
|
|
|
|
'Create a text object
|
|
Dim xText As unoidl.com.sun.star.text.XText
|
|
xText = xTextDocument.getText()
|
|
|
|
Dim xSimpleText As unoidl.com.sun.star.text.XSimpleText
|
|
xSimpleText = DirectCast(xText, unoidl.com.sun.star.text.XSimpleText)
|
|
|
|
'Create a cursor object
|
|
Dim xCursor As unoidl.com.sun.star.text.XTextCursor
|
|
xCursor = xSimpleText.createTextCursor()
|
|
|
|
'Inserting some Text
|
|
xText.insertString(xCursor, "The first line in the newly created text document." _
|
|
& vbLf, false)
|
|
|
|
'Create instance of a text table with 4 columns and 4 rows
|
|
Dim objTextTable As Object
|
|
objTextTable= DirectCast(xTextDocument, unoidl.com.sun.star.lang.XMultiServiceFactory). _
|
|
createInstance("com.sun.star.text.TextTable")
|
|
Dim xTextTable As unoidl.com.sun.star.text.XTextTable
|
|
xTextTable = DirectCast(objTextTable, unoidl.com.sun.star.text.XTextTable)
|
|
xTextTable.initialize(4, 4)
|
|
xText.insertTextContent(xCursor, xTextTable, false)
|
|
|
|
'Set the table background color
|
|
Dim xPropertySetTable As unoidl.com.sun.star.beans.XPropertySet
|
|
xPropertySetTable = DirectCast(objTextTable, unoidl.com.sun.star.beans.XPropertySet)
|
|
xPropertySetTable.setPropertyValue("BackTransparent", New uno.Any(False))
|
|
xPropertySetTable.setPropertyValue("BackColor", New uno.Any(&Hccccff))
|
|
|
|
'Get first row
|
|
Dim xTableRows As unoidl.com.sun.star.table.XTableRows
|
|
xTableRows = xTextTable.getRows()
|
|
Dim anyRow As uno.Any
|
|
anyRow = DirectCast(xTableRows, unoidl.com.sun.star.container.XIndexAccess).getByIndex( 0)
|
|
|
|
'Set a different background color for the first row
|
|
Dim xPropertySetFirstRow As unoidl.com.sun.star.beans.XPropertySet
|
|
xPropertySetFirstRow = DirectCast(anyRow.Value, unoidl.com.sun.star.beans.XPropertySet)
|
|
xPropertySetFirstRow.setPropertyValue("BackTransparent", New uno.Any(False))
|
|
xPropertySetFirstRow.setPropertyValue("BackColor", New uno.Any(&H6666AA))
|
|
|
|
'Fill the first table row
|
|
insertIntoCell("A1","FirstColumn", xTextTable)
|
|
insertIntoCell("B1","SecondColumn", xTextTable)
|
|
insertIntoCell("C1","ThirdColumn", xTextTable)
|
|
insertIntoCell("D1","SUM", xTextTable)
|
|
|
|
'Fill the remaining rows
|
|
xTextTable.getCellByName("A2").setValue(22.5)
|
|
xTextTable.getCellByName("B2").setValue(5615.3)
|
|
xTextTable.getCellByName("C2").setValue(-2315.7)
|
|
xTextTable.getCellByName("D2").setFormula("sum <A2:C2>")
|
|
|
|
xTextTable.getCellByName("A3").setValue(21.5)
|
|
xTextTable.getCellByName("B3").setValue (615.3)
|
|
xTextTable.getCellByName("C3").setValue( -315.7)
|
|
xTextTable.getCellByName("D3").setFormula( "sum <A3:C3>")
|
|
|
|
xTextTable.getCellByName("A4").setValue( 121.5)
|
|
xTextTable.getCellByName("B4").setValue( -615.3)
|
|
xTextTable.getCellByName("C4").setValue( 415.7)
|
|
xTextTable.getCellByName("D4").setFormula( "sum <A4:C4>")
|
|
|
|
'Change the CharColor and add a Shadow
|
|
Dim xPropertySetCursor As unoidl.com.sun.star.beans.XPropertySet
|
|
xPropertySetCursor = DirectCast(xCursor, unoidl.com.sun.star.beans.XPropertySet)
|
|
xPropertySetCursor.setPropertyValue("CharColor", New uno.Any(255))
|
|
xPropertySetCursor.setPropertyValue("CharShadowed", New uno.Any(true))
|
|
|
|
'Create a paragraph break
|
|
xSimpleText.insertControlCharacter(xCursor, _
|
|
unoidl.com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False)
|
|
|
|
'Inserting colored Text.
|
|
xSimpleText.insertString(xCursor," This is a colored Text - blue with shadow" & vbLf, _
|
|
False)
|
|
|
|
'Create a paragraph break
|
|
xSimpleText.insertControlCharacter(xCursor, _
|
|
unoidl.com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False)
|
|
|
|
'Create a TextFrame.
|
|
Dim objTextFrame As Object
|
|
objTextFrame = DirectCast(xTextDocument, unoidl.com.sun.star.lang.XMultiServiceFactory). _
|
|
createInstance("com.sun.star.text.TextFrame")
|
|
|
|
Dim xTextFrame As unoidl.com.sun.star.text.XTextFrame = _
|
|
DirectCast(objTextFrame, unoidl.com.sun.star.text.XTextFrame)
|
|
|
|
'Set the size of the frame
|
|
Dim aSize As unoidl.com.sun.star.awt.Size = _
|
|
New unoidl.com.sun.star.awt.Size(15000, 400)
|
|
DirectCast(xTextFrame, unoidl.com.sun.star.drawing.XShape).setSize(aSize)
|
|
|
|
'Set anchortype
|
|
Dim xPropertySetFrame As unoidl.com.sun.star.beans.XPropertySet
|
|
xPropertySetFrame = DirectCast(xTextFrame, unoidl.com.sun.star.beans.XPropertySet)
|
|
xPropertySetFrame.setPropertyValue("AnchorType", New uno.Any( _
|
|
GetType(unoidl.com.sun.star.text.TextContentAnchorType), _
|
|
unoidl.com.sun.star.text.TextContentAnchorType.AS_CHARACTER))
|
|
|
|
'insert the frame
|
|
xText.insertTextContent(xCursor, xTextFrame, False)
|
|
|
|
'Get the text object of the frame
|
|
|
|
Dim xFrameText As unoidl.com.sun.star.text.XText
|
|
xFrameText = xTextFrame.getText()
|
|
|
|
Dim xFrameSimpleText As unoidl.com.sun.star.text.XSimpleText
|
|
xFrameSimpleText = DirectCast(xFrameText, unoidl.com.sun.star.text.XSimpleText)
|
|
|
|
'Create a cursor object
|
|
Dim xFrameCursor As unoidl.com.sun.star.text.XTextCursor
|
|
xFrameCursor = xFrameSimpleText.createTextCursor()
|
|
|
|
'Inserting some Text
|
|
xFrameSimpleText.insertString(xFrameCursor, _
|
|
"The first line in the newly created text frame.", False)
|
|
xFrameSimpleText.insertString(xFrameCursor, _
|
|
vbLf & "With this second line the height of the frame raises.", False)
|
|
|
|
'Create a paragraph break
|
|
xSimpleText.insertControlCharacter(xFrameCursor, _
|
|
unoidl.com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False)
|
|
|
|
'Change the CharColor and add a Shadow
|
|
xPropertySetCursor.setPropertyValue("CharColor", New uno.Any(65536))
|
|
xPropertySetCursor.setPropertyValue("CharShadowed", New uno.Any(False))
|
|
|
|
'Insert another string
|
|
xText.insertString(xCursor, vbLf + " That's all for now !!", False)
|
|
|
|
End Sub
|
|
|
|
Sub insertIntoCell(sCellName As String,sText As String, _
|
|
xTable As unoidl.com.sun.star.text.XTextTable)
|
|
Dim xCell As unoidl.com.sun.star.table.XCell
|
|
xCell = xTable.getCellByName(sCellName)
|
|
|
|
Dim xSimpleTextCell As unoidl.com.sun.star.text.XSimpleText
|
|
xSimpleTextCell = DirectCast(xCell, unoidl.com.sun.star.text.XSimpleText)
|
|
|
|
Dim xCursor As unoidl.com.sun.star.text.XTextCursor
|
|
xCursor = xSimpleTextCell.createTextCursor()
|
|
|
|
Dim xPropertySetCursor As unoidl.com.sun.star.beans.XPropertySet
|
|
xPropertySetCursor = DirectCast(xCursor, unoidl.com.sun.star.beans.XPropertySet)
|
|
|
|
xPropertySetCursor.setPropertyValue("CharColor", New uno.Any(&Hffffff))
|
|
xSimpleTextCell.insertString(xCursor, sText, False)
|
|
End Sub
|
|
|
|
End Module
|