C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

ログ内検索

キーワードを複数指定する場合は半角スペースで区切ってください。
検索条件は、(AND)=[A かつ B] (OR)=[A または B] となっています。
[返信]をクリックすると返信ページへ移動します。

キーワード	/	検索条件	/
検索範囲	/	強調表示	/ ON (自動リンクOFF)
結果表示件数	/	記事No検索	/ ON
大文字と小文字を区別する

No.94254 の関連記事表示

ヒット / 13件

<< 0 >>

■94254

　DateTimePickerでホイールを使う方法

□投稿者/ paison -(2020/03/27(Fri) 15:33:59)

分類:[.NET 全般]　

VB2015を使用しています。


DateTimePickerでホイールを使いたいのですが
どこかのサイトに書かれてあったように

    Private Sub DateTimePicker1_MouseWheel(sender As Object, e As MouseEventArgs)

        If CType(sender, DateTimePicker).Focused Then

            If e.Delta > 0 Then

                System.Windows.Forms.SendKeys.Send("{UP}")

            Else

                System.Windows.Forms.SendKeys.Send("{DOWN}")

            End If

        End If

    End Sub

を使うと実現することができます。


しかし、ビルドして実行する場合には良いのですが、
デバッグモードで
DateTimePicker2_ValueChanged

の中のコードにブレイクポイントを付けた状態で起動すると
ホイールを回した時に、プログラムとマウスカーソルがフリーズしてしまいます。
マウスカーソルが動かせないので、PCの電源を切って強制終了するしか方法がなくなります。

一体、どうすればこのような現象が出なくなりますでしょうか？

親記事 /過去ログ163より / 関連記事表示
削除チェック/

■94255

　Re[1]: DateTimePickerでホイールを使う方法

□投稿者/ 魔界の仮面弁士 -(2020/03/27(Fri) 17:17:55)

■No94254 (paison さん) に返信
> Private Sub DateTimePicker1_MouseWheel(sender As Object, e As MouseEventArgs)

通常であれば、イベントハンドラは
　Private Sub DateTimePicker1_MouseWheel(sender As Object, e As MouseEventArgs) Handles DateTimePicker1.MouseWheel
あるいは
　Private Sub DateTimePicker1_MouseWheel(sender As Object, e As MouseEventArgs) Handles DateTimePicker1.MouseWheel, DateTimePicker2.MouseWheel
などの形式になっているはずです。
AddHandler による動的割り当てを行っているのでしょうか?

> の中のコードにブレイクポイントを付けた状態で起動すると
> ホイールを回した時に、プログラムとマウスカーソルがフリーズしてしまいます。
コードウィンドウで [F5] を押せば再開できるはずですが、
フリーズする状況は再現できませんでした。

> 一体、どうすればこのような現象が出なくなりますでしょうか？
提示頂いた情報だけでは、再現テストを行えません。
新規プロジェクトを作成し、現象を再現可能な最小限のコードを作って提示することはできますか?

一応、SendKeys を使わないバージョンも置いておきます。
　
Public Class DateTimePickerWithWheel
　　Inherits DateTimePicker
　　Protected Overrides Sub OnMouseWheel(e As System.Windows.Forms.MouseEventArgs)
　　　　MyBase.OnMouseWheel(e)
　　　　Dim msgU As Message
　　　　Dim msgD As Message
　　　　If e.Delta > 0 Then
　　　　　　msgU = Message.Create(Handle, &H100, New IntPtr(Keys.Up), New IntPtr(&H1480001))
　　　　　　msgD = Message.Create(Handle, &H101, New IntPtr(Keys.Up), New IntPtr(&HC1480001))
　　　　Else
　　　　　　msgU = Message.Create(Handle, &H100, New IntPtr(Keys.Down), New IntPtr(&H1500001))
　　　　　　msgD = Message.Create(Handle, &H101, New IntPtr(Keys.Down), New IntPtr(&HC1500001))
　　　　End If
　　　　MyBase.WndProc(msgU)
　　　　MyBase.WndProc(msgD)
　　End Sub
End Class

既存のコントロールを継承コントロールに置き換えできない事情がある場合は、
NativeWindow クラスで WndProc を捕らえて、WM_MOUSEWHEEL(&H020A) が飛んできた時に
同じように WM_KEYUP(&H100) と WM_KEYDOWN(&H101) を投げつけることでも実装できそう。