タイトル | : リストボックスに配列の結果を表示させたいのですが・・・ |
記事No | : 10399 |
投稿日 | : 2011/01/11(Tue) 10:50 |
投稿者 | : PAO |
現在ピクチャーボックスをクリックするごとに配列に座標を入れて リストボックスにその入ったものを表示させたいのですが 現在下記のプログラムで表示はできるのですが Dim s$ For Index = 0 To nInputPoint(bodyIndex) - 1 s$ = String.Format("x={0:###},y={1:###}", InputPosition(Index, bodyIndex,0),InputPosition(Index,bodyIndex, 1)) lbxInputDataatama.Items.Add(s$) Next End Sub
これでやると 1回目クリック→配列の0番目表示 X=123,Y=23 2回目クリック→配列の0,1番目表示 X=123,Y=23 X=124,Y=24 3回目クリック→配列の0,1,2番目表示 X=123,Y=23 X=124,Y=24 X=125,Y=25 最終的に3回クリックしてリストボックス内は X=123,Y=23 X=123,Y=23 X=124,Y=24 X=123,Y=23 X=124,Y=24 X=125,Y=25 となってしまいます
自分としてはクリックした所を一つ一つ座標を表示させていきたいのですが 3回クリックしたらリストボックスには X=123,Y=23 X=124,Y=24 X=125,Y=25 と表示させたいのですがどうすればいいでしょうか?
|