VB6.0 利用SHAPE 做出彈跳球 拜託大大幫忙

希望大大 可以幫幫忙我該怎麼做

說實在ㄉ好難押

老說要用 shape 把 shape 調成圓形

然後 利用這ㄍ圓形

去做彈跳球

由亂數去決定方向

每按一下空白鑑 方向就改變

希望大大 可以教我怎做 可以的話 請附上說明

球要再 from 裡面跑

希望大大 教一下 感恩

已更新項目:

忘了說 空白鑑 要在框框裡面 消失 !

2 個已更新項目:

忘了說明 球要在from 撞到會反彈

這ㄍ該怎用押 goodspeedliou 希望大大可以幫一次

謝謝= ˇ=

1 個解答

評分
  • 1 0 年前
    最佳解答

    在Form上放上一個Shape和一個Timer,程式如下:

    Dim iDir As Integer '方向

    Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

    If KeyCode = vbKeySpace Then

    iDir = (iDir + 1) Mod 4

    End If

    End Sub

    Private Sub Form_Load()

    Shape1.Shape = 3 '圓形

    Shape1.FillStyle = 0 '實心

    Shape1.FillColor = &HFF& '紅色

    Timer1.Interval = 50 '200毫秒一動一下

    iDir = 0 '向右

    End Sub

    Private Sub Timer1_Timer()

    Dim X As Long

    Dim Y As Long

    X = Shape1.Left

    Y = Shape1.Top

    Select Case iDir

    Case 0 '右邊

    X = X + 10

    Case 1 '下面

    Y = Y + 10

    Case 2 '左邊

    X = X - 10

    Case 3 '上面

    Y = Y - 10

    End Select

    If X < 0 Then

    X = 0

    End If

    If X > Form1.Width - Shape1.Width Then

    X = Form1.Width - Shape1.Width

    End If

    If Y < 0 Then

    Y = 0

    End If

    If Y > Form1.Height - Shape1.Height Then

    Y = Form1.Height - Shape1.Height

    End If

    Shape1.Left = X

    Shape1.Top = Y

    End Sub

    按空白鍵就可以改變方下, 其他的變化自己改吧

還有問題?馬上發問,尋求解答。