防止文本框中的光标闪烁

Question

在文本框中，如何防止单击时显示闪烁的光标？

我确实在一些论坛中读到过调用了一个特定的 api，但是当我在我的代码中尝试它时，显示了一个错误。如果可能，请为此目的提供完整的代码，并让我知道是否存在应该执行代码的特定事件。

此文本框是为模拟局域网信使而创建的表单窗口的一部分。我正在使用 C#。该表单有两个文本框，以类似于 google talk。最好防止在上部文本框上显示闪烁的光标。

我试过了：

[DllImport("user32")] 
private static extern bool HideCaret(IntPtr hWnd); 
public void HideCaret() { HideCaret(TextBox1.Handle); } 

我收到错误消息：“找不到 DllImport。”

Answer 1

如果您想禁止对文本框进行编辑，请将其 ReadOnly 属性设置为 true。

如果您想允许编辑但仍隐藏插入符号，请准确调用 Win32 API as specified：

[System.Runtime.InteropServices.DllImport("user32.dll")]
static extern bool HideCaret(IntPtr hWnd);

...

HideCaret(myTextBox.Handle);

Answer 2

嗨，试试这个代码

public class CustomTextBox:System.Windows.Forms.TextBox
{
    [System.Runtime.InteropServices.DllImport("user32")]
    private static extern bool HideCaret(IntPtr hWnd);

    public CustomTextBox()
    {
        TabStop = false;

        MouseDown += new System.Windows.Forms.MouseEventHandler(CustomTextBox_MouseDown);
    }

    void CustomTextBox_MouseDown(object sender, System.Windows.Forms.MouseEventArgs e)
    {
        HideCaret(this.Handle);
    }
}

Answer 3

将 hideCaret 函数放在 TextChanged 事件中即可解决问题：

[DllImport("user32.dll")]
static extern bool HideCaret(IntPtr hWnd);

private void textBox1_TextChanged(object sender, EventArgs e)
{
    HideCaret(textBox1.Handle);
}

Answer 4

我可以使用此处和this answer 中的代码在TextBox 上（部分）模拟Chrome 的网址栏。

在第一次单击时，它会选择所有文本而不显示闪烁的插入符号，诀窍是当您第二次单击所选文本时使插入符号显示出来，这就是 Chrome 的网址栏的行为方式。

代码如下：

[DllImport("user32.dll")]
static extern bool HideCaret(IntPtr hWnd);

private void textBox2_Enter(object sender, EventArgs e)
{
    // Kick off SelectAll asyncronously so that it occurs after Click
    BeginInvoke((Action)delegate
    {
        HideCaret(textBox2.Handle); 
        textBox2.SelectAll();              
    });          
}

Answer 5

其他人表示将“ReadOnly”设置为“True”将避免插入符号 当您单击文本框时。他们在那里错了。 我正在使用 VB.Net 但也许我下面的示例代码可能会提供更简单的 回答。

它涉及创建一个新类（MyTextBox），并添加以下属性 “NoCaret”默认为“False”（即默认显示插入符号）。 将以下代码添加到新类模块中的项目中，重建项目，然后将新文本框（然后在工具箱顶部找到）拖到表单上。要停止插入符号显示在属性面板中为您添加到表单的每个 MyTextbox 控件打勾“NoCaret”。

因此，您首先要创建一个新的类模块，如下所示（在设计器中绘制文本框不是必需的。实际上最好不要绘制它，因为这会创建不必要的“InitializeComponent”代码，只会弄得一团糟。子“New()”中的“MyBase.New()”行会处理所有事情）

Imports System.Runtime.InteropServices

Public Class MyTextBox
    Inherits TextBox
    Private Declare Function HideCaret Lib "user32.dll" (ByVal hwnd As Int32) As Int32
    Private Declare Function ShowCaret Lib "user32.dll" (ByVal hwnd As Int32) As Int32

    Private _HideCaret As Boolean

    Public Sub New()
        MyBase.New()
    End Sub

    Public Property NoCaret As Boolean
        Get
            Return _HideCaret
        End Get
        Set(ByVal value As Boolean)
            _HideCaret = value
        End Set
    End Property

    Private Sub TextBox_MouseMove(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.MouseMove
        If Me.NoCaret = True Then
            HideCaret(Handle.ToInt32)
        Else
            ShowCaret(Handle.ToInt32)
        End If
    End Sub
End Class

不过，请确保对表单上任何现有文本框进行“TypeOf”测试的任何现有代码，例如：

For each tb as control in MyForm.Controls
   if TypeOf tb Is TextBox then
   .....{do something}
   endif
Next

改为：

For each tb as control in MyForm.Controls
   if TypeOf tb.Parent Is TextBox then
   .....{do something}
   endif
Next

Answer 6

我遇到了无法在文本框中隐藏插入符号的问题。诀窍是将其隐藏在 Designer 中无法访问的 GotFocus 事件中，因此必须手动订阅它。完整代码如下：

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

namespace WindowsFormsApp
{
    public partial class Form1 : Form
    {
        [DllImport("user32")]
        private static extern bool HideCaret(IntPtr hWnd);

        public Form1()
        {
            InitializeComponent();
            textBox1.GotFocus += textBox1_GotFocus;
        }

        private void textBox1_GotFocus(object sender, EventArgs e)
        {
            HideCaret(textBox1.Handle);
        }
    }
}

Answer 7

VB.NET 代码

Imports System.Runtime.InteropServices

Public Class xxxxxxxxxxxxxxxxxxxxxx

<DllImport("user32.dll")>
    Private Shared Function HideCaret(ByVal hwnd As IntPtr) As Boolean
    End Function

...............

Private Sub txtNotePreview_MouseMove(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNotePreview.MouseMove, txtNotePreview.KeyPress
        HideCaret(txtNotePreview.Handle)
    End Sub

Answer 8

将TextBox 上的ReadOnly 属性设置为true。

此问题的更多答案：Read-only textbox in C#