TextBox控件透明度/ PictureBox的文本(TextBox Control Transp

2019-10-29 20:18发布

我一直在想创建一个自定义文本框,所以我发现两种方法,这将允许我实现这个虽然他们不是最好的。 其中一个人是真正借鉴PictureBox的本身的文字,但我无法找到任何教程或代码,让我创造这个。

但我没有找到一个Alpha通道的文本框,这虽然没有让我把在其他控件的控制,我能够与它合作。 代码工作,但我唯一的问题,现在是其他人使用它的文本是模糊的。

就像这样: http://puu.sh/4hzQM.png

这是怎么看起来像我: http://puu.sh/4hzUD.jpg

我目前使用此代码,这是我转换成vb.net: http://www.codeproject.com/Articles/4390/AlphaBlendTextBox-A-transparent-translucent-textbo

我想知道是否有解决其他计算机上的这个模糊的文本的方式或是否有这样做的一个简单的方法,因为该码是10岁,我到处寻找,我无法找到任何东西。

谢谢。

Answer 1:

  1. 添加类

  2. 插入此:

Class TransparentControl Inherits Control Public Sub New() MyBase.SetStyle(ControlStyles.UserPaint, True) MyBase.SetStyle(ControlStyles.OptimizedDoubleBuffer, True) MyBase.SetStyle(ControlStyles.SupportsTransparentBackColor, True) MyBase.SetStyle(ControlStyles.ResizeRedraw, True) MyBase.SetStyle(ControlStyles.AllPaintingInWmPaint, True) End Sub End Class Class TransparentTextBox Inherits TextBox Public Sub New() MyBase.ScrollBars = RichTextBoxScrollBars.Both End Sub Protected Overloads Overrides ReadOnly Property CreateParams() As CreateParams Get Dim cp As CreateParams = MyBase.CreateParams cp.ExStyle = cp.ExStyle Or &H20 Return cp End Get End Property Protected Overloads Overrides Sub OnTextChanged(ByVal e As System.EventArgs) MyBase.OnTextChanged(e) MyBase.Parent.Refresh() End Sub End Class

  1. 运行应用程序

  2. 去工具箱,在顶部,你应该看到所谓的“TransparentTextBox”添加一个项目,忽略错误

  3. 运行应用程序

  4. 请享用



文章来源: TextBox Control Transparency / Picturebox Text