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

遅くなりました、これがソースです。何処でリフレッシュをかければいいでしょうか？
宜しくお願いします。
Private Sub cboButai_LostFocus()
Dim i           As Integer              'ループ用カウンタ
Dim i2          As Integer              'ループ用カウンタ２
Dim i4          As Integer              'ループ用カウンタ３
Dim i11         As Integer              'ループ用カウンタ４
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

★ - コンボボックスの残像について - miya 10/14-13:57No.4628
• Re: コンボボックスの残像について - 花ちゃん 10/14-14:23 No.4630
  • Re^2: コンボボックスの残像について - いな 10/14-14:36 No.4631
    • Re^3: コンボボックスの残像について - miya 10/14-15:07 No.4632
      • Re^4: コンボボックスの残像について - 花ちゃん 10/14-15:53 No.4633
      • Re^4: コンボボックスの残像について - マヨ 10/14-17:44 No.4638
        • Re^5: コンボボックスの残像について - miya 10/14-17:48 No.4639
          • Re^6: コンボボックスの残像について - マヨ 10/15-14:03 No.4644
            • Re^7: コンボボックスの残像について - miya 10/17-09:36 No.4648