GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
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 Carlos, ago., 04 2020 7:07 PM - 4 respostas
Conecte-se…
Carlos
#1
Membro registado
8 mensagems
Publicado em agosto, 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
Denunciar
0
0
Andrea Chiadò Piat
#2
Membro registado
55 mensagems
Popularité : +2 (2 votes)
Publicado em agosto, 06 2020 - 2:26 PM
Hi Carlos,
try to post your code here, probably someone will know how to help you
Andrea
Denunciar
0
0
Ruben Balderrama
#3
Publicado em agosto, 07 2020 - 12:21 AM
Hi,
If It's so few lines just post your VB code.
Regards
W.
Denunciar
1
0
Walter
#4
Membro registado
1 mensagem
Popularité : +1 (1 vote)
Publicado em agosto, 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.
Denunciar
1
0
Carlos Lages
#5
Publicado em fevereiro, 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
Denunciar
0
0
→ Voltar para WINDEV 2024
WINDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (versões anteriores)
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto