没有合适的资源?快使用搜索试试~ 我知道了~
精彩编程与编程技巧-VB随机图像的魅力...
需积分: 3 12 下载量 45 浏览量
2009-10-10
22:31:02
上传
评论
收藏 3KB TXT 举报
温馨提示
试读
3页
精彩编程与编程技巧-VB随机图像的魅力 ...
资源推荐
资源详情
资源评论
VB随机图像的魅力
VB提供了相当强的文字输出和绘图功能, 可以在窗口或图形框中利用各种命令显示字体或绘制各种图形。灵活使用这些命令,不仅可以完成许多特殊的功能, 而且可以为Windows的程序界面增加许多活力。下面用简单的例子演示VB中随机动画的风采。
(一)、随机文字动画
在VB中可利用Print命令进行字符串的显示工作,此命令一般只在当前位置显示字符串, 但具体操作时可通过CurrentX和CurrentY 控制字符串显示位置,通过FontSize控制字体的尺寸, 通过ForeColor和BackColor控制字符的前景色和背景色。 如果把上述的各项属性值均采用RND 进行随机产生, 即会形成随机字符显示效果。比如在一个图形框中显示一些新年贺辞, 同时播放美妙的音乐, 那将是一份极好的新年礼物。需要注意一点,由于字体互相覆盖,长时间显示会使窗口显得乱一些,所以最好按一定时间用“CLS"命令进行窗口清除。此处说明一下颜色的控制技巧,如果使用QBColor(Rnd*15)方式定义随机颜色,只能在16种颜色中随机产生, 而采用RGB(Rnd*256,Rnd*256,Rnd*256)方式,则可以产生256*256*256种不同的颜色。具体操作方式请见文后Command1-Click事件中的代码。
(二)、立体图形随机动画
虽然直接利用绘图语句即可以实现简单的动画, 但如果通过这些命令绘制成一定的立体图形, 并实行随机动画操作, 那将更具有特殊的艺术效果。比如下面两行简单的命令将画出一个具有强烈立体感效果的三角锥体,其中(M,N)为锥体的顶端坐标:
Picture1.Line(m,n+2.5*i)-(m+i/2,n+2*i),RGB(180,180,180)
Picture1.Line(m,n+2.5*i)-(m-i/2,n+2*i),RGB(80,80,80)
如果把屏幕的底色置为暗黄色, 在此窗口内的随机位置画出大小不一的三角锥, 就像在黄色的沙漠上建起了无数的金字塔, 具有一种特殊的情趣。具体操作方法请见文后程序中的Command2-Click事件中的代码。
(三)、演示程序编制过程
文后是一个完成上述随机动画的完整演示程序,需要在From1 窗体中安放一个图形框Picture1及三个命令按钮Command1-3, 然后把下面的代码填入相应的事件处。运行此程序之后, 按下按钮1 ,则在图形框中进行随机文字显示。按下按钮 2,则在图形框中随机显示三角锥体。按下按钮3,则退出程序。此程序在Windows 95系统上VB5.0 环境下调试通过。
′程序准备:
Private Sub Form-Load()
Command1.Caption = ″随机文字″
Command2.Caption = ″立体图形″
Command3.Caption = ″退出″
Form1.ScaleMode = 1
Picture1.ScaleMode = 1
VB提供了相当强的文字输出和绘图功能, 可以在窗口或图形框中利用各种命令显示字体或绘制各种图形。灵活使用这些命令,不仅可以完成许多特殊的功能, 而且可以为Windows的程序界面增加许多活力。下面用简单的例子演示VB中随机动画的风采。
(一)、随机文字动画
在VB中可利用Print命令进行字符串的显示工作,此命令一般只在当前位置显示字符串, 但具体操作时可通过CurrentX和CurrentY 控制字符串显示位置,通过FontSize控制字体的尺寸, 通过ForeColor和BackColor控制字符的前景色和背景色。 如果把上述的各项属性值均采用RND 进行随机产生, 即会形成随机字符显示效果。比如在一个图形框中显示一些新年贺辞, 同时播放美妙的音乐, 那将是一份极好的新年礼物。需要注意一点,由于字体互相覆盖,长时间显示会使窗口显得乱一些,所以最好按一定时间用“CLS"命令进行窗口清除。此处说明一下颜色的控制技巧,如果使用QBColor(Rnd*15)方式定义随机颜色,只能在16种颜色中随机产生, 而采用RGB(Rnd*256,Rnd*256,Rnd*256)方式,则可以产生256*256*256种不同的颜色。具体操作方式请见文后Command1-Click事件中的代码。
(二)、立体图形随机动画
虽然直接利用绘图语句即可以实现简单的动画, 但如果通过这些命令绘制成一定的立体图形, 并实行随机动画操作, 那将更具有特殊的艺术效果。比如下面两行简单的命令将画出一个具有强烈立体感效果的三角锥体,其中(M,N)为锥体的顶端坐标:
Picture1.Line(m,n+2.5*i)-(m+i/2,n+2*i),RGB(180,180,180)
Picture1.Line(m,n+2.5*i)-(m-i/2,n+2*i),RGB(80,80,80)
如果把屏幕的底色置为暗黄色, 在此窗口内的随机位置画出大小不一的三角锥, 就像在黄色的沙漠上建起了无数的金字塔, 具有一种特殊的情趣。具体操作方法请见文后程序中的Command2-Click事件中的代码。
(三)、演示程序编制过程
文后是一个完成上述随机动画的完整演示程序,需要在From1 窗体中安放一个图形框Picture1及三个命令按钮Command1-3, 然后把下面的代码填入相应的事件处。运行此程序之后, 按下按钮1 ,则在图形框中进行随机文字显示。按下按钮 2,则在图形框中随机显示三角锥体。按下按钮3,则退出程序。此程序在Windows 95系统上VB5.0 环境下调试通过。
′程序准备:
Private Sub Form-Load()
Command1.Caption = ″随机文字″
Command2.Caption = ″立体图形″
Command3.Caption = ″退出″
Form1.ScaleMode = 1
Picture1.ScaleMode = 1
资源评论
求伯乐
- 粉丝: 22
- 资源: 3095
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功