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

投稿日: 2005/10/14(Fri) 17:48
投稿者miya
Eメール
URL
タイトルRe^5: コンボボックスの残像について

遅くなりました、これがソースです。何処でリフレッシュをかければいいでしょうか?
宜しくお願いします。
Private Sub cboButai_LostFocus()
Dim i           As Integer              'ループ用カウンタ
Dim i2          As Integer              'ループ用カウンタ2
Dim i4          As Integer              'ループ用カウンタ3
Dim i11         As Integer              'ループ用カウンタ4
Dim kichi       As String               '部隊に対する基地格納変数
Dim flag        As Integer

On Error GoTo ErrLabel                  'エラーとしてイベントを拾う
                                        'エラープロシージャー名の設定
                                        'エラープロシージャー名の設定
ErrProcName = "cboButai_LostFocus"
        
    cboButai.ToolTipText = cboButai.Text
    
    sButai = cboButai.Text              '部隊名称退避
    
    '入力された部隊が空白かをチェックする
    If cboButai.Text = "" Then
       '基地コンボボックスの再作成
       cboKichi.Clear
       For i11 = 0 To UBound(PsKichi, 2)
        cboKichi.AddItem PsKichi(1, i11)
       Next
    Else
        iButaiCnt = 0
        iflag = 0
        flag = 0
        '入力された部隊が配列に存在するかチェック
        For i2 = 0 To UBound(PsNButai, 2)
            '一回のみ基地コンボボックスをクリアーする。
            If (flag = 0) Then
                cboKichi.Clear
                '基地コンボボックスの先頭にスペースを設定する。
                cboKichi.AddItem PsNButai(1, i2)
            End If
            If (PsNButai(3, i2) = cboButai.Text) Then
                '存在した部隊の所属基地をチェック
                For i = 0 To UBound(PsKichi, 2)
                    If PsKichi(1, i) = PsNButai(1, i2) Then
                        kichi = PsKichi(1, i)
'                        If (iflag = 0) Then
'                            cboKichi.Clear
'                        End If
                        cboKichi.AddItem PsNButai(1, i2)
                        iflag = iflag + 1
                    End If
                    iButaiCnt = i2
                Next
            End If
            flag = flag + 1
        Next
        If (iflag = 1) Then
            '所属基地コンボボックス表示設定
            cboKichi.Clear
            For i = 0 To UBound(PsKichi, 2)
                cboKichi.AddItem PsKichi(1, i)
            Next
            For i4 = 0 To UBound(PsKichi, 2)
                If (PsKichi(1, i4) = kichi) Then
                    cboKichi.ListIndex = i4
                End If
            Next
        Else
            cboKichi.ListIndex = 1
        End If
    End If

Err.Clear                               'エラー情報のクリア
Exit Sub                                'プロシージャーの終了へ
ErrLabel:                               'エラーラベル(Line)
    ErrFrm.Show vbModal                 'エラーフォームの表示(モーダル固定)
End Sub


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

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