'---------------------------------------------------------------------------------------
' (c) show!time 1995-2003
' Beispielprogramm zum Aufruf der SHOWplz.dll zum Suchen von Postleitzahlen.
' Sie finden ein ausführliches Beispielprogramm unter Downloads
' Tragen Sie in der Entwicklungsumgebung in VB6 unter Projekt / Verweise die Datei:
' c:\windows\system\SHOWplz.dll ein.
'
'in das LostFocus-Event des Eingabefeldes für den Ort

Dim Res As New SHOWplz
Dim A$()
'Liefert die PLZ
Rueck = Res.PLZsuche("D", "Strasse", "Ort", "","","", "Top","Left", "", "")
'liefert den Ort
Rueck = Res.PLZsuche("D", "Strasse", "", "PLZ","","", "Top","Left", "", "")
a$() = Split(Rueck, "|")

If a(8) <> "abbruch" Then
    'Übergabe an die EingabeTextfelder  (u.U. korrigiert)
    Strasse$= a(0)
    PLZ$ = a(4)
    Ort$ = a(5)
    Land$ = a(3)
    Vorwahl$ = a(6)
    BundesLand = a(7)
End If

'das war's