|
>この方法は、MultiSelect が fmMultiSelectSingle のときしか使えないっぽいです。
Private Sub UserForm_Initialize()
Me.ListBox1.List = Array(1, 2, 3, 4, 5)
Me.ListBox1.ListIndex = -1 ←これ入れました?
End Sub
1-fmMultiSelectMultiの場合はなぜか
こんな感じにフォーカスを持たせた後、矢印キーで移動させると明確な選択表示(青いやつ)は出ないみたいですが、
Private Sub UserForm_Initialize()
Me.ListBox1.List = Array(1, 2, 3, 4, 5, 6)
Me.ListBox1.ListIndex = -1
Me.ListBox1.SetFocus
End Sub
これで、選択されていることがわかります。
Private Sub CommandButton1_Click()
If ListBox1.ListIndex < 0 Then
MsgBox "選択なし"
Else
MsgBox ListBox1.List(ListBox1.ListIndex)
End If
End Sub
2-fmMultiSelectExtendedの場合は、ちゃんと選択表示(青い)が出ました。
2002SP3に変えられちゃったので、これしか確認できません。
|
|