文档介绍：本文由孙苏建贡献
罗培羽—教你用VB制作罗培羽—教你用VB制作RPG游戏制作RPG游戏
第四节精美的界面 Make it beautiful
罗培羽作品
? ? ? ?
网名碧俐千仞 QQ:345697666 E_mail:tyxxxx@ 博客:http://hi./mhqy
标题界面
? 创建一个窗体Title 并调整图标等? 调整窗体布局,使它在屏幕中间? 调整大小,使它为800*600 (还要算上包括边框) 宽度: 12120 高度: 9510 设置运行时首先启动工程>属性最后看看效果
基本界面结构
? 我们设置窗体的autoredraw和 scalemode ? 我们做一个名为Pic的图片框,载入“框” Pic 的图片。和一个名为Pic2的图片框,载 Pic2 入背景图片(复制设置好用于显示函数的对象)
? 添加按钮,显示图片 Cls '显示底层图片 GdiTransparentBlt , 0, 0, , , , 0, 0, , , false '画图'显示框 GdiTransparentBlt , 0, 0, , , , 0, 0, , , RGB(255, 255, 255) ‘画图最后调试下看看
让背景图片移动
? 添加timer1 时间调5
'底层图片处理 If a = 0 Then X = X - 1 If X < / 15 Then a = 1 Else X = X + 1 If X > 0 Then a = 0 End If mand1_Click
添加标题文字
? 建个Pic3 ? 按钮代码中间添加'显示文字 GdiTransparentBlt , / 30 - / 2, 100, , , , 0, 0, , , RGB(255, 255, 255) '画图
让文字有动感
? ? ? ? 在显示图片时修改参数 X加上 10 * Sin(X / 40) 宽度加上 20 * Sin(X / 40) 高度加上 5 * Cos(X / 30)
添加音乐
? 在文件夹中添加 Form_Load() = AppDisk + “music/”‘音乐处理 Form_Unload() Unload Src 为了有震撼的效果,我们把播放器的音量加大
制作按钮
? ew2
ew2为不可见,ew 中 Form_MouseMove() = False ew_MouseMove = true
? 同理我们添加 PicOld PicOld2 PicMaker PicMaker2 PicExit PicExit2 并相应在mouse_down添加