抓狂小白的程式筆記

原文網址https://tw.knowledge.yahoo.com/question/question?qid=1015060703954

怎麼樣能點擊picturebox之後使他移動(每點擊一次動一步)
使用if的話要怎麼寫那個程式?

======解答開始======

• 要if 但是用case 比較好

用ComboBox 新增上下左右

Private Sub Form_Load()
Combo1.AddItem "上"
Combo1.AddItem "下"
Combo1.AddItem "左"
Combo1.AddItem "右"
End Sub

圖片滑鼠點擊事件裡面寫

• Private Sub Picture1_Click()
  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
  End Sub