PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 2024 → looking for a VB programmer that Knows windev too or Dephi to Windev
looking for a VB programmer that Knows windev too or Dephi to Windev
Started by Carlos, Aug., 04 2020 7:07 PM - 4 replies
Registered member
8 messages
Posted on August, 04 2020 - 7:07 PM
Hi
I am looking for a VB programmer that Knows windev too
to convert few VB codes to Windev Code

around 5 code lines

Clages1@gmail.com
tks
Registered member
54 messages
Popularité : +2 (2 votes)
Posted on August, 06 2020 - 2:26 PM
Hi Carlos,
try to post your code here, probably someone will know how to help you

Andrea
Posted on August, 07 2020 - 12:21 AM
Hi,

If It's so few lines just post your VB code.

Regards

W.
Registered member
1 message
Popularité : +1 (1 vote)
Posted on August, 07 2020 - 12:23 AM
Hi Carlos,

If It is so few lines just post your VB code here. And I can try

Regards

W.
Posted on February, 03 2021 - 7:30 PM
Hi all
I solved the problem by my self

[Visual Basic]

Dim mi As IMicrocube
Dim slice
Set mi = ContourCubeX1.Cube.LoadMetadata("metadata.lt")
slice = mi.GetSliceNames()(0)
ContourCubeX1.BindMicrocube mi, slice, mi.GetGridNames(slice)(0)
'load data
ContourCubeX1.Cube.LoadData App.Path + "northwind.cube"
ContourCubeX1.Active = True

---------------------
windev soluction working fine

Sfile = fSelect("", "", "Selecione Arquivo ou Digite Nome...", "All the files (*.*)" + TAB + "*.*" + CR + "Tipo Arquivo .Lay" + TAB + "*.Lay;*.Lay", "*.Lay;*.Lay",fselExist)

IF Sfile <> ""
MC is dynamic Automation object

IF MC = Null THEN
MC = ActiveX2>>Cube>>LoadMetadata(Sfile)
END

Slice is Variant
Slice = MC>>GetSliceNames() //// Slice = mc.GetSliceNames()(0)

sliceList is array of string // array with Slices names
sliceList = MC>>GetSliceNames()

Slicename is string = sliceList[1] // I get the First one

gridnameList is Variant
gridnameList = MC>>GetGridNames(Slicename)
Gridname is string = gridnameList[1] // i get the name of the first Grid

ActiveX2>>BindMicrocube(MC, Slicename, Gridname)
ELSE
Info("Select a file please")
END