投稿日 | : 2006/07/20(Thu) 16:59 |
投稿者 | : お茶 |
Eメール | : |
URL | : |
タイトル | : Re^6: listboxの項目番号を取得 |
ご返事おくれましてすみません。
みなさんいろいろとありがとうございました。
vb6.0を使用してItemDataを使用しできました。
本当にありがとうございました。
> 人間が現実世界でできないことはプログラムでも無理だよ。
>
> >今やりたいことは、ListBoxに重複したIDがありまして
> >その指定の行のデータを取得したいのですが、
> では、
>
> たとえばID番号が ID1(1行目),ID1(2行目),ID1(3行目)と
> あるとします。ボクが選びたいのは"ID1"の行です。
> ボクが選びたいのは何行目の"ID1"ですか?
> …この質問に答えられないと実現できないのでは?
>
> そもそも同じIDで何かを区別しようというのが間違ってて、
> (というか同じだと言っているものを区別って矛盾してます)
> IDなんか関係なくて、行数で区別すればいいだけでは?。
> リスト上に無い情報を表示したいなら、配列でもなんでも
> 別に用意しておいて、そちらに情報を入れておけばいい
> でしょ?
>
> [VB6.0]まぁ、↓だけだったら ItemData 使えばいいんですが。
> Private m_LabelList() As String
>
> Private Sub Form_Load()
> Dim i As Integer
> With Me.List1
> .AddItem "あああ,ID1"
> .AddItem "てすと,ID1"
> .AddItem "おおお,ID1"
> ReDim m_LabelList(.ListCount - 1)
> For i = 0 To .ListCount - 1
> m_LabelList(i) = "らべる" & CStr(i)
> Next
> End With
> End Sub
>
> Private Sub List1_Click()
> Me.Label1.Caption = m_LabelList(Me.List1.ListIndex)
> End Sub