文件名称：VB做的T型窗体-异形窗口.rar
文件大小：142KB
文件格式：RAR
更新时间：2022-07-30 04:31:00
VB源码-窗体界面
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 = .ScaleHeight / 2 XY(4).X = .ScaleWidth - (.ScaleWidth / 3) XY(4).Y = .ScaleHeight XY(5).X = .ScaleWidth / 3 XY(5).Y = .ScaleHeight XY(6).X = .ScaleWidth / 3 XY(6).Y = .ScaleHeight / 2 XY(7).X = 0 XY(7).Y = .ScaleHeight / 2 End With
【文件预览】：
codesc.net
----T型窗体()
--------工程1.vbw(50B)
--------MSSCCPRJ.SCC(190B)
--------Form1.frx(360KB)
--------Form1.frm(3KB)
--------工程1.vbp(610B)