在文字标记中搜索的代码 在指定的一个矩形区域内((0,0)-(SizeX,SizeY))添加标牌,每个标牌都是大小固定的矩形(sx,sy),每个标牌有个初始指定的左上方位置,如果该标牌没有与已经放置的其它标牌重叠的话,便就放置在该位置,否则在离该初始位置最近的空隙地方放置该标牌,直到没有地方放置为止(返回一个代表没有空闲位置的返回值)。 int x0,y0; //当前目标点中心坐标 int x,y; //当前标牌
Dim x0 As Single Dim y0 As Single Private Sub Form_Load() With Form1 .Width = 3000 .Height = 3100 .BackColor = vbBlack .Caption = "动态时钟" End With x0 = 1430 y0 = 1290 With Line1 .X1 = x0 .Y1 = y0 End With With Line2 .X1 = x0 .Y1 = y0 End With With Li
