From 940b4d1848e8c70ab7642901a68594e8016caffc Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sat, 27 Apr 2024 18:51:28 +0200 Subject: Adding upstream version 1:7.0.4. Signed-off-by: Daniel Baumann --- odk/examples/CLI/VB.NET/WriterDemo/WriterDemo.vb | 233 +++++++++++++++++++++++ 1 file changed, 233 insertions(+) create mode 100644 odk/examples/CLI/VB.NET/WriterDemo/WriterDemo.vb (limited to 'odk/examples/CLI/VB.NET/WriterDemo/WriterDemo.vb') diff --git a/odk/examples/CLI/VB.NET/WriterDemo/WriterDemo.vb b/odk/examples/CLI/VB.NET/WriterDemo/WriterDemo.vb new file mode 100644 index 000000000..4306bfd20 --- /dev/null +++ b/odk/examples/CLI/VB.NET/WriterDemo/WriterDemo.vb @@ -0,0 +1,233 @@ +' +' 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 ") + +xTextTable.getCellByName("A3").setValue(21.5) +xTextTable.getCellByName("B3").setValue (615.3) +xTextTable.getCellByName("C3").setValue( -315.7) +xTextTable.getCellByName("D3").setFormula( "sum ") + +xTextTable.getCellByName("A4").setValue( 121.5) +xTextTable.getCellByName("B4").setValue( -615.3) +xTextTable.getCellByName("C4").setValue( 415.7) +xTextTable.getCellByName("D4").setFormula( "sum ") + +'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 -- cgit v1.2.3