摘要:
'添加个picture1和command1Option ExplicitDim lngCenter As LongDim lngMax As LongDim lngPad&Dim PCurrent As POINT, PLast As POINTPrivate Type POINT x As Long y As LongEnd TypePrivate Sub Form_Load() lngCenter = (Picture1.Top + Picture1.Height) / 2 lngMax = Picture1.Height PLast.x = 0 PLast.y = lngCenter D 阅读全文
posted @ 2009-10-22 12:40 随风飘零0 阅读(1744) 评论(0) 推荐(0)
浙公网安备 33010602011771号