VB做的T型窗体 异形窗口.rar

VB制作一个异形窗口，今天分享的是一个“T型窗体”，制作的关键是把握好这种T形窗口的八个顶点，定位好是关键，以下代码或许对你制作T字形异形窗口有帮助： 　　ReDim XY(7) As POINTAPI 'T 型有八个顶点 　　With Me 　　XY(0).X = 0 　　XY(0).Y = 0 　　XY(1).X = .ScaleWidth 　　XY(1).Y = 0 　　XY(2).X = .ScaleWidth 　　XY(2).Y = .ScaleHeight / 2 　　XY(3).X = .ScaleWidth - (.ScaleWidth / 3) 　　XY(3).Y = .Sc