人机界面设计实验报告.docVIP

多媒体应用软件中的人机界面设计 完成人： 完成时间: 设计目的和要求： 1.熟悉基本人机界面的设计，更好的对部件进行控制。 2.编写一个小程序，要求程序窗体为不规则形(不规则形窗体的控件可在网上下载)，并且要3.求界面背景能在运行中变换，对基本部件也有一定的控制。程序的图标应该是自己创作。 设计内容： 1.选取几幅不同的图片做为程序背景； 2.设计自己的程序窗体； 3.绘制自己的程序图标； 4.对界面中的某些基本部件进行控制。 实验结果介绍 这是一个小趣味游戏，在程序运行后显示下页图所示的椭圆形窗体，在界面上有句话：“DO U LOVE ME？”。如果单击“YES”按钮，会显示下页图所示界面，并有一句“ LOVE YOU TOO”，点击红心会回到游戏开始界面；鼠标滑过NO时变换界面，显示一只受伤的小猪，并显示“WRONG ANSWER!”然后按钮会躲着鼠标，让鼠标一直单击不到,单击界面上的小猪会回到游戏开始界面。双击游戏开始界面游戏退出。 游戏界面截图 游戏开始界面 单击“YES”后的界面 鼠标悬浮在NO上后的界面 程序代码及注释 Private Declare Function CreateEllipticRgn Lib gdi32 (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function SetWindowRgn Lib user32 (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Private Sub Form_load()//椭圆形程序窗口实现 Dim X, Y As Long X = CreateEllipticRgn(8, 28, 280, 220) Y = SetWindowRgn(Me.hWnd, X, True) End Sub Private Sub I1_dblClick()//双击退出实现 Unload Me End Sub Private 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)) I1.Visible = False P.Visible = True H.Visible = False L1.Visible = True L2.Visible = True L3.Visible = False L4.Visible = True L.Visible = True P.ZOrder L.ZOrder L4.ZOrder L1.ZOrder L2.ZOrder End Sub Private Sub H_Click()//点击红心回到游戏开始界面 I1.Visible = True H.Visible = False P.Visible = False L1.Visible = True L2.Visible = True L3.Visible = False L4.Visible = False I1.ZOrder L1.ZOrder L2.ZOrder End Sub Private Sub L1_Click()//点击YES变换界面 I1.Visible = False H.Visible = True L1.Visible = False L2.Visible = False L3.Visible = True L4.Visible = False H.ZOrder L3.ZOrder End Sub Private Sub L2_Click()//点击NO变换界面，本实验没用到 I1.Visible = False P.Visible = True H.Visible = False L1.Visible = False L2.Visible = False L3.Visible = False L4.Visible = True P.ZOrder L4.ZOrder End Sub Private Sub P_Cli