| |
Visual-Basic EinsteigerFunktion funktioniert nur wenn IE der Standartbrowser | | | Autor: Chris1973 | Datum: 07.12.12 07:50 |
| Hallo,
habe folgendes Problem mit VB6. Habe ein kleines Programm geschrieben, dass aus Feldern in einer Datenbank einen Google Maps Link zusammenbastelt.
Mein Proplem ist folgendes.
Wenn ich Internetexplorer als Standardbrowser ausgewählt habe funktioniert alles wunderbar. Wenn andere Browser Standardbrowser sind passiert gar nichts, wenn ich die Schaltfläche anklicke.
Gibts da eine Lösung?
Und wo wir schon dabei sind. Wie kann ich den Link dahingehend "verbessern" das Google Maps nicht im Minimalzoom aufgerufen wird, sondern sagen wir mal im Umkreis von 20km.
Hier der Code:
modul:
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long aufruf:
Private Sub b_googlemaps_Click()
Dim result&
Dim leer As String
Dim mystring As String
Dim thenumber As String
Dim Street As String
leer = "%20"
mystring = v_Strasse
thenumber = ""
Street = ""
For a = 1 To Len(mystring)
If Asc(Mid(mystring, a, 1)) < 58 And Asc(Mid(mystring, a, 1)) > 46 Then _
thenumber = thenumber & Mid(mystring, a, 1) If Asc(Mid(mystring, a, 1)) > _
58 Or Asc(Mid(mystring, a, 1)) <= 46 Then Street = Street & Mid(mystring, a, _
1) Next n0rt = Replace(v_Ort, " ", "%20")
result = ShellExecute(Me.hwnd, "Open", _
"http://maps.google.de/maps?f=q&source=s_q&hl=de&geocode=&q=" & _
Chr(34) & Street & leer & thenumber & leer & v_Plz & leer & nOrt & _
Chr(34), "", App.Path, 1) End Sub | |
Re: Funktion funktioniert nur wenn IE der Standartbrowser | | | Autor: Blackbox | Datum: 07.12.12 18:03 |
| Hi,
Deinen Code etwas übersichtlicher gemacht und ohne rote Schrift ;)
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
Dim result&
Dim leer As String
Dim mystring As String
Dim thenumber As String
Dim Street As String
leer = "%20"
mystring = v_Strasse
thenumber = ""
Street = ""
For a = 1 To Len(mystring)
If Asc(Mid(mystring, a, 1)) < 58 And Asc(Mid(mystring, a, 1)) > _
46 Then _
thenumber = thenumber & Mid(mystring, a, 1)
If Asc(Mid(mystring, a, 1)) > 58 Or Asc(Mid(mystring, a, 1)) <= _
46 Then _
Street = Street & Mid(mystring, a, 1)
Next
n0rt = Replace(v_Ort, " ", "%20")
result = ShellExecute(Me.hwnd, "Open", _
"http://maps.google.de/maps?f=q&source=s_q&hl=de&geocode=&q=" & _
Chr(34) & Street & leer & thenumber & leer & v_Plz & leer & nOrt & _
Chr(34), "", App.Path, 1)
End Sub BS = Windows7 Home Premium 64 Bit
Standardbrowser ist FireFox
und: funktioniert.
Weiß nicht wo das Problem sein sein. | |
Re: Funktion funktioniert nur wenn IE der Standartbrowser | | | Autor: Chris1973 | Datum: 07.12.12 19:21 |
| Das heisst bei Dir hat es auch ohne irgendwelche Änderungen funktioniert?
Mist, dann muss ich das mal auf mehreren Rechnern testen.
Vielen Dank trotzdem
Beitrag wurde zuletzt am 07.12.12 um 19:24:16 editiert. | |
Re: Funktion funktioniert nur wenn IE der Standartbrowser | | | Autor: Chris1973 | Datum: 10.12.12 09:06 |
| hm merkwürdig. Jetzt funktioniert es plötzlich, obwohl ich gar nichts geändert habe. Keine Ahnung woran es gelegen hat.
Eine Frage hätte ich noch.
Wie erhöhe ich den Zoomfaktor?
Ich habe es schon mit &Z=16 versucht, aber das funktioniert irgendwie nicht richtig.
Die Karte wird dann zwar gezoomed, aber sie wird irgendwo positioniert und nicht bei der angegebenen Adresse
Beitrag wurde zuletzt am 10.12.12 um 09:33:40 editiert. | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
sevISDN 1.0
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats Neu! sevCommand 4.0
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere Infos
|