匿名使用者
匿名使用者 發問時間: 電腦與網際網路程式設計 · 6 年前

VB的picturebox移動

怎麼樣能點擊picturebox之後使他移動(每點擊一次動一步)

使用if的話要怎麼寫那個程式?

已更新項目:

是往右移動

1 個解答

評分
  • 逸群
    Lv 5
    6 年前
    最佳解答

    Private Sub Picture1_Click()

    'Picture1.Top = Picture1.Top - 100 '往上

    'Picture1.Top = Picture1.Top + 100 '往下

    'Picture1.Left = Picture1.Left - 100 '往左

    Picture1.Left = Picture1.Left + 100 '往右

    End Sub

    2015-06-07 16:41:12 補充:

    http://www.funp.net/976440

    2015-06-07 16:53:30 補充:

    忘了要if 但是用case 比較好

    Select Case Combo1.ListIndex

    Case 0

    Picture1.Top = Picture1.Top - 100 '往上

    Case 1

    Picture1.Top = Picture1.Top + 100 '往下

    Case 2

    Picture1.Left = Picture1.Left - 100 '往左

    Case 3

    Picture1.Left = Picture1.Left + 100 '往右

    End Select

    2015-06-07 16:53:43 補充:

    http://www.funp.net/247956

    2015-06-07 18:47:21 補充:

    Picture1.Left = Picture1.Left + 100 '往右移動

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