1、多媒體應用軟件中的人機界面設計完成人:完成時間:設計目的和要求：熟悉基本人機界面的設計，更好的對部件進行控制。編寫一個小程序，要求程序窗體為不規(guī)則形（不規(guī)則形窗體的控件可在網上下載），并且要求界面背景能在運行中變換，對基本部件也有一定的控制。程序的圖標應該是自己創(chuàng)作。設計內容：選取幾幅不同的圖片做為程序背景；設計自己的程序窗體；繪制自己的程序圖標；對界面中的某些基本部件進行控制。實驗結果介紹這是一個小趣味游戲，在程序運行后顯示下頁圖所示的橢圓形窗體，在界面上有句話: “DO U LOVE ME？”。如果單擊“YES ”按鈕，會顯示下頁圖所示界面，并有一句“ LOVE YOU TOO”，點擊紅心

2、會回到游戲開始界面；鼠標滑過NO時變換界面，顯示一只受傷的小 豬，并顯示“WRONG ANSWER!”然后按鈕會躲著鼠標，讓鼠標一直單擊不到單擊界面上 的小豬會回到游戲開始界面。雙擊游戲開始界面游戲退出。游戲界面截圖LOVE U TOOL游戲開始界面單擊“ YES ”后的界面DO U LOVE ME?YESWRONG ANSWERI鼠標懸浮在NO上后的界面程序代碼及注釋Private Declare Function CreateEllipticRgn Lib gdi32 (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal

3、Y2 As Long) As LongPrivate Declare Function SetWindowRgn Lib user32 (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As LongPrivate Sub Form_load()/橢圓形程序窗口實現Dim X, Y As LongX = CreateEllipticRgn(8, 28, 280, 220)Y = SetWindowRgn(Me.hWnd, X, True)End SubPrivate Sub I1_dblClick()/雙 擊退

4、出實現Unload MeEnd SubPrivate Sub L2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)鼠標 滑過NO效果實現L2.Left = Int(Rnd * (Me.ScaleWidth - L2.Width * 3)L2.Top = Int(Rnd * (Me.ScaleHeight - L2.Height * 3)Il.Visible = FalseP.Visible = TrueH.Visible = FalseLl.Visible = TrueL2.Visible = T

5、rueL3.Visible = FalseL4.Visible = TrueL.Visible = TrueP.ZOrderL.ZOrderL4.ZOrderLl.ZOrderL2.ZOrderEnd SubPrivate Sub H_Click()/點擊紅心回到游戲開始界面Il.Visible = TrueH.Visible = FalseP.Visible = FalseLl.Visible = TrueL2.Visible = TrueL3.Visible = FalseL4.Visible = FalseIl.ZOrderLl.ZOrderL2.ZOrderEnd SubPrivate

6、 Sub L1_Click()/點擊 YES 變換界面I1.Visible = FalseH.Visible = TrueL1.Visible = FalseL2.Visible = FalseL3.Visible = TrueL4.Visible = FalseH.ZOrderL3.ZOrderEnd SubPrivate Sub L2_Click()/點擊NO變換界面，本實驗沒用到I1.Visible = FalseP.Visible = TrueH.Visible = FalseL1.Visible = FalseL2.Visible = FalseL3.Visible = FalseL4.Visible = TrueP.ZOrderL4.ZOrderEnd SubPrivate Sub P_Click()/點擊小豬回到游戲開始界面I1.Visible = TrueP.Visible = FalseH.Visible = Fa