投稿日 | : 2007/01/19(Fri) 18:28 |
投稿者 | : Do_Shirouto |
Eメール | : |
URL | : |
タイトル | : Re^2: 配列要素についてお願いします |
> 下記のようなコードを起動直後に実行したらどうなりますか?
> Private Sub Command1_Click()
> Debug.Print Combo1(20).Text
> End Sub
>
> >Combo1(20) List2(9)までツールボックスより貼り付けて
> プログラム記入している画面の右側のプロパティのところに下記のように
> 表示したものがありますか?
> Combo1(20) ComboBox
ご回答有り難うございました
Combo1(20) ComboBoxは表示されています。
変数を変えてみた所エラーは出ませんが、
'---------------------------------
Private Sub List2_Click(Index As Integer)
ST=18
Combo1(ST).Text = List2(Index).List(List2(Index).ListIndex)
List2(Index).Visible = False
Open App.Path & "\DATA.txt" For Input As #1
Do Until EOF(1)
Input #1, KIGOU$(0)
Input #1, OP$
Input #1, DAT
If Combo1(ST).Text = KIGOU$(0) Then
Combo1(ST + 1).Text = OP$ '--ここではST=18
Combo1(ST + 2).Text = DAT '--ここはなぜかST=19
Exit Do
End If
Loop
Close
End Sub
'----------------------------------------
Combo1(ST + 2).Text = DATの所で
Combo1(ST + 3)と同じ働きになってしまいます
ST=は いじっていないのになぜか19に成っています。
Combo1(ST + 1).Text = OP$でCombo(19)の所へ表示され(正解)
Combo1(ST + 1).Text = DATとするとCombo(20)の所へ表示され
なぜか希望する働きになります。
また List2(INDEX).Visible = False で
List2(INDEX)が消えなくなってしまいました
どこが問題でしょうか
宜しくお願い申し上げます。