oxo********

2014/12/15 16:43

33回答

VB.NET2010です。ListBoxをスクロールしたことを知るにはどうやるんでしょうか？

VB.NET2010です。ListBoxをスクロールしたことを知るにはどうやるんでしょうか？ ListBoxに何故かScrollイベントがありません。 アイテムの数がListBoxの縦のサイズを超えると、縦のスクロールバーが表示されます。その時に、縦のスクロールバーを動かした時にイベントを発生させたいのです。 どうやれば縦スクロールバーを動かした事を知る事が出来るんでしょうか？ イベントを発生させるにはどうやるんでしょうか？ よろしくお願いします。

Visual Basic・2,034閲覧・xmlns="http://www.w3.org/2000/svg">25

ベストアンサー

redfox63jp

2014/12/15 19:14

Classファイルを追加 Public Class クラス名 の次の行に Inherits ListBox を追加 Windows の メッセージを定義 private const WM_VSCROLL as Integer = &H115 ' 前回のスクロール位置を記憶する変数 private nOldValue as Integer ' クライアントに公開するイベントを定義 Public Event Scroll(Sender as Object, e as ScrollEventArgs) ' 内部使用のハンドラを定義 Protected Overridable Sub OnScroll(Se as ScrollEventArgs) __ RaiseEvent Scroll(me,se) End Sub ' イベント生成のため WndProcを定義 Protected Overrides sub WndProc(ByRef m as System.Windows.Forms.Message) __ ' メッセージの判定 __ if m.msg =WM_VSCROLL then __ __ ' 引数生成のために ｗParamを取得 __ __ dim wParam as Integer = m.WParam.ToInt32 __ __ dim sbType as integr __ __ dim nPos as Integer __ __ ' ユーザーが行ったアクションと データを取得 __ __ sbType = wParam and &HFFFF __ __ nPos = (wParam and &HFFFF0000)/&H10000 __ __ 'イベントハンドラの引数を生成 __ __ dim e as new ScrllEventArgs(sbType, nOldValue, nPos, ScrollOrientation.VerticalScroll) __ __ ’ イベントを呼ぶ __ __ OnScroll(e) __ __ if e.Type = ScrollEventType.ThumbTrack or _ __ __ __ e.Type = ScrollEventType.ThrumbPosition then __ __ __ ' つまみを動かした場合 位置を記憶 __ __ __ nOldValue = nPos __ __ end if __ end if __ MyBase.WndProc(m) End Sub といった具合の クラスを追加して 一度『ビルド』します 出来上がった 新しいクラスのコントロール をフォームに貼り付け Scrollイベントが プロパティにあるので追加してください

NEW! この回答はいかがでしたか？ リアクションしてみよう

oxo********

質問者2014/12/15 20:25

有り難うございます。 すみません、ここの部分でエラーになりました。。。 ＞ e.Type = ScrollEventType.ThrumbPosition 「'ThrumbPosition'は'ScrollEventType'のメンバーではありません」というエラーです。 ここをどのように直せば良いのでしょうか？ 済みませんが、よろしくお願いします。

ThanksImg質問者からのお礼コメント

見事に上手く行きました。 イベントの一覧にまでScrollイベントが追加されていて凄いと思いました。 勉強になりました、有り難うございます。 livingintheblueshadowsさんも有り難うございました。 そのリンクでもやってみましたが見事に上手く行きました。 livingintheblueshadowsさんの回答もBAなんですが、、すみません。。。

お礼日時：2014/12/15 20:57

その他の回答（2件）

porihiko3

2014/12/15 18:11

こんにちは。 縦のスクロールでイベントが無いのは、仕様の範囲ですね。 そのようなイベントがあったら、OSが悲鳴をあげるでしょ リストボックスのアイテムをクリックすると、listindexに行位置、clickのイベントで処理することになりますが、「そのリストをクリックした」のですから、その場所がwindowにある、ということです。 もし、細かく制御する必要がある、のでしたら、リストコントロールのデータを少なくしてください。 それで、リストコントロールをいくつか、並べてください。 あとは、mousemoveイベントで、「コントロールのどのあたり」を細かく処理するということになります。