Help Regarding OpenOffice and VB

[samdotnetprg]

Hi All,

First of all... thanks a ton for the code snippets posted by lot of you guys!!! It really helped me create a calc file and manipulate the cells of the file. THNKS A TON!!!

I am facing a problem now.... I hv the code that would write in a cell, change cell color etc. The task ahead of me is how do I draw borders to the cell?

Tried creating a function as under :

Function MakeCellBorderLine(nColor, nInnerLineWidth, nOuterLineWidth, nLineDistance) As com.sun.star.Table.BorderLine
oBorderLine = createUnoStruct("com.sun.star.table.BorderLine")
With oBorderLine
.Color = nColor
.innerlinewidth = nInnerLineWidth
.outerlinewidth = nOuterLineWidth
.linedistance = nLineDistance
End With

MakeCellBorderLine = oBorderLine
End Function

The above function would NEVER BE possible without the snippets posted on this forum. Anyways...... when I run my application it gives me the following error :
"User-defined type not defined"

Can someone tell me what do I need to do and where am I going wrong????

Thanks a ton once again......... take care guys !!

Rgds,
SAM

[Mark B]

Hi Sam,

This seems to be one of areas where the api doesn't work exactly as you'd expect, I've found that the only way to change the borders is by making use of the setPropertyValues method:

[samdotnetprg]

Hi mark,

Thanks for your reply. Can I ask you a question please?? Would like to know is there any way where in we can use reference of com.sun.star in VB???

What I mean to ask is ... like in VB.NET we say :
imports System.Oledb.Data


In ASP.NET we say : using System.Data.OleDb

Similarly if i want to expose the properties of OpenOffice API's in VB.... whatz the way?? Am just not able to proceed further. The solution that you gave me gives me an error that says : Complie Error : Expected =

Any take on this??

Rgds,
SAM

[samdotnetprg]

Posted: Tue Nov 27, 2007 2:28 am Post subject: Hey Mark !!

--------------------------------------------------------------------------------

Hi mark,

Thanks for your reply. Can I ask you a question please?? Would like to know is there any way where in we can use reference of com.sun.star in VB???

What I mean to ask is ... like in VB.NET we say :
imports System.Oledb.Data


In ASP.NET we say : using System.Data.OleDb

Similarly if i want to expose the properties of OpenOffice API's in VB.... whatz the way?? Am just not able to proceed further. The solution that you gave me gives me an error that says : Complie Error : Expected =

Any take on this??

Rgds,
SAM

[vitcaro]

In VB6 the code is:

Function MakeCellBorderLine(nColor&, nInnerLineWidth%, nOuterLineWidth%, nLineDistance%) As object
dim oBorderLine as object
set oBorderLine = createUnoStruct("com.sun.star.table.BorderLine")
With oBorderLine
.Color = nColor
.innerlinewidth = nInnerLineWidth
.outerlinewidth = nOuterLineWidth
.linedistance = nLineDistance
End With

set MakeCellBorderLine = oBorderLine
End Function