Visual Basic und Mappoint

Dieses Thema Visual Basic und Mappoint im Forum "Windows XP Forum" wurde erstellt von Spazz, 5. Dez. 2006.

Thema: Visual Basic und Mappoint Hallo ich habe über VB 6 Sp5 ein Script gecodet mit dem ich über Mappoint 2002 die Entfernung zwischen 2 Orten...

  1. Hallo ich habe über VB 6 Sp5 ein Script gecodet mit dem ich über Mappoint 2002 die Entfernung zwischen 2 Orten erhalten will um diese in eine DB zu schreiben.

    Folgender Code wurde verwendet

    Code:
      Dim objMap As MapPointctl.Map
      Dim objRoute As MapPointctl.Route
      Dim myDiff As Double
      
      
    Private Sub Form_Load()
    
      Ado.Refresh
    
    End Sub
    
      
    Private Sub Command1_Click()
    
    Ado.Recordset.MoveFirst
    
    
    Do Until Ado.Recordset.EOF = True
    
      Call Route(Ado.Recordset.Fields!kd_plz)
      Ado.Recordset.Fields!routenkilometer = myDiff
      Ado.Recordset.Update
      myDiff = 0
    
    Ado.Recordset.MoveNext
    Loop
      
    
    End Sub
    
    Private Sub Route(PLZ As String)
      
      
      objMap.Save
      Set objMap = MPC.NewMap(geoMapEurope)
      Set objRoute = objMap.ActiveRoute
      If PLZ =  Then PLZ = 92637
      objRoute.Waypoints.Add objMap.FindResults(PLZ).Item(1)
      objRoute.Waypoints.Add objMap.FindResults(92637).Item(1)
      objMap.Saved = True
      objRoute.Calculate
        
      myDiff = CLng(objRoute.Distance)
      
      
        
      Set objMap = Nothing
      Set objRoute = Nothing
    
    End Sub
    
    ich habe nur ein problem. Erstens dauert der Scheiss ewig lange und zweitens verlangt mappoint nach beliebigen einträgen eine eingebe darüber ob ich die map speichern will. wie kann ich dieses Speicherfenster vermeiden?

    Habs versucht mit Object.saved = true aber irgendwie wirkt das nicht.

    jemand ne idee???
     
Die Seite wird geladen...

Visual Basic und Mappoint - Ähnliche Themen

Forum Datum
Visual Basic 2008 - Probleme beim Debuggen Windows XP Forum 26. Dez. 2009
Visual Basic-Befehle oder Makros aufzeichnen - Befehlsketten automatisieren? Windows XP Forum 5. Apr. 2009
Textzeile Visual Basic 2005 Windows XP Forum 5. Jan. 2009
Wininet.dll in Visual Basic 6.0 - Auslesen des verwendeten Proxys bzw. Proxyskri Windows XP Forum 9. Dez. 2008
Veröffentlichen von Projekten in Microsoft Visual Basic 2005 Express Edition Windows XP Forum 23. Dez. 2007