C# TextBoxのIbeamの設定

Question

TextBoxのテキストカーソルの設定を変更したいです。
例えば、色や幅の大きさです。

試したこと

長方形を塗りつぶしたのを描画し、テキストカーソルと見立てようと思いましたが、
TextBoxのキャレットの位置が取得できないため、描画できませんでした。

環境

Windows10 Home
Visual Studio2022
FrameWork4.7
WindowsForm

Comments

[KOZ6.0]

Ibeam ていうとマウスカーソルのことになるのでは？

Answer 1

キャレットの色と幅を変更するには、以下のようにします。
ただ、Color.Red のビットマップを作成して CreateCaret に渡しているのですが、なぜか水色で表示されちゃいます。
~~反転とかしてるんですかね。(^^;)
~~
反転してたようです。(^^;)

using System;
using System.Diagnostics;
using System.Drawing;
using System.Runtime.InteropServices;
using System.Windows.Forms;

public partial class Form1 : Form
{
    [DllImport("User32")]
    private static extern bool CreateCaret(IntPtr hwnd, IntPtr hbitmap,
                                           int width, int height);

    [DllImport("User32")]
    private static extern bool ShowCaret(IntPtr hwnd);

    [DllImport("User32")]
    private static extern bool DestroyCaret();

    [DllImport("gdi32.dll")]
    private static extern bool DeleteObject(IntPtr hObject);

    private const int CaretWidth = 5;

    private IntPtr hbmpCaret;

    public Form1()
    {
        InitializeComponent();
        textBox1.GotFocus += TextBox1_GotFocus;
        using (var bmp = new Bitmap(CaretWidth, textBox1.Font.Height))
        {
            using (var g = Graphics.FromImage(bmp))
            {
                g.Clear(CreateCaretColor(Color.Red));
            }
            hbmpCaret = bmp.GetHbitmap();
        }
    }

    private static Color CreateCaretColor(Color color)
    {
        int A = color.A;
        int R = color.R ^ 0xff;
        int G = color.G ^ 0xff; 
        int B = color.B ^ 0xff;
        return Color.FromArgb(A, R, G, B);
    }

    protected override void OnFormClosed(FormClosedEventArgs e)
    {
        base.OnFormClosed(e);
        DeleteObject(hbmpCaret);
    }

    private void TextBox1_GotFocus(object sender, EventArgs e)
    {
        DestroyCaret();
        CreateCaret(textBox1.Handle, hbmpCaret, CaretWidth, textBox1.Font.Height);
        ShowCaret(textBox1.Handle);
    }
}

キャレットの位置は GetGUIThreadInfo で取得できます。

[DllImport("user32.dll", SetLastError = true)]
private static extern bool GetGUIThreadInfo(int hTreadID, ref GUITHREADINFO lpgui);

[DllImport("user32.dll")]
private static extern int GetWindowThreadProcessId(IntPtr hwnd, out int lpdwProcessId);

[StructLayout(LayoutKind.Sequential)]
private struct RECT
{
    public int Left;
    public int Top;
    public int Right;
    public int Bottom;
    public Rectangle ToRectangle()
    {
        return Rectangle.FromLTRB(Left, Top, Right, Bottom);
    }
}

[StructLayout(LayoutKind.Sequential)]
private struct GUITHREADINFO
{
    public int cbSize;
    public int flags;
    public IntPtr hwndActive;
    public IntPtr hwndFocus;
    public IntPtr hwndCapture;
    public IntPtr hwndMenuOwner;
    public IntPtr hwndMoveSize;
    public IntPtr hwndCaret;
    public RECT rcCaret;
}

private Rectangle GetCaretRectangle(IntPtr hwnd)
{
    int processId;
    int threadId = GetWindowThreadProcessId(hwnd, out processId);

    var info = new GUITHREADINFO();
    info.cbSize = Marshal.SizeOf(info);
    GetGUIThreadInfo(threadId, ref info);
    return info.rcCaret.ToRectangle();
}

