FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
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
Connectez-vous…
Carlos
#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
Signaler
0
0
Andrea Chiadò Piat
#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
Signaler
0
0
Ruben Balderrama
#3
Posté le 07 août 2020 - 00:21
Hi,
If It's so few lines just post your VB code.
Regards
W.
Signaler
1
0
Walter
#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.
Signaler
1
0
Carlos Lages
#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
Signaler
0
0
→ Revenir à WINDEV 2024
WINDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (précédentes versions)
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte