PROFESSIONAL NEWSGROUPS
WINDEV
,
WEBDEV
and
WINDEV Mobile
Home
|
Recent messages
|
Connect
|
Sign out
|
English
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
Connect yourself…
Carlos
#1
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
Report
0
0
Andrea Chiadò Piat
#2
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
Report
0
0
Ruben Balderrama
#3
Posted on August, 07 2020 - 12:21 AM
Hi,
If It's so few lines just post your VB code.
Regards
W.
Report
1
0
Walter
#4
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.
Report
1
0
Carlos Lages
#5
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
Report
0
0
→ Go back to WINDEV 2024
WINDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (earlier versions)
Français
English
Español
Portuguesa
Close this window
Search type
Only topics
All the messages
Search period
Any time
Past hour
Past 24 hours
Past week
Past month
Past year
Cancel
Preview of your message
Adding an image
Import an image from a URL
Send an image from a file of your disk
Drop a file or click "Browse..."
or
Cancel
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Text