ですが、文字の選択色についてはシステムカラーで定義されていて、変更するには OS の設定を変更する必要があります。
WPF だと変更できるようですけど。
「Change the TextBox highlight color when a user selects text?」
https://stackoverflow.com/questions/34666064/change-the-textbox-highlight-color-when-a-user-selects-text

Answer 2

System.Windows.Forms.TextBox から派生させて、そういう機能を持った TextBox を作ってしまうのもありです。
私はプレースホルダ（何も入れていない場合に何らかの説明文を表示する）機能も欲しくて作ったことがあります。

	public partial class TextBoxEx : System.Windows.Forms.TextBox {
		private int _caretSize = 1;
		private string _placeholderText = String.Empty;
		private Font _placeholderFont = SystemFonts.DefaultFont;
		private Color _placeholderColor = Color.Black;

		public int CaretSize {
			get {
				return _caretSize;
			}
			set {
				_caretSize = value;
				SetBoldCaret();
				Invalidate();
			}
		}
		public string PlaceholderText {
			get {
				return _placeholderText;
			}
			set {
				_placeholderText = value;
				Invalidate();
			}
		}
		public Font PlaceholderFont {
			get {
				return _placeholderFont;
			}
			set {
				_placeholderFont = value;
				Invalidate();
			}
		}
		public Color PlaceholderColor {
			get {
				return _placeholderColor;
			}
			set {
				_placeholderColor = value;
				Invalidate();
			}
		}


		public TextBoxEx() {
			InitializeComponent();
		}

		public TextBoxEx(IContainer container) {
			container.Add(this);

			InitializeComponent();
		}

		protected override void WndProc(ref Message m) {
			base.WndProc(ref m);
			if (m.Msg == 15) {
				if (this.Enabled && !this.ReadOnly && (_placeholderText != null) && (_placeholderText.Length != 0) && (this.Text.Length == 0)) {
					using(Graphics g = this.CreateGraphics()) {
						g.FillRectangle(new SolidBrush(this.BackColor), this.ClientRectangle);
						g.DrawString(_placeholderText, _placeholderFont, new SolidBrush(_placeholderColor), 1, 1);
					}
				}
			}
		}

		private void SetBoldCaret() {
			Win32API.CreateCaret(this.Handle, IntPtr.Zero, _caretSize, this.Height);
			Win32API.ShowCaret(this.Handle);
		}

		protected override void OnGotFocus(EventArgs e) {
			base.OnGotFocus(e);
			SetBoldCaret();
		}

class Win32API {
        [DllImport("USER32.dll")]
        internal static extern bool CreateCaret(IntPtr hWnd, IntPtr hBitmap, int nWidth, int nHeight);
        [DllImport("USER32.dll")]
        internal static extern bool DestroyCaret();
        [DllImport("USER32.dll")]
        internal static extern bool ShowCaret(IntPtr hWnd);
}

Comments

[KOZ6.0]

プレースホルダを指定すると、マウスがうろうろしたときにチラつきませんか？
対応方法としては
「WM_PAINTでTextBoxがちらつく」
https://social.msdn.microsoft.com/Forums/ja-JP/d5ac1426-1082-43a1-a02f-677dad1ee3ca/wmpaint12391textbox1236412385124251238812367?forum=csharpgeneralja
というのがあります。
あと、MultiLine のテキストボックスを考慮すると、CreateCaret の高さは Font.Height にしたほうが良いと思います。

[.......]

ご回答ありがとうございます。
無事解決できました。

[.......]

キャレットの色を変更する方法というのはありますか？

[KOZ6.0]

色を変える方法なら私の回答にあるのですが、読んでないのでしょうか？

[.......]

回答が１つしかないと勘違いしていて、見ていませんでした。
本当に申し訳ございません。
あと、ちゃんと赤色にできました！
ありがとうございます。

[KOZ6.0]

> 回答が１つしかないと勘違いしていて、見ていませんでした。
高評価をつけるとログに残るのでごまかさないほうがいいです。
昨日高評価をつけていただきましたが、今日取り消して再度つけなおしていますね。

[.......]

すいません。