扫描二维码下载沐宇APP

沐宇

微信扫码使用沐宇小程序

沐宇
沐宇首页 互联网技术知识问答 vb.net鎬庝箞鎶奲utton鍙樻垚鍦嗗舰

vb.net鎬庝箞鎶奲utton鍙樻垚鍦嗗舰

扬州沐宇科技
2023-12-25 12:27:51
VB.NET

瑕佸皢鎸夐挳鍙樻垚鍦嗗舰锛屽彲浠ヤ娇鐢ㄤ互涓嬫柟娉曪細

  1. 鍦╒B.NET涓紝鎵惧埌鎸夐挳鐨勫睘鎬х獥鍙ｃ€?/p>

  2. 鍦ㄥ睘鎬х獥鍙ｄ腑锛屾壘鍒版寜閽殑FlatStyle灞炴€э紝骞跺皢鍏惰缃负Flat銆?/p>

  3. 鍦ㄦ寜閽殑Paint浜嬩欢涓紝浣跨敤浠ヤ笅浠ｇ爜锛?/p> 

    Private Sub Button1_Paint(sender As Object, e As PaintEventArgs) Handles Button1.Paint
    Dim button As Button = CType(sender, Button)
    Dim path As New System.Drawing.Drawing2D.GraphicsPath()
    path.AddEllipse(0, 0, button.Width, button.Height)
    button.Region = New Region(path)
End Sub

    杩欏皢浣跨敤涓€涓き鍦嗗舰璺緞鏉ョ粯鍒舵寜閽殑鍖哄煙锛屼娇鍏跺憟鐜颁负鍦嗗舰銆?/p>

  4. 杩愯绋嬪簭锛屼綘浼氱湅鍒版寜閽凡缁忓彉鎴愪簡鍦嗗舰銆?/p>

相关问答

扫码添加客服微信