frmintstan.frm

Unzip this file into a writeable directory. You should end up with a "Geocode" project, as well as

VERSION 5.00
Begin VB.Form frmIntStan 
   Caption         =   "Form2"
   ClientHeight    =   5352
   ClientLeft      =   60
   ClientTop       =   348
   ClientWidth     =   4560
   Icon            =   "frmIntStan.frx":0000
   LinkTopic       =   "Form2"
   ScaleHeight     =   5352
   ScaleWidth      =   4560
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtKeyField 
      Height          =   375
      Index           =   0
      Left            =   840
      Locked          =   -1  'True
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   240
      Width           =   3615
   End
   Begin VB.Label lblKeyField 
      Caption         =   "Label1"
      Height          =   375
      Index           =   0
      Left            =   120
      TabIndex        =   1
      Top             =   240
      Width           =   615
   End
End
Attribute VB_Name = "frmIntStan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'
' frmIntStan.frm - Displays the standardization of an intersection
'
' Part of Geocode.vbp
'
' Author: Andy Bouffard, ESRI(UK) Ltd.; from an original demo by Agatha Tang, ESRI Inc.
' History: Initial ESRI(UK) version - Nov. 13 1998
'
Option Explicit

Private Sub Form_Load()

  Dim success As Boolean
  Dim address As String
  Dim numFields As Integer
  Dim i As Integer

  frmIntStan.Caption = "Intersection Address Standardization"
  
  address = frmGeocode.txtAddr.Text
  success = stan.StandardizeAddress(address)
 
  If success Then
   ' stan.FieldValue("ZN") = frmGeocode.txtZIP.Text
    frmGeocode.txtAddr.DataChanged = False
  '  frmGeocode.txtZIP.DataChanged = False

    lblKeyField(0).AutoSize = True
    lblKeyField(0).Visible = True
    txtKeyField(0).Height = lblKeyField(0).Height
    txtKeyField(0).Text = ""
    txtKeyField(0).Visible = True
    
    lblKeyField(0).Caption = stan.FieldName(0)
    txtKeyField(0).Left = lblKeyField(0).Left + lblKeyField(0).Width + 100
    
    numFields = stan.FieldCount
    
    For i = 1 To numFields - 1
      Load lblKeyField(i)
      Load txtKeyField(i)
      lblKeyField(i).Top = lblKeyField(i - 1).Top + lblKeyField(0).Height + 245
      txtKeyField(i).Top = txtKeyField(i - 1).Top + txtKeyField(0).Height + 150
      
      lblKeyField(i).Visible = True
      txtKeyField(i).Visible = True
      lblKeyField(i).Caption = stan.FieldName(i)
      txtKeyField(i).Text = stan.FieldValue(lblKeyField(i).Caption)
    Next i
    txtKeyField(0).Text = stan.FieldValue(lblKeyField(0).Caption)
    frmStStan.Height = txtKeyField(numFields - 1).Top + 800
    CenterForm Me
  Else
    MsgBox "Cannot Standardize Address", vbExclamation
  End If
  
End Sub