Welcome to MapForums!

Register, sign in, or use Facebook Connect above to join in and participate in the forum.

When you are signed in, this message, the ads in this row, and the red-underlined link ads all go away.

Subscribe to receive our newsletter.
Subscribe Unsubscribe
Page 1 of 2 12 LastLast
Results 1 to 10 of 14

help me please

This is a discussion on help me please within the MapPoint Desktop Discussion forums, part of the Map Forums category; I'm a beginner in vb and mappoint. I try to learn how to use mappoint in vb thanks to the ...

  1. #1
    misterb83 is offline Junior Member White Belt
    Join Date
    Feb 2003
    Posts
    10

    help me please

    I'm a beginner in vb and mappoint. I try to learn how to use mappoint in vb thanks to the help of mappoint. But i arrive to import datas from excel into mappoint but i can't know how many pushpins there are and how can i connect them.
    Is there some body who can try to help me please?????

    I have written this prog :

    Private Sub Form_Load()

    load_mappoint

    End Sub

    Private Sub load_mappoint()

    Dim MPApp As MapPoint.Application
    Set MPApp = New MapPoint.Application
    MPApp.Visible = True
    MPApp.UserControl = True

    OpenDataSet

    End Sub

    Private Sub OpenDataSet()

    Dim MPApp As MapPoint.Application
    Set MPApp = New MapPoint.Application
    Dim objDataSets As MapPoint.DataSets
    Dim objDataSet As MapPoint.DataSet
    Dim zDataSource As String

    zDataSource = "C:\points.xls!Feuil1!A1:B4"
    Set objDataSets = MPApp.ActiveMap.DataSets
    Set objDataSet = objDataSets.ImportData(zDataSource)
    objDataSet.Symbol = 1

    addlinetomap

    End Sub

    Sub addlinetomap()

    Dim MPApp As MapPoint.Application
    Set MPApp = New MapPoint.Application
    Dim objMap As MapPoint.Map
    Dim objloc1 As MapPoint.Location
    Dim objloc2 As MapPoint.Location

    Set objMap = MPApp.ActiveMap
    MPApp.Visible = True
    MPApp.UserControl = True

    Set objloc1 = objMap.FindResults("Paris").Item(1)
    Set objloc2 = objMap.FindResults("Marseille").Item(1)
    Set objMap.Location = objloc1

    objMap.Shapes.AddLine objloc1, objloc2

    GetAllRecordsOnMap

    End Sub


    Sub GetAllRecordsOnMap()

    Dim MPApp As New MapPoint.Application
    Dim objDataSet As MapPoint.DataSet
    Dim objRecordset As MapPoint.Recordset
    Dim objField As MapPoint.Field
    MPApp.Visible = True
    MPApp.UserControl = True
    'Set objDataSet = MPApp.OpenMap(MPApp.Path & "\Samples\toto.ptm").DataSets("toto")
    Set objDataSet = MPApp.OpenMap("C:\Europe, Monde.ptm").DataSets("Europe, Monde") ' i have an error here but i don't know why, this code comes from the help.

    'Extrait tous les enregistrements
    Set objRecordset = objDataSet.QueryAllRecords

    'Obtient les valeurs
    Dim vals As String
    objRecordset.MoveFirst
    Do Until objRecordset.EOF
    For Each objField In objRecordset.Fields
    vals = vals & CStr(objField.Value) & vbTab
    Next objField
    vals = vals & vbCrLf
    objRecordset.MoveNext
    Loop
    MsgBox vals
    End Sub

  2. #2
    John Meyer's Avatar
    John Meyer is offline Senior Member Blue Belt
    Join Date
    Jul 2002
    Posts
    478
    after ("C:\Europe you have a comma

    Code:
    Set objDataSet = MPApp.OpenMap("C:\Europe, Monde.ptm").
    i have an error here but i don't know why, this code comes from the help.

  3. #3
    misterb83 is offline Junior Member White Belt
    Join Date
    Feb 2003
    Posts
    10

    new problem

    In fact i have tried this :

    Set objDataSet = MPApp.OpenMap("C:\toto.ptm").DataSets("toto")

    It's like the help file.(the example of the help file doesn't function)

    But i think the problem comes from Datasets("toto").

    Vb says " the required element does not exist. Use a name or a valid number of index. ".

    Can you help me again, please????

    Thank you.

  4. #4
    Anonymous is offline Senior Member Black Belt
    Join Date
    Jul 2002
    Posts
    5,137

    Re: new problem

    Bonjour,
    Je n'arrive pas à lancer votre aplication.
    C'est un exe ou un add-in.?

    Ca bloque ici
    Code:
    Private Sub load_mappoint()
    
    Dim MPApp As MapPoint.Application
    (J'ai VB6 et mappoint 2002 Europe)

  5. #5
    misterb83 is offline Junior Member White Belt
    Join Date
    Feb 2003
    Posts
    10

    c'est un exe

    C'est rare de voir une personne parlant le français sur ce forum.

    En fait tu crées un nouveau projet, dans ta forme tu places le composant de mappoint, tu vas ensuite dans projet puis références, tu ajoutes les éléments de mappoint.

    Tu fais un copier/coller de mon programme et ca doit marcher. Le seul problème c'est ce que j'ai déjà indiqué sur ce forum c'est le datasets("toto") qui ne fonctionne pas et pourtant j'ai recopié l'aide de mappoint. Apparement pas mal de codes de cette aide sont faux et vu que je débute en vb j'ai du mal à tout saisir et à tout corriger.

    Si tu peux corriger mon erreur cela me serais utile.

    Autre question : qu'elle est la différence entre une déclaration de ce type

    Dim MPApp As New MapPoint.Application

    et celle ci : Dim objMap As MapPointCtl.Map

    En fait je ne saisi pas encore la différence entre MapPoint.quelquechose et MapPointCtl.quelquechose.
    Peux tu m'éclaicir???
    Merci d'avance pour ton aide.

  6. #6
    John Meyer's Avatar
    John Meyer is offline Senior Member Blue Belt
    Join Date
    Jul 2002
    Posts
    478
    Did you get it working yet?

    If not:

    In your saved map that you are opening "C:\toto.ptm" You do have a dataset named "toto" right?

  7. #7
    Anonymous is offline Senior Member Black Belt
    Join Date
    Jul 2002
    Posts
    5,137

    Re: c'est un exe

    Salut.
    Effectivement, j'ai le meme problème que toi.
    Quand je colle un exemple dans le prog, je dois rajouter Ctl partout.
    Par contre, j'ai récupérer un source ici.
    http://www.elspeet.info/mpgps/
    Il fonctionne trés bien et les fonctions sont définies sans Ctl.
    Je vais me pencher sur le sujet. Moi aussi je commence.
    Je viens de réessayer ton prog et il me dit:Erreur de compilation
    Type défini par l'utilisateur non défini..!!!!
    Ca tourne en rond.
    Dans projet -> Réf, j'ai bien mappoint Ctrl 9.
    Code:
    Private Sub load_mappoint()
    
    Dim MPApp As MapPoint.Application
    Je trouve également que l'aide n'est pas terrible. A part microbile ou John Meyer, on a pas grand chose.
    J'ai cherché un bouquin hier mais il existe rien sur le développement Mappoint.
    C'est quoi ton apli.?
    Moi je cherche a ouvrir un fichier et a placer mes coordonnées dans un tableau et ensuite d'afficher les points séquentiellement.
    On va essayer.
    A+
    Jean

  8. #8
    misterb83 is offline Junior Member White Belt
    Join Date
    Feb 2003
    Posts
    10

    not yet

    For John Meyer:

    In fact i have toto.ptm which is a map and toto.xls which is a file containing latitude/longitude. I don't undesrtand very well what you want to mean. I send you example.jpg and if you can explain to me my error, it's could be very fine.



    Thanks for your help John

    For guest (Jean) :

    C'est étrange ce que tu me dis car chez moi je n'ai pas l'erreur que tu me signales et pourtant j'utilise les mêmes logiciels que toi. En fait à plus ou moyen terme, je désire réaliser la même application que toi mais dans un premier (vu que je suis débutant en vb et en mappoint) je voulais importer des données à partir d'un fichier excel, puis les afficher sur une carte et ensuite relier le points sur la carte. Si tu veux on peut garder contact car cela fait du bien de voir une personne qui galère comme moi, comme quoi je suis pas le seul à estimer que l'aide de microsoft n'est pas terrible. De plus sur le newsgroup de microsoft dédié à la programmation en vb de mappoint, la seule réponse que j'ai eu pour mon problème c'est d'acheter pushpins tool, une application développée sur le site de mp2mag et vendue 75$. Vu que de nombreuses personnes développent des projets et produits je me dis que j'en suis capable aussi.
    Pour résoudre ton pb d'erreur dans projet puis références il y a en tout et pour tout 3 cases à cocher qui concernent mappoint, cherches bien et tu verras, ils se trouvent à la lettre "M".
    Peux tu me dire la différence exacte entre une définition du type
    Dim MPApp as MapPoint.Application et Dim objMap as MapPointCtl.Map????
    Je ne saisi pas bien la différence entre Mappoint.quelquechose et MappointCtl.quelquechose.

    Merci pour ton aide.

  9. #9
    Anonymous is offline Senior Member Black Belt
    Join Date
    Jul 2002
    Posts
    5,137

    Re: not yet

    Voila, j'arrive a lancer ton prog. Il fallait juste cocher une seule appli ds les références ..! Le probléme des Ctl? Je suis comme toi. Peut-être un probleme de version. mon mail: rioult AT inrets.fr
    Ds ton projet tu lances l'application mappoint, pourquoi ne pas faire une fenetre mappoint.

  10. #10
    misterb83 is offline Junior Member White Belt
    Join Date
    Feb 2003
    Posts
    10

    email

    Je viens de t'envoyer un email. Regardes ta boite aux lettres. Merci.

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83