[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2005/10/14(Fri) 13:57
投稿者名:miya
Eメール:
URL :
タイトル:
コンボボックスの残像について
いつもお世話になっています。
お聞きしたいのですが、今回コンボボックスを作成してるのですが、表示した時、前のコンボボック

の残像が残ってしまいます。リフレッシュをかけたのですが駄目でした。何か良い方法は無いでしょ

か?宜しくお願いします。

投稿時間:2005/10/14(Fri) 14:23
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: コンボボックスの残像について
> お聞きしたいのですが、今回コンボボックスを作成してるのですが、

どのように作成して、どのように表示しているか等を具体的に書いて頂かないと
他の人では判断できないかと思うのですが。
勿論、環境等も書いてくださいね。

投稿時間:2005/10/14(Fri) 14:36
投稿者名:いな
Eメール:
URL :
タイトル:
Re^2: コンボボックスの残像について
> どのように作成して、どのように表示しているか等を具体的に書いて頂かないと

わいわいがやがや広場に残像が残った状態で、画面のハードコピーなど
掲載すると分かりやすいかもしれません。

投稿時間:2005/10/14(Fri) 15:07
投稿者名:miya
Eメール:
URL :
タイトル:
Re^3: コンボボックスの残像について
申し訳ありません。今回住所コンボボックスからある住所を選択し、住所項目からロストフォーカスした
時に県コンボボックスを作成し、表示されるという処理です。また、県コンボボックスからも住所を検

出来るようになっています。

投稿時間:2005/10/14(Fri) 15:53
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re^4: コンボボックスの残像について
新たなプログラムで2個のコンボボックスの表示を切り替えるだけの
プログラムを作成して見てどのようになりますか?
そのコードを投稿してみて下さい。
現在の説明ではどのように作成されているのか他の人には解りません。

投稿時間:2005/10/14(Fri) 17:44
投稿者名:マヨ
Eメール:
URL :
タイトル:
Re^4: コンボボックスの残像について
聞いた感じではお互いを参照しているようなのでイベントがループしてたりしないでしょうか。
デバッグして確かめた方がいいかも知れません。
もっとも単なる推測で花ちゃんさんの言うとおり具体的なコードを掲載した方がいいと思いますが。

投稿時間: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

投稿時間:2005/10/15(Sat) 14:03
投稿者名:マヨ
Eメール:
URL :
タイトル:
Re^6: コンボボックスの残像について
回答ではありません。

まずソースを提示する場合は多少改変してもそれ自体で実行できる状態が望ましいでしょう。
それとコーディングの際は例えば3行書いたら実行させてみるという風にすればどこで現象が起きる
のかもわかります。
これぐらいのステップの場合は任意の行をコメントしていき動作させてみれば不具合の原因はすぐ
探れるかと思います。
もしくはこういうことがやりたいと質問を変えた方がよいかも知れません。
というのもRefleshをどこに入れるかというよりも目的によってはこういう風に作った方がよい、
あるいは簡単だという種類の質問だと思われるからです。
例えばドロップダウンリストではいけないのかとか、チェックはValidateイベントが使えると言った
ような事です。検討してみてください。

投稿時間:2005/10/17(Mon) 09:36
投稿者名:miya
Eメール:
URL :
タイトル:
Re^7: コンボボックスの残像について
返事が遅くなりすいません、わかりました。