サンプルプログラム

【得意先確認ボタンクリック処理】

• 得意先コードを引数に指定して、得意先クラスのインスタンスを生成
• 得意先名称プロパティから得意先名称を、得意先住所プロパティから得意先住所を取得し、ラベルにセット
• 得意先コード入力不可に設定
• 得意先確定ボタンをクリック不可、得意先変更ボタンをクリック可能に設定

【得意先変更ボタンクリック処理】

• 得意先コード、得意先名称、得意先住所をクリア
• 得意先コードを入力可能、得意先コードにフォーカス設定
• 得意先確定ボタンをクリック可能、得意先変更ボタンをクリック不可に設定

ソースリストの枠内をクリックすると全選択できます。

    '*******************************************************
    ' 得意先確認ボタンクリック処理
    '*******************************************************
    Private Sub BtnTokuisakiKakutei_Click _
        (ByVal sender As System.Object, _
        ByVal e As System.EventArgs) _
        Handles BtnTokuisakiKakutei.Click

        Try
            ' 得意先名称と住所を取得し画面に表示
            Dim tokuisaki As ClsTokuisaki
            tokuisaki = New ClsTokuisaki(TxtTokuisakiCode.Text)
            LblTokuisakiMeisho.Text = tokuisaki.TokuisakiMeisho
            LblTokuisakiJusho.Text = tokuisaki.TokuisakiJusho
            ' 得意先コード入力不可
            TxtTokuisakiCode.Enabled = False
            ' 得意先確定ボタン押下不可
            BtnTokuisakiKakutei.Enabled = False
            ' 得意先変更ボタン押下可能
            BtnTokuisakiHenko.Enabled = True
        Catch ex As TokuisakiCodeException
            ' 得意先コードエラー処理
            MessageBox.Show(ex.Message, "得意先コードエラー")
            ' 得意先コードにフォーカス
            TxtTokuisakiCode.Focus()
        Catch ex As DBIOException
             MessageBox.Show(ex.ToString, "DBIO例外発生")
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "その他例外発生")
        End Try

    End Sub

    '*******************************************************
    ' 得意先変更ボタンクリック処理
    '*******************************************************
    Private Sub BtnTokuisakiHenko_Click _
        (ByVal sender As System.Object, _
         ByVal e As System.EventArgs) _
         Handles BtnTokuisakiHenko.Click

        Try
            ' 得意先コード・名称・住所をクリア
            TxtTokuisakiCode.Text = Nothing
            LblTokuisakiMeisho.Text = Nothing
            LblTokuisakiJusho.Text = Nothing
            ' 得意先コード入力可能
            TxtTokuisakiCode.Enabled = True
            ' 得意先コードにフォーカス
            TxtTokuisakiCode.Focus()
            ' 得意先確定ボタン押下可能
            BtnTokuisakiKakutei.Enabled = True
            ' 得意先変更ボタン押下不可
            BtnTokuisakiHenko.Enabled = False
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "例外発生")
        End Try

    End Sub