Komplett källkod - Hur du använder postnummerfunktionerna i Visual Basic 2008

Här nedan finns komplett källkod till exemplet som beskrevs på föregående sida. En skärmdump ur utvecklingsmiljön i Visual Studio 2008, med postnummerexemplet öppet, visas också längst ned på sidan.

' Denna händelse aktiveras när formuläret öppnas.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  XPNrLoadTable("C:\VBSL2008\PostNrDatabas\XPOSTNR.DTA")
End Sub

' Denna händelse aktiveras när texten i inmatningskontrollen 'tPostNur' ändras.
Private Sub tPostNr_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)_
                                                                           Handles tPostNr.TextChanged
  Dim PostOrt As String
  Dim Nr As String
  Dim C As Integer
  PostOrt = ""
  ' Hämta 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
End Sub


Skärmdump ur utvecklingsmiljön i Visual Studio 2008