listbox

質問

listboxに文字を追加しているのですが、表示されているlistboxの枠を越えてしまうとスクロールバーが表示され文字が見えなくなります。listboxで追加した文字が確認できるように自動でスクロールする方法がありませんか。

回答No.2

name_mm_ok · ベストアンサー

画面に下記コントロールを貼り付けてソースを貼り付けてください。
あくまでも、最終データを一時的にセレクトしてますので、セレクト時点でイベントが発生するような場合には
向かないです。

-- 追加コントロール --
コマンドボタン：Command1
リストボックス：List1
---------------------

Private Sub Command1_Click()

List1.AddItem "[" & Format(List1.ListCount + 1, "@@@") & "]aaaaaaaaaaaaa"

List1.ListIndex = List1.ListCount - 1

List1.Selected(List1.ListIndex) = False

End Sub

お礼

Selectedとは気が付きませんでした。
参考になりました。ありがとうございました。

回答No.1

imogasi

Ｈｅｉｇｈｔプロパティがありませんか。エクセルＶＢＡ
にもあるぐらいだから。確認したらありました。
ＡｄｄＩｔｅｍなどでアイテムを増やした時、１行宛ての適当な高さを増やせば良いのでは。
まあしかし１画面・フォームなどの限度がありますよね。

お礼

参考になりました。ありがとうございました。