VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2004/07/26(Mon) 21:45
投稿者： kamurin
Ｅメール： kamurin@hotmail.com
ＵＲＬ：
タイトル： 郵便番号が・・・

郵便番号を入力すると住所を表示する処理をしたいのですが、
下記の処理をかなり前に書いて、
成功していたのですが、
最近出来なくなってしまいました。
エラーは起こらないのですが、
一番下のElseが常に実行されます。
原因として思い当たる事無いでしょうか？
お願いします。
Private Sub imPostal1_Searched(HasFound As Boolean, ResultCode As Long)
If HasFound <> True Then
    If ResultCode <> 0 Then
        Select Case ResultCode
        Case imErrorFileNotFound
'           StatusBox.Caption = "住所ファイルが見付からない"
        Case imErrorUnknownDatabase
'           StatusBox.Caption = "住所データベースの内部エラー"
        Case imErrorInvalidArgument
'           StatusBox.Caption = "無効な引数"
        Case imErrorUnknown
'           StatusBox.Caption = "予期しないエラー"
        Case Else
'           StatusBox.Caption = "不明なエラー" + str(ResultCode)
        End Select
    Else
        DataCombo1(1).Text = ""
        imText1.Text = ""
        imText2.Text = ""
    End If
Else
    DataCombo1(1).Text = imPostal1.Address.PrefectureKanji
    imText1.Text = imPostal1.Address.CityKanji + imPostal1.Address.AreaKanji
    imText2.Text = ""
End If
End Function

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -