NumericUpDownでキャレット移動

質問

VB.NET VisualStudio2017でWindowsアプリケーションを開発しています。

お客様からの要望でテキストボックスがフォーカスが移った際には入力済の文字列を全選択し、その状態で文字列の任意の場所でマウスをクリックするとその場所にマウスカーソル(キャレット)を移動しています。
Private Sub txtTest_MouseDown(sender As Object, e As MouseEventArgs)
' マウスを押した位置にキャレットを移動する
Dim charIndex As Integer = txtTest.GetCharIndexFromPosition(e.Location)
txtTest.Select(charIndex, 0)

End Sub

同様のことをNumericUpDownコントロールで行いたいのですが、NumericUpDownコントロールにはGetCharIndexFromPositionメソッドが存在しません。

Windows API のSendMessageも調査してみましたが、TextBox向けの事例にしかヒットしませんでした。

何か良い方法をご存知の方がいらっしゃれば、お知恵をお借りしたく存じます。
よろしくお願いいたします。

回答No.3

kkkkkm · ベストアンサー

> ご紹介いただいたサイトではSelectAllメソッドが使用されていますが、NumericUpDownコントロールにはSelectAllメソッドはありません。

以下の二つの方法があるようです。
NumericUpDown1.Select(0, NumericUpDown1.Text.Length)
CType(NumericUpDown1.Controls(1), TextBox).SelectAll()

お礼

NumericUpDown単体で試すと取得したcharIndexの精度はいまいちでしたが、
お客様が一番求められている画面の数値コントロールは明細のグリッド上のコントロールで、
その画面のコントロールで上手くいったので解決とします。ありがとうございました。

該当の明細コントロール上の数値コントロールは当初からスピンボタンが表示されていないものだったため、charIndexの精度が保たれたものと解釈しました。

いろいろとお知恵を拝借しありがとうございました。

回答No.2

kkkkkm

> これと同じことをNumericUpDownコントロールで行いたいのですが、

先に紹介したサイトの方法ではできなかったということでしょうか？
charIndexは求めませんが別の手法でできてると思いますが…。

補足

kkkkkm様
コメントありがとうございます。

＞先に紹介したサイトの方法ではできなかったということでしょうか？
そうですね。出来なかったです。
ご紹介いただいたサイトではSelectAllメソッドが使用されていますが、NumericUpDownコントロールにはSelectAllメソッドはありません。
NumericUpDownコントロールで紹介いただいたサイトのコードを適用してもSelectAllメソッドのところでエラーとなるので、その箇所をコメントアウトするとフラグのOn Offの処理しか残りませんので・・・。

NumericUpDownコントロールに12345といった5桁の数値を設定して5の右側の位置でMouseDownしても1の左側にキャレットが移動してしまいます。

回答No.1

kkkkkm

こちらの方法を試してみてはいかがでしょう。
GetCharIndexFromPositionは使わない方法です。
TextBoxをクリックした時に表示テキストを全選択する
http://windyrings.jugem.jp/?eid=850

補足

kkkkkm様
コメントありがとうございます。
少し説明が足りない部分があったかも知れませんが、
やりたいことはフォーカスを受取ってテキストが全選択された状態で、
そのテキストの任意の場所をマウスでクリックした際に、
クリックした場所にキャレットを移動したい、ということです。
上記のtxtTest.Select(charIndex, 0)の部分です。

これと同じことをNumericUpDownコントロールで行いたいのですが、
マウスのポイントから上記charIndexを求める手段が無くて困っています。