16,554
社区成员
发帖
与我相关
我的任务
分享
Dim G As Graphics
Dim B1 As Bitmap
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
B1 = New Bitmap(Label1.Width, Label1.Height)
G = Graphics.FromImage(B1)
G.DrawLine(Pens.Black, New Point(0, Label1.Height), New Point(Label1.Width, 0))
G.Dispose()
Label1.BackgroundImage = B1
End Sub
End Class
Label1.Text = "/"
Label2.Text = "\"