关闭

对按钮重新绘制

320人阅读 评论(0) 收藏 举报

 

    Private Sub Button2_Paint(ByVal sender As ObjectByVal e As System.Windows.Forms.PaintEventArgs) Handles Button2.Paint

        
Dim MyGp As New System.Drawing.Drawing2D.GraphicsPath
        MyGp.AddEllipse(
New Rectangle(-50-50125125))
        MyGp.AddEllipse(
New Rectangle(55552020))
        
' MyGp.AddEllipse(New Rectangle(0, 0, 125, 125))
        'MyGp.AddEllipse(New Rectangle(0, 0, 125, 125))
        Button2.BackColor = Color.Blue
        Button2.BackgroundImage 
= Image.FromFile("F:壁纸 _6289.jpg")
        MyGp.AddString(
"中华人民共和国"New FontFamily("宋体"), FontStyle.Regular, 15New PointF(540), StringFormat.GenericDefault)

        
'Button2.Size = New Size(256, 256)
        Button2.Region = New Region(MyGp)
    
End Sub

 

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:72243次
    • 积分:1118
    • 等级:
    • 排名:千里之外
    • 原创:36篇
    • 转载:12篇
    • 译文:0篇
    • 评论:11条
    最新评论