Tips: Hur du använder postnummerfunktionerna i Visual Basic 2008

Tips: Hur du använder postnummerfunktionerna i Visual Basic 2008

Med VB Super Library följer det med funktioner för hantering av svenska postnummer. Detta tips visar hur du anropar dessa funktioner från ett Visual Basic 2008-program skapat med Visual Studio 2008.

Mappsökvägen C:\VBSL2010 som anges nedan används av VB Super Library 2010. Har du en annan version av VB Super Library installerad så får du justera mappnamnet till det mappnamn som din version använder.

Så här gör du:

1. Starta Visual Studio 2008.
2. Välj menyalternativet File - New Project.
3. Välj 'Windows Form Application' under Visual Basic.
4. Ge projektet ett lämpligt namn, tex "Postnummer". Klicka sen OK.
5. I fönstret Solution Explorer, högerklicka över 'Postnummer'.
6. Välj menyalternativet Add - Existing Item.
6. Välj filen C:\VBSL2010\Ifc\XAPI2000.vb.

Nu har du skapat ett VB 2008-projekt samt adderat gränssnittsfilen XAPI2000.vb, som följer med VB Super Library, till ditt projekt. XAPI2000.vb innehåller anrop till mängder av funktioner i VB Super Library, bl.a funktioner för hantering av svenska postnummer.

Nu ska vi skriva lite programkod som visar hur man anropar postnummerfunktionerna från Visual Basic-kod.

1. Lägg in två inmatningsfält (TextBox-kontroller) på formuläret.
    Döp dem till tPostNr och tOrt.

2. Lägg även in två Label-kontroller på formuläret.
    Du kan ge dem texterna "Postnummer" och "Ort" enligt nedan:



3. Dubbelklicka på formuläret.

4. I Form1_Load-händelsen skriver du in följande kodrad:

XPNrLoadTable("C:\VBSL2010\PostNrDatabas\XPOSTNR.DTA")

Finns filen "XPOSTNR.DTA" i en annan mapp så får du justera sökvägen ovan.

5. Skapa en TextChanged-händelse till inmatingskontrollen tPostNr på formuläret.

6. Lägg in följande kod i denna händelse:

Dim PostOrt As String
Dim Nr As String
Dim C As Integer
PostOrt = ""
' Hmta postnummer från inmatningsfält
Nr = tPostNr.Text
' Formatera först postnumret
XPNrFormatPnr(Nr, False)
' Leta i postnummerdatabasen efter motsvarande ort
If Len(Nr) = 5 Then
    C = XPNrGetPlace(Nr, PostOrt)
    If C = 0 Then
      tOrt.Text = PostOrt
    ElseIf C = 2 Then
      tOrt.Text = "Ingen postnummerdatabas är inladdad!"
    Else
      tOrt.Text = ""
    End If
Else
    tOrt.Text = ""
End If

Nu har du skrivit all programkod som behövs. Provkör och testa. Skriv in exempelvis ditt eget postnummer, eller andra som du känner till, i fältet tPostNr. Postorten kommer att visas automatiskt i tOrt så fort postnummerfältet innehåller 5 siffror.

Komplett källkod till detta exempel finns på denna sida.