更改插入颜色或隐藏VB.NET

Question

我正在在VB.NET的程序和需要隐藏插入符文本框。

我可以忍受它是要么完全隐藏或者一样的颜色作为文本框的背景颜色。我怎么能这样做呢？如果可能的话，我宁愿远离自定义控件。

谢谢

Answer 1

添加一个新类到您的项目并粘贴如下所示的代码。编译。将新控件从工具箱的顶部拖放到表单上。

Public Class NoCaretBox 
    Inherits TextBox 

    Protected Overrides Sub OnGotFocus(ByVal e As System.EventArgs) 
    HideCaret(Me.Handle) 
    MyBase.OnGotFocus(e) 
    End Sub 

    Protected Overrides Sub OnLostFocus(ByVal e As System.EventArgs) 
    ShowCaret(Me.Handle) 
    MyBase.OnLostFocus(e) 
    End Sub 

    Private Declare Function HideCaret Lib "user32.dll" (ByVal hWnd As IntPtr) As Boolean 
    Private Declare Function ShowCaret Lib "user32.dll" (ByVal hWnd As IntPtr) As Boolean 
End Class