投稿日 | : 2006/07/07(Fri) 17:19 |
投稿者 | : LESIA |
Eメール | : |
URL | : |
タイトル | : Re: リストボックスから選択されている項目の行を取得したい |
ListIndexは0から始まるので、+1する必要があります。
Private Sub Command1_Click()
Dim i As Integer
If List1.SelCount = 0 Then
MsgBox "選択されてません"
Else
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
MsgBox i + 1 & "行目が選択されてます"
End If
Next i
End If
End Sub