追加フォームクラス

まず住所検索ボタンクリック処理から始めます。

【住所検索ボタンクリック処理】

• 入力された郵便番号を引数に指定して、郵便番号データ管理クラスのインスタンスを生成
• 都道府県名プロパティから都道府県名、市区町村名プロパティから市区町村名、町域名プロパティから町域名を取得し、各コントロールのTextプロパティにセット
• 入力した郵便番号にエラーがあれば、郵便番号例外がスローされ、データベースでエラーが発生すれば、データベースIO例外をスローされるので、それぞれの例外に応じたエラー処理を実装

得意先登録ボタン・フォーム初期設定・全項目クリアボタン処理 はこちら

'////////// 得意先マスター追加画面クラス //////////
Public Class FormTokuisakiTouroku

    '*******************************************************
    ' 住所検索ボタンクリック処理
    '*******************************************************
    Private Sub BtnJushoKensaku_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles BtnJushoKensaku.Click

        Try
            ' 県名･市町村名･町域名を取得し画面に表示
            Dim yubinBango As New ClsYubinBango(TxtYubinBango.Text)
            CmbTodofukenMei.Text = yubinBango.TodofukenMei
            ' 市町村名と町域名を連結して表示
            TxtShikuchosonMei.Text = _
                yubinBango.ShikuchosonMei & yubinBango.ChoikiMei
            TxtJusho.Text = Nothing
            ' 住所にフォーカス
            TxtJusho.Focus()
        Catch ex As YubinBangoException
            ' 郵便番号エラー処理
            MessageBox.Show(ex.Message, "郵便番号入力エラー")
            ' 郵便番号にフォーカス
            TxtYubinBango.Focus()
        Catch ex As DBIOException
            MessageBox.Show(ex.Message, "DBIO例外発生")
        Catch ex As Exception
            ' その他例外発生時
            MessageBox.Show(ex.ToString, "例外発生")
        End Try

    End Sub

    ' 得意先登録ボタンクリック・フォーム初期設定・全項目クリアボタンクリック処理

End Class