说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

五彩缤纷的清屏效果-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
五彩缤纷的清屏效果-VB资料
作者:无为
在一些软件演示中,这一屏内容到下一屏内容间往往以一些有趣的清屏图案来相互切换,有的像演出舞台上的开幕、闭幕,有的像百叶窗,也有一些圆形、菱形等形态各异的清屏图案。VB作为一门优秀的WINDOWS下的开发语言,其图形功能也很强。我们完全可以用其提供的画线语句作出上述的清屏图案,下面的程序给出了常见的清屏图案程序:
  Sub FilSCrO'设置背景色
  Me.BackColor=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
  End Sub
  Sub ClrScrl()'从左右两边到中间清屏
  Dim I As Integer:Randomize:color=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
  For I=0 To ScaleWidth/2
  Line(I,0)-(I,ScaleHeight),color
  Line(ScaleWidth-I,0)-(ScaleWidth-I,ScaleHeight),color
  Next I
  End Sub
  Sub ClrSer20'从中间到左右两边清屏
  Dim I As Integer:Randomize:color=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
  for I=ScaleWidth/2 To 0 Step -1
  Line(I,0)-(I,ScaleHeight-1),color
  Line(ScaleWidth-I,0)-(ScaleWidth-I,ScaleHeight),color
  Next I
  End Sub
  Sub ClrScr30'从上(顶)下(低)到中间清屏
  Dim I As Integer:Randomize:color=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
  For I=0 To ScaleHeight/2
  Line(0,I)-(ScaleWidth,I),color
  Line(0,ScaleHeight-I)-(ScaleWidth,ScaleHeight-I),color
  next I
  End Sub
  Sub ClrScr40'从中间到上(顶)下(底)清屏
  Dim I As Integer:Randomize:color=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
  For I=ScaleHeight/2 To 0 Step -1
  Line(0,I)_(ScaleWidth,I),color
  Line(0,ScaleHeight-I)-(ScaleWidth,ScaleHeight-I),color
  Next I
  End Sub
  Sub ClrScr50'菱形清屏,从四角向中心
  Dim I,j As Integer:Randomize:color=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
  For I=0 To ScaleWidth Sep 200
  For j=0 To ScaleHeight Step200*ScaleHeight/ScaleWidth
  Line(I,0)-(0,j),color
  Line(ScaleWidth-I,ScaleHeight)-(ScaleWidth,ScaleHeight-j),color
  Line(0,ScaleHeight-j)-(I,ScaleHeight),color
  Line(ScaleWidth-I,0)-(ScaleWidth,ScaleHeight-j),color
  Next j
  Next I
  End Sub
  Sub ClrScr60'圆形清屏,由大至小从外围向中心
  Dim I As Integer:Randomize:color=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
  For I=ScaleWidth To 0 Step-3
  Circle(ScaleWidth/2,ScaleHeight/2,I/2,color
  Next I
  End Sub
  Sub ClrScr70'圆形清屏,由小至大从中心向外围
  Dim I As Integer:Randomize:color=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
  For I=0 To ScaleHeight Step 3
  Circle(ScaleWidth/2,ScaleHeight/2),I/2,color
  Next I
  End Sub
  ‘以上程序作为定义的子函数,置于General间
  Sub Form_Activate()
  FillSCr;ClrScr1;ClrScr2;ClrScr3;ClrScr4;ClrScr5;ClrScr7;ClrScr6
  End Sub
  Private Sub Form_Click()
  End
  End Sub
  注:该程序在VB3.0、VB4.0、VB5.0下均通过,程序一开始运行即先后演示从左右到中间,从中间到左右,从上下到中间,从中间到上下,从四角向中心(菱形),从中心向外围(圆形),从外围向中心(圆形)等清屏图案。最后两个清屏图案很有趣,清屏结束后还会形成从中心到四角的放射状图案,似孔雀开屏一样。有兴趣的读者不防一试。另外,请注意FORM(窗体)的AutoRedraw属性值应为False,若为True,则将看不到效果。(昆明 无为)
  
合作: “云”潮中淘金的金钥匙 Windows 8.1尚未发布 Build 9471版遭泄露网爆高清大图 Imangi创始人:我眼中的App Store 职业设计生涯:打造世界上最小巧最强大手电 【SDCC 2013】Coding For Fun活动火热招募中! YARN之上的大数据框架REEF:微软出品,是否值得期待? 创建大数据公司之前你需知晓5件事 前途渺茫,考虑出售的黑莓还能找到买家吗? 帮助开发者轻松管理项目的8款在线工具 现代Web应用开发者必备的六大技能 JavaScript异步编程好助手:Promise模式 功能解析:Red语言推出0.3.3新版本 可穿戴?可吞咽!UI和UX的悄然转变 华为刘成:讲述开发者联盟的故事 出尔反尔,Amazon咬文嚼字玩转私有云 创业公司SOASTA:曾帮助伦敦奥运会官网进行云负载测试 金山云进一步聚焦云存储 Facebook公布用户数据:美国移动用户占比78% Zynga开源服务器监控工具zPerfmon 上海海事大学王洁:打造物流教学科研应用云平台生态系统 15个步骤创立技术公司,并收获千万用户(二) HTML5发展慢热 开发者热情不减 NimbleBit孪生兄弟创始人:最后悔没有专注和扩大品牌 将对Windows形成挑战:谷歌在Chrome OS中默认支持Office 微软的企业社交大动作:Yammer发布移动SDK 谷歌开源Gumbo:纯C语言实现的HTML5解析库 AMD发布APPML源码,构建clMath库 【观察】3个月,每天增加52台,又一家云企业跻身十万台服务器俱乐部 感受华为IT业务的实力 小米雷军:我为什么做红米? GitHub上线Trending功能,帮你轻松找到有潜力的开源项目 还有一个问题,帮帮我嘛! 高分请教高手!简单,看了你也是高手 代码编辑器的问题。 计论:大家都用什么工具进行数据库的比较? 我高中的班主任 请大家评评理,特别是JAVA版版主! 这样的SQL语句怎么写啊 form切换!VB.net里面如何在语句里调出别的FORM 如何用ADO连接EXCEL数据? 什么是上溯造型? 如何把console.write 输出很多内容保存到文件?thread.join()如何使用? 我想实现像网络蚂蚁那样在IE上点右键,把这个IE中的信息传送给我主程序,现在遇到两个问题! 控件的布局问题? 实例化算不算继承? 急!!!!关于SQL数据堵塞 请大家推荐一下哪个汇编集成环境比较好用?DOS下用什么?WIN下用什么? 向各位请教两个tomcat的问题:(谢谢) 高手请问 拉格朗日算法VB=>BCB 求ASP的字符串比较函数. 找C++BUILDER高手!! 我在做演示光盘,用camtasia录制的屏幕图象,可是在客户的机器上播放不出来,在线等待,解决问题马上揭贴! fastreport如何不进行预览而直接打印! 不使用下拉数据窗口,如何实现输入产品代码即可显示产品名称 大哥救命啊 一个简单问题,在一个Win32 applicaion 中如何使用CString变量! 在线等待! 倒霉!!!平白无故被副总扣了100点! 我高中的班主任 JBuilder的爱好者,请留下您的联系方式!谢谢,让我们共同进步! 未指定默认数据库驱动…… VC中如何添加数据库支持? 栽ejb-jar.xml中部署的Ejb QL怎么和Home接口中声明的查询连接起来,必须以ejbSelect开头吗? 如何通过程序调用荧光笔操作?急,在线等!高分相送啊! 表格宽度 发现我的作文水平如果参加今年高考能得满分(仅限作文) 送100分,JB7+JBoss下,用CMP方式建两个EntityBean,比如DIfsZxx(主键所在实体),DIfsZxxRw(外建所在实体),当两者之间关系设为。。。。 谁能够告诉我所有ACCESS数据类型的英文名字?偶在VB中有用到! 请问如何才能使用asp连接foxpro数据库,使用oledb 启动出现找不到windows\system\service.vbs怎么回事??但进入系统正常,如何去掉??? Datagrid!!! 大家能不能推荐一个免费个人主页啊。 大家来帮我看看PHP连接ACCESS数据库的问题! 大家讨论一下这种软件的开发机制和速度优化机制,有没有可能进入代理内部? 放分拉,关于struts的问题,如何在action类中调用ApplicationResources.properties中的信息!!进者有分!! 如何基于对话框打印表格(比如个人简历)在线给分! 今天刚装了新的内核,所以写出过程供大家参考! 一个急需要解决的问题??? VC下如何接收COM+事件 妈妈,女儿对不起你 jbuilder乱码,在线求解 请教一个有难度的代码,江湖救急啊! 在线等!!! 编写一个短信中心,必须要向服务商拿哪些参数? 人心最初是善还是恶? 拖字怎样换偏旁 如图,正方形ABCD的边长为8,点M在DC上,且DM=2,N是AC上的一动点,则DN+MN的最小值为多少?图片看不清的话点击放大. 克服 用英语短语怎么说. eight eges.wang! “思”字和“宜”字可以加哪些偏旁 奎 一个意思组一个词 求助英语练习题(标题字数不够)第一个:the country life the old man was used to ( )a lot since 2008A,change B,has change C,changing D,changed第二个:(  )this method does not work ,let`s try another.A,though B,until C,bef 1份报纸批发价1.35元,零售价1.5元,张大爷想通过卖报赚到50元,他至少要卖多少份报纸? 余与芸寄届……此真乡居之良法也的文言文解释 怎么标注拼音中的阴平、阳平、上声、去声? 一种报纸,批发价4.55元,零售价5.50元.张大爷一个月卖着种报,赚了95元.请问,这个月,张大爷卖了多少卷子上的题,已经考过了, 军加偏旁可以组成什么字 尘字换偏旁再组词 一份报纸的批发价是0.25元,零售价是0.5元,叔叔卖报想赚到50元,他至少要卖多少份报纸? 用奇峰异岭造句 一份报纸的批发价是2.35元,零售价是2.5元.小明在星期天卖报赚了30元钱,他卖了多少份报纸? 英语单词(动词)变形时什么时候加ed,什么时候双写加ed?limit 也元音和辅音结尾 ,为什么直接加ed就行了? 奇峰异岭的造句 白银盘里一青螺这句诗形象地写出了望洞庭什么 百度知道 第23题,帮我解决,急 奎,拼音 初一数学评价手册P25第5题帮我 kkkkk 361°的含义nongbuqingchu “奎” 怎么读?请给我拼音,D 黑洞是恒星演化的最后阶段,根据有关理论,当一颗恒星衰老时,其中心的燃料(氢)己经被耗尽,在外壳的重压之下,核心开始坍缩,直到最后形成体积小、密度大的星体.如果这一星体的质量超过 不是361°那个. 奎这个拼音叫什么字 1.计算:-6AB*[AB的平方-6A的3次方B]=[ ]2.观察下列各式:1.5的平方-1=4[2*1+4],2.6的平方-4=4[2*2+4] 3.7的平方-9=4[2*3+4] 4.8的平方-16=4[2*4+4],...将你观察到的规律用含有字母N的等式表示应是[ ]其中N为整数.3. 361°是什么意思 求各位数学高手,算出阴影部分面积,步骤详细 英语翻译一定要全!1 A与B成反比例,B与C也成反比例,那么A与C成( )比例 若a、b、c、d都是实数,求证:(a2+b2)(c3+d2)大于等于(ac+bd)2 尘字能换什么偏旁再组词 两个字请教:宝盖头下面一个契;天涯的涯去掉三点水. xing ( )高 看拼音写汉字 尘怎么组词 361°是什么意思 气象万千、风云变幻、奇峰异岭、若隐若现、腾云驾雾、飘飘欲仙、白云苍狗、瞬息万变 的意思 宋书 列传第三十一王僧绰,琅邪临沂人,左光禄大夫昙首子也.幼有大成之度,弱年众以国器许之.好学有理思,练悉朝典.年十三,太祖引见,下拜便流涕哽咽,上亦悲不自胜.袭封豫章县侯,尚太祖长女 选项 A 成正比例 B 成反比例 C 不成比例如果X和Y互为倒数,那么X和Y( ).平行四边形面积一定,它的底和高( ).圆锥的底面积一定,高和体积( ).分子一定,分母与分数值( ).7:X=5:Y,X与Y( 有什么英文单词发“wang”和“xing”这个音的?或是组合起来的,本人起英文名字哦.. 三条直线ax+2y+8=0,4x+3y=10,2x-y=10,能围成一个三角形,a的取值范围? 谁有动物卫生监督执法群,我要加入? 气象万千,风云变幻,奇峰异岭,若隐若现,腾云驾雾,飘飘欲仙,白云苍狗,瞬息万变,选其中的两三个词语写一段话. 1份报纸批发价1.35元,零售价1.5元,张大爷星期天卖里30元,他卖多少份报纸? 隋文帝措施对历史进程影响最大的是 什么是善痣?什么是恶痣? 请英语高手帮我取两个英文名?wang xing,最好和中文有斜音,然后中文意思像男孩子,好读! 为了巩固新生的苏维埃政权,苏维埃政府在对外关系上采取了什么措施 求两条蓝色线段与圆的交点的坐标,最好能用圆的参数方程解决1 名字带奎字什么意思 在课文 把铁路修道拉萨去 中巍峨一词怎样解释 求过点A(-2,3),B(4,5)的直线的参数方程,并求出它与直线2x-3y+1=0的交点坐标如题. “奎”字的意思?是不是可以是皇帝的意思. 思加什么偏旁组成什么字 已知一点的坐标,怎么求得它的参数方程, a.b为不等正实数,a方-b方=a立方-b立方证a+b大于1相当相当难 如图,正方形ABCD中,点E在边AB上,EC交BD于点M,过M作MF⊥EC交AD于F点,M为垂足,且AE=nEB,问若n=2时,则AF/FD=?图: 美女童为父亲录庆生视频爆红网络【组图贝克汉姆超速再度载长子出车祸【组图】白宫说奥巴马对国家安全局有信心监听门让世界彻底放弃侥幸纽约股市三大股指28日涨跌不一约40名尼日尔移民因汽车抛锚在撒哈拉美方称机密情报泄露未对美外交政策造成海军第一艘核潜艇去除核反应堆退役美女童为父亲录庆生视频爆红网络(组图美4囚犯上演浴室版“越狱” 2人被缉俄称愿与北约就导弹防御系统进行建设性叙利亚一议员遭恐怖分子绑架海军第一艘核潜艇去除核反应堆退役中方支持安理会与伊斯兰合作组织深化合美国将与新西兰重启两军对话伊拉克多起暴力袭击致48人伤亡专家:中国需当地区强国应理直气壮发展台媒:中国核潜艇的巨浪-2导弹能打到英媒:中国核艇或改变美军思维 重绘亚格执政联盟候选人有望大胜叙利亚提交化武销毁计划中非共和国金矿坍塌27人丧生 局势动母子共同选出的双色球号码 击中826福建本土电影《绝命催眠》将开拍国土系统人士:审计土地出让金 估计不50岁朱军办婚礼无缘戛纳影帝姚安濂瞄准蒙特利尔张纪中拍《侠客行》蔡振华之子出演49岁简子菱来榕 美如少女福州屏东天桥附近 人行道布满油污存隐86岁依姆街头迷路 民警搜300张照海都温度重新站上40℃再硬的饼,闽将也啃得动婚礼变身志愿者招募会工地沙袋填溪 对岸居民心慌柯震东回台湾或被捕 最高可判3年福州:两乞丐争地盘 抡起拐杖互打美私营航天企业测试火箭失败骗子冒充淘宝客服 女白领被骗近千元龙眼配稀饭 糯米丸煮汤皮卡车正开着 轮子掉了1号店买来帮宝适纸尿裤 触感粗糙现细
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