【正文】
Center Visible=False 29 PopupMenu(cont’d) 30 PopupMenu(cont’d) Private Sub Center_Click() = “Center” End Sub Private Sub form_click() Call PopupMenu(pop) End Sub Private Sub Left_Click() = “Left” End Sub Private Sub Right_Click() = “Right” End Sub 。Left ……amp。Exit amp。Help Checked 分隔用的橫線 VB會產(chǎn)生相對應(yīng)的物件 26 Private Sub Blue_Click() = False = False = True Line (10, 10)(50, 50), vbBlue, BF End Sub Private Sub Exit_Click() End End Sub Private Sub Green_Click() = False = True = False Line (10, 10)(50, 50), vbGreen, BF End Sub 程式還沒完喔 27 Menu(cont’d) Private Sub Red_Click() = True = False = False Line (10, 10)(50, 50), vbRed, BF End Sub 28 Popu