vb.net 如何重绘Label控件?

我想重绘一下label控件,但是不知道如何重绘才对,请举个例子,谢谢!

新建一个Winform,在和Form1平行的位置粘贴如下代码
Public Class MyLabel Inherits Label Protected Overrides Sub OnPaint(e As PaintEventArgs) e.Graphics.DrawEllipse(New Pen(Color.Red), New Rectangle(2, 2, 10, 10)) MyBase.OnPaint(e) End Sub End Class

运行,停掉,在工具箱找到MyLabel,拖动就可以看到效果。这只是最基本的重写,要模仿QQ还需要其他技术以及美工。
温馨提示:内容为网友见解,仅供参考
无其他回答

关于VB.Net使用的很多控件的问题
还有,就是窗体的最大控件个数好像是256

vb.net使用Sleep后有些代码没有执行!
在VB.NET中,带框架窗体的大小是不能为0的,要想做到高、宽都为0,需要自己重绘一个无边框窗体,用外置图片来绘制,配合PS做一些图片,既可以换肤还能做的很漂亮。按当前代码修改,你把下面的代码粘回去就可以了,窗体的高和宽达到最小时,循环会自己退出,避免无限循环;Select Case 2 Case Is ...

vb.net使用Sleep后有些代码没有执行!
在VB.NET中,带框架窗体的大小是不能为0的,要想做到高、宽都为0,需要自己重绘一个无边框窗体,用外置图片来绘制,配合PS做一些图片,既可以换肤还能做的很漂亮。按当前代码修改,你把下面的代码粘回去就可以了,窗体的高和宽达到最小时,循环会自己退出,避免无限循环;Select Case 2 Case Is ...

VB.NET中的TextBox控件详解
事件 说明 Click 在单击文本框时发生 CursorChanged 当 Cursor 属性的值更改时发生 DoubleClick 在双击控件时发生 DragDrop 在完成拖放操作时发生 DragEnter 在将对象拖入控件的边界时发生 DragLeave 在将对象拖出控件的边界时发生 DragOver 在将对象拖到控件的边界上发生 EnabledChanged Enabled 属性值更改后发生 Enter ...

vb.net如何设置FORM的text字体
您好。修改FORM的Font属性就可以修改窗体和其中所有控件的字体。Me.Font = New System.Drawing.Font("宋体", 10)另外,FORM标题栏的TEXT字体和颜色是操作系统决定的,要想改变,只能调用系统的api函数,截获操作系统的消息来改变。下面的网址有C#版本的重绘标题栏范例http:\/\/outofmemory.cn\/code-snippet...

vb.net开发简单的时钟程序??高手救救我!
了 !Hand类的代码:Public MustInherit Class Hand Protected gp As GraphicsPath = New GraphicsPath()Protected gpBase As GraphicsPath = Nothing Protected midX As Integer = 150 ‘默认的窗体 Protected midY As Integer = 150 ‘中心位置 ‘构造器,得到窗体中心位置 Public Sub New(ByVal theForm...

vb中datagrid所有属性说明
获取或设置该控件的左上角相对于其容器的左上角的坐标。 Name(从 Control 继承) 获取或设置控件的名称。 Parent(从 Control 继承) 受.NET Framework 精简版的支持。 获取或设置控件的父容器。 ParentRowsBackColor 获取或设置父行的背景色。 ParentRowsForeColor 获取或设置父行的前景色。 ParentRowsLabelStyle 获...

相似回答