diff options
Diffstat (limited to 'odk/examples/CLI/VB.NET/WriterDemo/WriterDemo.vb')
| -rw-r--r-- | odk/examples/CLI/VB.NET/WriterDemo/WriterDemo.vb | 242 |
1 files changed, 0 insertions, 242 deletions
diff --git a/odk/examples/CLI/VB.NET/WriterDemo/WriterDemo.vb b/odk/examples/CLI/VB.NET/WriterDemo/WriterDemo.vb deleted file mode 100644 index 48eea4e4..00000000 --- a/odk/examples/CLI/VB.NET/WriterDemo/WriterDemo.vb +++ /dev/null @@ -1,242 +0,0 @@ -'************************************************************************* -' -' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -' -' Copyright 2000, 2010 Oracle and/or its affiliates. -' -' OpenOffice.org - a multi-platform office productivity suite -' -' This file is part of OpenOffice.org. -' -' OpenOffice.org is free software: you can redistribute it and/or modify -' it under the terms of the GNU Lesser General Public License version 3 -' only, as published by the Free Software Foundation. -' -' OpenOffice.org is distributed in the hope that it will be useful, -' but WITHOUT ANY WARRANTY; without even the implied warranty of -' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -' GNU Lesser General Public License version 3 for more details -' (a copy is included in the LICENSE file that accompanied this code). -' -' You should have received a copy of the GNU Lesser General Public License -' version 3 along with OpenOffice.org. If not, see -' <http://www.openoffice.org/license.html> -' for a copy of the LGPLv3 License. -' -'************************************************************************* - -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 |