|
| Inicio → 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 |
| Iniciado por clages1, 04,ago. 2020 19:07 - 4 respuestas |
| |
| | | |
|
| |
Miembro registrado
8 mensajes |
|
| Publicado el 04,agosto 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 |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
62 mensajes |
|
| Publicado el 06,agosto 2020 - 14:26 |
Hi Carlos,
try to post your code here, probably someone will know how to help you
Andrea |
| |
| |
| | | |
|
| | |
| |
| Publicado el 07,agosto 2020 - 00:21 |
Hi,
If It's so few lines just post your VB code.
Regards
W. |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
2 mensajes |
|
| Publicado el 07,agosto 2020 - 00:23 |
Hi Carlos,
If It is so few lines just post your VB code here. And I can try
Regards
W. |
| |
| |
| | | |
|
| | |
| |
| Publicado el 03,febrero 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 |
| |
| |
| | | |
|
| | | | |
| | |
|