■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#22290-0RE#22289:ループふるふる2001-08-08(水) 14:39
     #22293-0RE#22290:ループ匿名222932001-08-08(水) 15:32
     #22294-0RE#22293:ループレベル102001-08-08(水) 15:36
     #22296-0RE#22294:ループ匿名222962001-08-08(水) 15:39
#22290-0
RE#22289:ループ
> リストボックス内のデータを上から下まで読み込んで、labelに表示させようと
> しているのですが、どうも、うまくいきません。
どううまくいかないのでしょう?

> For next でやったりDo Loopでやってみたりとしているのですが、
> どのように書くのが適切なのでしょうかねぇ。。
どれでもいいです。
 
> とりあえず、考え方としては、例えばリストボックス内のデータが3行だとしたら
> 上から、順に読み込んで、3行全部読み込んでところで、抜け出せばいいとおもうのですが・・
そのとおりです。

ま、私でしたら、こんなでしょう。
Dim i as integer
For i= 0 to ListBox1.ListCount -1
  Label1.Caption = Label1.Caption & vbCrLf & ListBox1.List(i)
Next
  Label1.Autosize = true
  Me.Refresh

#22293-0
RE#22290:ループ
> > リストボックス内のデータを上から下まで読み込んで、labelに表示させようと
> > しているのですが、どうも、うまくいきません。
> どううまくいかないのでしょう?
> 
> > For next でやったりDo Loopでやってみたりとしているのですが、
> > どのように書くのが適切なのでしょうかねぇ。。
> どれでもいいです。
>  
> > とりあえず、考え方としては、例えばリストボックス内のデータが3行だとしたら
> > 上から、順に読み込んで、3行全部読み込んでところで、抜け出せばいいとおもうのですが・・
> そのとおりです。
> 
> ま、私でしたら、こんなでしょう。
> Dim i as integer
> For i= 0 to ListBox1.ListCount -1
>   Label1.Caption = Label1.Caption & vbCrLf & ListBox1.List(i)
> Next
>   Label1.Autosize = true
>   Me.Refresh
> 

わかりました。参考にしてみます。
=の右側のlabel1.captionは必要でしょうか?
少しまだエラーが出ますが、がんばってみます。
#22294-0
RE#22293:ループ
> =の右側のlabel1.captionは必要でしょうか?
Captionをつける必要があるかどうか?の話であれば、
"省略可能"です。
#ま、言ってみれば不必要なのですが・・・可読性の為付けた方が良いです。
#22296-0
RE#22294:ループ
> > =の右側のlabel1.captionは必要でしょうか?
> Captionをつける必要があるかどうか?の話であれば、
> "省略可能"です。
> #ま、言ってみれば不必要なのですが・・・可読性の為付けた方が良いです。

わかりました。
このページと関連する記事:
#22299-0まゆきさんへ2001-08-08(水) 16:05
#24830-0リストボックスについて2001-11-23(金) 18:01
#10557-0乱数を発生させて、ラベルに表示させたいのですが2000-08-14(月) 04:49
#18631-0ループ中、内容の表示2001-02-10(土) 03:08
#17494-0テキストファイルの最後の文をラベルに表示2001-08-30(木) 12:03
#1561-0実行時エラー "76"について2005-04-04(月) 23:06
#17803-0テキストエディタを作るときに分からない事2001-01-15(月) 23:40
#886-0任意の行を1999-08-17(火) 09:29
#218-1ListBox2004-01-02(金) 22:29
#6232-0RE#6220:データを整列して挿入するには。2000-02-28(月) 18:45
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)