Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rec As New Rectangle(20, 20, 100, 600)
Me.Button1.Region = New Region(rec)
Me.Button1.Show()
end sub
这样button1居然变成了一条线，无论怎么改rec,始终是一条长度不变的一条线。
又试了drawing.2d的方法
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rec As New Rectangle(20, 20, 100, 600)
Dim rec As New Rectangle(20, 20, 100, 600)
Dim gpath As New GraphicsPath
gpath.AddRectangle(rec)
Me.Button1.Region = New Region(gpath)
Me.Button1.Show()
end sub
结果还是一条线，郁闷死了。
