365bet返水多少

您的位置主页 > 365bet中文版app >

Vb以形式显示图形(菱形)。

2019-04-17 02:44:58   来源:365bet官网是多少   作者:365bet体育备用网站   【 评论:
展开全部
PrivateSubForm_Click()DimlWidthAsLongDimlHeightAsLongDimlLeftAsLongDimlTopAsLongDimiRowAsIntegerDimiAsIntegerDimiColorAsIntegerMe。

尺寸= 12 l宽度= Me
TextWidth(*)IHeight = I
TextHeight(*)iColor = 1 Me。
ClsMe
AutoRedraw = TrueForiRow = 1To6lTop = lHeight * iRow + 60lLeft = lWidth *(6-iRow)/ 2 + 60Fori = 1ToiRowlLeft = lLeft + lWidthMe。
CurrentY = lTopMe。
CurrentX = lLeftiColor = iColor + 1 IfiColor 14 TheniColor = 1 Me。
ForeColor = QBColor(iColor)打印* NextNext ForiRow = 7To11lTop = lHeight * iRow + 60lLeft = lWidth *(iRow-6)/ 2 + 60Fori = 1To12-iRowlLeft = lLeft + lWidthMe。
CurrentY = lTopMe。
CurrentX = lLeftiColor = iColor + 1 IfiColor 14 TheniColor = 1 Me。
ForeColor = QBColor(iColor)打印* NextNextEndSub