VB.NET怎么重绘？

答案:2 悬赏:40 手机版

解决时间 2022-01-01 01:22

提问者网友：我的未来我做主
2021-12-31 19:00

我想重绘标签该怎么做？？？？？？有没有什么实例？我想把标签做成像QQ 切换联系人和群组那样类似的，该怎么做？

最佳答案

五星知识达人网友：蕴藏春秋
2021-12-31 19:07

新建一个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还需要其他技术以及美工。

全部回答

1楼网友：蕴藏春秋
2021-12-31 19:40

这个有什么问题呢？ public class form1 private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click groupbox1.visible = true end sub private sub button2_click(byval sender as system.object, byval e as system.eventargs) handles button2.click groupbox2.visible = true end sub end class

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息