Private Sub Label1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Label1.Paint
        '上
        e.Graphics.DrawLine(New Pen(System.Drawing.Brushes.Black, 1), New Point(0, 0), New Point(Label1.Width - 1, 0))
        '左
        e.Graphics.DrawLine(New Pen(System.Drawing.Brushes.Black, 1), New Point(0, 0), New Point(0, Label1.Height - 1))
        '右
        e.Graphics.DrawLine(New Pen(System.Drawing.Brushes.Black, 1), New Point(Label1.Width - 1, 0), New Point(Label1.Width - 1, Label1.Height - 1))
        '下
        e.Graphics.DrawLine(New Pen(System.Drawing.Brushes.Black, 1), New Point(0, Label1.Height - 1), New Point(Label1.Width - 1, Label1.Height - 1))
    End Sub

創作者介紹

歡迎~ 程式設計 學生 作業 專題製作 程式外包 家教...

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()