投稿日 | : 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