大三机械设计课程设计报告vb.docVIP

WORD文档 下载可编辑 专业技术 资料分享 Private Sub Command1_Click(Index As Integer) Dim dblWP As Double, dblHP As Double, i As Integer dblWP = Abs(Picture1(0).ScaleWidth) dblHP = Abs(Picture1(0).ScaleHeight) For i = 0 To 5 Picture1(i).Cls Picture1(i).ScaleMode = 1 Picture1(i).DrawStyle = 0 Picture1(i).DrawWidth = 1.5 Picture1(i).Scale (-120, dblHP / 2)-(dblWP - 120, -dblHP / 2) Picture1(i).Line (0, 0)-(dblWP - 160, 0) Picture1(i).Line (dblWP - 160, 0)-Step(-120, 120) Picture1(i).Line (dblWP - 160, 0)-Step(-120, -120) Picture1(i).CurrentX = dblW