[vb]如何制作弹性小球 Option Explicit Dim MoveX, MoveY As Integer Private Sub Form_Load() With Me .Height = 6810 .Width = 7365 End With With shpRect .Top = 120 .Left = 120 .Width = 6975 .Height = 6135 End With With shpCircle .Top = 120 .Left = 120 .Height = 615 .Width = 735 End With MoveX = 1: MoveY = 1
阅读全文