罗培羽—教你用VB制作RPG游戏第4节.ppt

罗培羽—教你用VB制作RPG游戏 第四节 精美的界面 Make it beautiful 罗培羽 作品 网名 碧俐千仞 QQ:345697666 E_mail：tyxxxx@ 博客：/mhqy 标题界面 创建一个窗体Title 并调整图标等 调整窗体布局，使它在屏幕中间 调整大小，使它为800*600 （还要算上包括边框） 宽度： 12120 高度： 9510 设置运行时首先启动 工程属性 最后看看效果 基本界面结构 我们设置窗体的autoredraw和scalemode 我们做一个名为Pic的图片框，载入“框”的图片。和一个名为Pic2的图片框，载入背景图片（复制设置好用于显示函数的对象） 添加按钮，显示图片 Cls 显示底层图片 GdiTransparentBlt Title.hDC, 0, 0, Pic2.Width, Pic2.Height, Pic2.hDC, 0, 0, Pic2.Width, Pic2.Height, false 画图 显示框 GdiTransparentBlt Title.hDC, 0, 0, Pic.Width, Pic.Height, Pic.hDC, 0, 0, Pic.Width, Pic.Height, RGB(255, 255, 255) ‘画图 最后调试下看看 让背景图片移动 添加timer1 时间调5 底层图片处理 If a = 0 Then X = X - 1 If X Title.Width / 15 - Pic2.Width Then a = 1 Else X = X + 1 If X 0 Then a = 0 End If Call Command1_Click 添加标题文字 建个Pic3 按钮代码中间添加 显示文字 GdiTransparentBlt Title.hDC, Title.Width / 30 - Pic3.Width / 2, 100, Pic3.Width, Pic3.Height, Pic3.hDC, 0, 0, Pic3.Width, Pic3.Height, RGB(255, 255, 255) 画图 让文字有动感 在显示图片时修改参数 X加上 10 * Sin(X / 40) 宽度加上 20 * Sin(X / 40) 高度加上 5 * Cos(X / 30) 添加音乐 在文件夹中添加 title.mp3 Form_Load() Src.WindowsMediaPlayer1.URL = AppDisk + “music/title.mp3” ‘音乐处理 Form_Unload() Unload Src 为了有震撼的效果，我们把播放器的音量加大 制作按钮 添加图片框PicNew和PicNew2 设置PicNew2为不可见，并让它在PicNew中 Form_MouseMove() PicNew2.Visible = False PicNew_MouseMove PicNew2.Visible = true 同理我们添加 PicOld PicOld2 PicMaker PicMaker2 PicExit PicExit2 并相应在mouse_down添加相应的代码 最后调整好位置 制作退出游戏事件 PicExit2_Click() End 制作开始游戏事件 PicNew2_Click() main.Show main.Form_Load() 同时将main的启动位置设为手工 main.Width = Title.Width main.Height = Title.Height main.Move Title.Left, Title.Top Show Unload Title 制作制作团队事件 添加不可见的图片框Maker，并放到适当位置 PicMaker2_Click() Maker.Visible = True Maker_Click() Maker.Visible = False “旧的回忆”我们在学习了储存与读取后再添加 对于标题画面你可以发挥你的想象力，做到更好 菜单界面 创建一个窗体Menu 并调整图标等 调用 修改main的鼠标点击事件 If Button = 1 Then …… Else 菜单处理 Menu.Width = main.Width Menu.Height = main.Height Menu.Move main.Left, main.Top Menu.Show main.Hide End If 这里我们做个简单的菜单，你可以发挥你的聪明才智做得更好 添加背景图片 添加文本框