PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → 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
Débuté par Carlos, 04 aoû. 2020 19:07 - 4 réponses
#1
Membre enregistré
8 messages
Posté le 04 août 2020 - 19:07
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
#2
Membre enregistré
54 messages
Popularité : +2 (2 votes)
Posté le 06 août 2020 - 14:26
Hi Carlos,
try to post your code here, probably someone will know how to help you

Andrea
#3
Posté le 07 août 2020 - 00:21
Hi,

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

Regards

W.
#4
Membre enregistré
1 message
Popularité : +1 (1 vote)
Posté le 07 août 2020 - 00:23
Hi Carlos,

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

Regards

W.
#5
Posté le 03 février 2021 - 19:30
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
→ Revenir à WINDEV 2024