365bet365官网您现在的位置:主页 > 365bet365官网 >

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

2019-03-01 10:21365bet足彩投注

展开全部
PrivateSubForm_Click()DimlWidthAsLongDimlHeightAsLongDimlLeftAsLongDimlTopAsLongDimiRowAsIntegerDimiAsIntegerDimiColorAsIntegerMe。

尺寸= 12 l宽度= Me
TextWidth(*)I Height = Me。
TextHeight(*)iColor = 1 Me。
ClsMe
AutoRedraw = TrueForiRow = 1至6 l Top = l Height * i Row + 60 l Left = l Width *(6-i Row)/ 2 + 60 Fori = 1 Toi Rowl Left = l Left + l Width Me。
CurrentY = lTopMe。
CurrentX = lLeftiColor = iColor + 1IfiColor 14TheniColor = 1 Me。
ForeColor = QBColor(iColor)Printing * NextNextForiRow = 7To11lTop = lHeight * iRow + 60lLeft = lWidth *(iRow - 6)/ 2 + 60Fori = 1To12 - iRowlLeft = l Left + l Width Me。
CurrentY = lTopMe。
CurrentX = lLeftiColor = iColor + 1IfiColor 14TheniColor = 1 Me。
ForeColor = QBColor(iColor)Print * NextNextEndSub