| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛

'绘制图像
For ArrayIndex = LBound(LinesArray) To UBound(LinesArray)
LineColor = ColorArray(ArrayIndex)
LineDimensions = Split(LinesArray(ArrayIndex), ",")
For i = LBound(LineDimensions) To UBound(LineDimensions) - 1           '这里减了1，确保了SecondPoint不出错，但最后一个点就给扔掉了
FirstPoint = (.Height - RowOffset) - (CInt(LineDimensions(i)) * ColSize)
SecondPoint = (.Height - RowOffset) - (CInt(LineDimensions(i + 1)) * ColSize)
CurrentY = FirstPoint + 10: CurrentX = ColOffset + (i * RowSize) + (RowSize / 2) - TextWidth(CInt(LineDimensions(i)))
Print CInt(LineDimensions(i))
Line (ColOffset + (i * RowSize) + (RowSize / 2), FirstPoint)-(ColOffset + RowSize + (i * RowSize) + (RowSize / 2), SecondPoint), LineColor
Next i
'再把这二行复制出来再执行一遍就行了
CurrentY = FirstPoint + 10: CurrentX = ColOffset + (i * RowSize) + (RowSize / 2) - TextWidth(CInt(LineDimensions(i)))
Print CInt(LineDimensions(i))
Next ArrayIndex

[此贴子已经被作者于2020-9-9 10:00编辑过]

'显示横坐标，这里有问题，向左偏移了
For i = 1 To Rows
CurrentY = .Height - (RowOffset / 2) - (TextHeight("I") / 2)
CurrentX = i * RowSize - (TextWidth(RowCaption(i)) / 2)
Print RowCaption(i)
Next i

• 4
• 1/1页
• 1