I'm an open source junkie and prefer to code in C or Delphi but I work in a windows shop that uses primarily VB 6.0 and the latest stuff is VB.NET... I know it's unfortunate...
I know the proper way... Laziness plays a key... as well as time...
Just thought I'd give the guy a free alternative to spending money on proprietary junk...
If you're funding is tight... just use mapquest... here's a class i wrote for one of my apps to get the uri
Public Class clsMapQuest
Public Function getURI(ByVal sAddress As String, ByVal sCity As String, ByVal sState As String, ByVal sZip As String, _
ByVal eAddress As String, ByVal eCity As String, ByVal eState As String, ByVal eZip As String) As System.Uri
I'm an open source junkie and prefer to code in C or Delphi but I work in a windows shop that uses primarily VB 6.0 and the latest stuff is VB.NET... I know it's unfortunate...
You don't think I realize this... Just trying to be a nice guy and give the guy a free alternative!
I know the proper way... Laziness plays a key... as well as time... Just thought I'd give the guy a free alternative to spending money on proprietary junk...
If you're funding is tight... just use mapquest... here's a class i wrote for one of my apps to get the uri
Public Class clsMapQuest
Public Function getURI(ByVal sAddress As String, ByVal sCity As String, ByVal sState As String, ByVal sZip As String, _
ByVal eAddress As String, ByVal eCity As String, ByVal eState As String, ByVal eZip As String) As System.Uri
Dim url = New System.Uri("http://www.mapquest.com/directions/main.adp?go=1&do=nw&rmm=1&1gi=0&un=m&1da=-1.000000&1rc=L1AAA&cl=EN&qq=1ADqpk24ofB2jYKpLHmT3IrHtNULGZ1VfknQeG8q6dxJgEtN7CeFUnb5SEv%252bJWlcbWPnl0M7%252b67%252bVpZHGFstcHqygipB4A9d3ycQaU2xZGlB95cz%252f2hH3L7KkN9HGXgw5lwfp2xqke87%252fPms3%252beCPWx77qxw68xL9LeHFv%252fl0dBTGY6LmosMXw%253d%253d&ct=NA&r=f&1si=navt&rsres=1&1y=US&1ffi=&1l=2VLCNCRRO9iutFDEWL41bg%253d%253d" _
& "&1g=&1pl=&1v=&" _
& "1n=&1pn=&1a=" _
& sAddress & "&1c=" & sCity & "&1s=" & sState & "&1z=" & sZip & "&2y=US&2ffi=&2l=&2g=&2pl=&2v=&2n=&2pn=&2a=" _
& eAddress & "&2c=" & eCity & "&2s=" & eState & "&2z=" & eZip & "&panelbtn=2")
Return url
End Function
End Class