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

投稿日： 2005/08/05(Fri) 15:55
投稿者： まさ
ＵＲＬ：
タイトル： Re^4: ｴﾗｰ表示

返答ありがとうございます。


Option Explicit

Private Sub Read_Click() '---テキストデータを読み込む
        
    On Error GoTo ErrHandler '---エラーを表示する
    

    Dim FName As String   '---ファイル名を格納する変数
    Dim Out As Variant '---ファイルデータを一時格納する変数
    
    List1.Clear
    FName = File.Text
    num = 0
    num2 = 0
    Open FName For Input As #1  '---ファイル名を指定して、Inputで＃１のファイルを開く
        Do Until EOF(1)             '---ファイルの末になるまで繰り返す
            Line Input #1, Out      '---１行分読み込んで格納する
            ID = Left(Out, 8)      '店舗コードの習得
            Money = Right(Out, 8)  '売上のところを切り取り
            
            'カンマ編集と右詰め編集
            Money = Format(Format(Money, "###,###,##0"), "@@@@@@@@@@@")
            List1.AddItem ID & ":" & Money  '店舗コードと売上を表示
          
            ArrayID(num) = ID           '配列変数に代入(店舗)
            num = num + 1            '店舗の加算
            ArrayMoney(num2) = Money  '配列変数に代入（売上）
            num2 = num2 + 1         '売上の加算
        Loop
    Close #1
    
    Tenpo.Caption = num & "店舗"    '店舗数を表示
    Exit Sub
    
    
ErrHandler:
    MsgBox Err.Description, vbCritical
End Sub

Private Sub Top_Click()

     On Error GoTo ErrHandler '---エラーを表示する
    
        Dim i As Variant    'カウンタ変数
        Dim j As Variant    'カウンタ変数
        Form2.Result.Clear '結果表示場所をクリアする
        
        
                For i = 0 To num - 1                            '順番を決定する位置
                    For j = i + 1 To 11                         '比較をする配列のインデックス
                        If ArrayMoney(i) < ArrayMoney(j) Then '売上を比較し、入れ替えをする
                            SMoney = ArrayMoney(i)
                            ArrayMoney(i) = ArrayMoney(j)
                            ArrayMoney(j) = SMoney
                            SID = ArrayID(i)
                            ArrayID(i) = ArrayID(j)
                            ArrayID(j) = SID
                        End If
                    Next j
                    If i < 10 Then
                    Form2.Result.AddItem ArrayID(i) & ": " & ArrayMoney(i)  '結果を表示する
                    End If
                Next i
                
        Form2.Koumoku.Caption = "トップ10"   'ラベルを表示する
        Form2.Show                         'Form2を表示する
        Form1.Hide                         'Form1を非表示にする
        Exit Sub
                        
ErrHandler:
    MsgBox Err.Description, vbCritical
End Sub

いまあるコードはこんな感じなんですが、このコードの中で、ソート（top）ボタンをファイルの読込みボタンを
押す前に押下したときに、"読込みボタンを押してください" というエラーメッセージを表示させたいんです。
ただ、どのような処理のコードを記述したら、エラーメッセージを表示できるのかが悩んでいる所です。

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

- VBレスキュー(花ちゃん) - - Web Forum -