Delphi 实现图像热点功能，实现一张图片上不同形状区域的热点，定义椭圆形、四边形、三角形的区域变量的热点，相关代码如下： var thepoint:array [1..8] of tpoint;//存储多边形顶点坐标 count:integer; pointnum:array [1..2] of integer; begin //四边形顶点坐标，首末点封闭 thepoint[1]:=point(135,99); thepoint[2]:=point
VB 输出有规律的图形，可打字字符组成长方形、四边形、三角形、直角三角形等图形，以下代码是输出长方形和四边形的代码，更多源码请在本页面下载完整源码。 Private Sub Command1_Click() For i = 1 To 5 输出共5行 For j = 1 To 4 输出4列 Picture1.Print "*"; 在图片框1中输出由*组成的长方形图形 Next j Picture1.Print 换行 Next i End Sub
