Annonce
L'appel à participation est ouvert jusqu'au 19 janvier 2025!
#1 Mon 07 March 2005 18:13
- Geo Maumet
- Invité
RowValues en MapX5
Bonjour
Je cherche un exemple de l'utilisation des RowValues pour l'insertion d'un
nouvel objet
Avec
[feature=]OBJECT.AddFeature (Source, [RowValues])
Merci
Laurent
#2 Mon 07 March 2005 18:13
- Sylvain Perrinel
- Invité
Re: RowValues en MapX5
Bonjour,
Voila en VB comment on cree une couche et son dataset puis comment on
insere un objet et sa valeur d'enregistrement. En esperant que cela
puisse vous aider...
Set oFlds = New MapXLib.Fields
With oFlds
.AddIntegerField PtDefini
End With
Set oLi = New MapXLib.LayerInfo
'definition des caracteristiques de la couche
With oLi
.Type = miLayerInfoTypeTemp
.addParameter Name , NomCouche
.addParameter DatasetName , NomCouche
.addParameter AutoCreateDataset , True
.addParameter Fields , oFlds
End With
'ajout de la couche
Set LyVol = MapXMap.layers.Add(oLi)
'creation du dataset
Set dsvol = MapXMap.DataSets.Item(NomCouche)
Set rvs = dsvol.RowValues(0)
pt.Set Xdep, Ydep
rvs( PtDefini ).Value = 0
'Creation d'un feature (objet graphique: association du point a son
dataset
Set ftr = LyVol.AddFeature(FeatureFactory.CreateSymbol(pt,
MapXMap.DefaultStyle), rvs)
Bon courage,
Sylvain Perrinel
MAAPR/DGA/SDSI/CERIT
#3 Mon 07 March 2005 18:13
- Frédéric Renversez
- Invité
Re: RowValues en MapX5
Bonjour,
Je cherche un exemple de l'utilisation des RowValues pour l'insertion d'un
nouvel objet
Dim oRvs As New MapXLib.RowValues
Dim oRv As New MapXLib.RowValue
'oLayer est une couche
'oDataset est un dataset portant sur tous les champs de la couche
'ici on n'a que deux champs
Set oFeature = oMap.FeatureFactory.CreateSymbol(oCentroide, oStyle) 'par
exemple
Set oRv.Dataset = oDataset
Set oRv.Field = oDataset.Fields.Item( Champ1 )
oRv.Value = Valeur1
oRvs.add oRv
Set oRv.Field = oDataset.Fields.Item( Champ2 )
oRv.Value = Valeur2
oRvs.add oRv
Set oAddFeature = oLayer.AddFeature(oFeature, oRvs)
Et voila.
Cordialement,
Frederic Renversez
Ingenieur Developpement / SIG
www.i2g.fr
