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

五彩缤纷的清屏效果-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,则将看不到效果。(昆明 无为)
  
移动搜索状态:谷歌称雄 仍有较大发展空间 移动周报:我为什么弃用Objective-C而选择RubyMotion? 2月浏览器排行:IE高歌猛进 Chrome创17个月新低 Twitter创始人:最好的程序员大多是自学成才的 Evernote遭到攻击,5000万用户密码重置 VC++开源项目:P2P播放器AVPlayer NetIQ亚太区经理Ian Yip:移动社交工具崛起带来新机遇 快播CEO王欣:我不做内容,只钻技术! EMC中国凭什么说营收5年再增5倍? HTML5:或助三星Tizen 2.0逆袭主流移动OS 互联网巨头公司为何联合开发WebKit? 继Windows Blue:WP8升级或今年圣诞前到来 中国黑客部队攻击美国23家天然气公司 [CTO俱乐部第93期] 移动应用研发及位置在线平台架构分享 TeamToy——开源的团队高效协作工具 2013年数据中心发展的五个关键因素 可穿戴式设备:高调的Google 低调的苹果 由CloudFlare宕机引发的思考 传iWatch年内推出 或成苹果救命稻草 Twitter开源其Java消息流库Hosebird Client API正在崛起 渐成企业核心业务 HTML5会是Firefox OS的生门还是死门? 三星的成功并非偶然,而是专业 避免恶意软件 日本政府警告用户慎用Google Play 曝光:诺基亚要推出新手机系统Meltemi 为研发iWatch,Jony Ive订购大量Nike腕表 APP运营人的一天:宫爆老奶奶产品运营 新传感器:三星Galaxy S4或将支持眼球追踪 IBM发布基于OpenStack的服务 从Windows Server 2012云创益大赛看国内行业私有云发展 张小龙谈微信:你可能不知道的9件事 WIN2K 的问题:1、怎么允许本地普通用户(user)关机;2、怎么能让本地普通用户开机后,客户机连接到SQL SERVER?3、为什么我的SQL量SERVER2K需要停止然后再启动客户才能用? 如何用VB把存储在ORACLE库中的图片字段取出成.JPG格式的图片文件????急在外出差呀多谢了~~~~~ 如何退出函数?exit function??? 测试2000的TCP/IP是否通,用什么命令 求助开发课程表提示 (*****向斑竹你提个小见意,大家最好都来看看,这个想法好不好!****) 为什么我做的增加功能有两个必须要按两次“添加”按钮才能新增一条记录啊? 很急,请教高手,如何把一个ip格式的字符串转换成ip类型,不是用getbyname(),而是像int和string转换一样的概念 请问如何让基于对话框的工具条一开始就浮在上面 来者有分,关于ado的 毛子青论文<<动态规划的优化>>,一个最长子序列的算法,请高手看过来(给出c实现代码的送20分!) 在鼠标单击时间中,可以使用什么函数取得鼠标点击处的坐标值 怎样在单击左键时弹出PopupMenu? 连续20多天加班,近来明显感到体力透支,做个调查!!!(有分) ASP调用VB编写的ActiveX DLL的问题 请教一sql语句 在Unix下用cc(实际上是cc_bundled文件)编译c程序时,报错“const" will become a keyword,或者告诉我“Function prototypes are an ANSI feature" 为何加入winsock2.h后会出现很多问题? 热烈庆祝:Kingron重出江湖!!!菜鸟们有福喽……散分 you shen me qu bie ? please tell me , xie xie ! [■■■Delphi猛料■■■]V1.3发布~~~~~~~更新到2001.12.12 提问:如何在ToolBar上加控件? 我在OLE里调用了word2000文档,为什么只显示第一页,我查了半天资料都没有解决,请帮我 哪里有多媒体软件制作论文啊? 继续请教各位前辈:能否将非新增加的字段定义成计算字段?谢谢! 软件创意、需求大汇集:列创意,拿专家分,120分值大赠送(以后可继续追加) 局渔网 巨简单问题~~~ 进来有分,回答多分,不够再加!!! 关于关闭和启动数据库的问题,很急的!! java VS c#^-^ ?? 请进 寻求QuickReport3以上版本 for Delphi3 的源代码或者安装包? 請問哪大俠用過 ibm 的 bridge2java啊,我把Excel的所有類都導出來了,但它的QuickExcel.java文件還是運行不了, 求救!新装了一块硬盘,为何找不到呀? SetWindowLong函数在delphi里可用,为什么在c++builder 中不能用??? 用弹出式菜单命令弹出一个dialog,可以响应键盘,可是不响应鼠标? 请教,Inserts类是拿来干什么用的? !!!急急急!!!怎样在WIN2000下把NTFS转换成FAT32啊。数据不丢失。 回复太短!或太长!!! visio2002的数据库建模,能不能生成SQL脚本? 急急啊,有關servlet的問題,源碼如下: 添加数据的问题 坐标问题 unix下的nfs Merry Christmas! 给分!祝大家一路发! 每个文件(目录)有3种权限 写DLL? 我定义了三个CSS样式表 高分求教:谁用pb7作过三层结构的东东,我现在要做啦,指点一下吗 Somebody Help Me!! 我安装软件包里的一个DIREX8.1的升级程序后常会出现一个对话框,要我到微软网站升级一个程序 最近在构思一个大型的论坛系统,也想听听大伙的意见,发言就给分!!! 对澳大利亚西海岸荒漠环境的形成起重要作用的的洋流属于什么洋流?如题选项:A.风海流 B.密度流 C.补偿流 D.暖流正确答案好像是C, 为什么马达加斯加岛的东部形成了热带雨林气候而西部形成了热带草原气候 大自流盆地的水为什么盐度高呢? 拉尼娜现象对赤道逆流和秘鲁暖流及环太平洋的洋流和气候有什么影响?还有厄而尼诺现象 马达加斯加岛的东侧为热带雨林气候,形成此类气候类型的原因是什么?是不是和迎风坡有关系?什么是迎风坡?感激不尽~ 生活中,浪费水现象是十分严重的,请你列举一些. 为什么水银温度计用过要甩,否则就无法继续用呢? 回归线附近的马达加斯加岛东部不是热带草原气候而是热带雨林气候? 请举出两个实例,说明物质的溶解性与溶剂有关 为什么用完温度计要把水银甩回去?而且再怎么甩也甩不回原点? 澳大利亚东北部热带雨林气候的形成因素有哪些?也就是形成这种气候是由哪些因素促成的. 为什么澳大利亚西部地下水盐分较多?能满足牲畜的生理调节?是不是还和盆地有关? 水银温度计是否可以把水银甩下去以迅速再用? 澳大利亚东北部一小块热带雨林气候形成原因RT. 地下水盐度与什么有关,岛国地下水盐度就高吗? 将一块石蜡,分别放入足量的水和酒精中,当石蜡静止时,它排开水的体积与排开酒精的体积之比为 (ρ石蜡=0.9×103kg/m3,ρ酒精=0.8×103kg/m3) 澳大利亚热带雨林气候与热带沙漠气候的成因 不同物质在同一溶剂中的溶解度不同,举例还有啊同一种物质在不同的溶剂中的溶解能力不同不要只给几个字母的答案= =||| 地处太平洋与印度洋、亚洲与大洋洲之间的“十字路口”是指? 不规则的海绵的体积怎么求?(认真的)不规则的海绵体积怎么求?用沙吧,误差大怎么测呢?个人认为用橡皮泥.请不用水测,水的误差还大些!固化海绵?你那测的是体积?益出水的体积就是海面的体 溶解性指的是溶剂还是溶液的性质? 为什么澳大利亚人口集中在太平洋沿岸地区? 测量一块不规则塑料块的体积利用水和量筒测量一个不规则的塑料块体积,要求能尽量减少误差. 结合生活中的实例,举例说明影响气体溶解度的各种因素.如题 (1)以亚洲太平洋沿岸地区为例,比较自地纬至高纬各气候类型的气候特征的主要差异(2)以亚欧大陆中高纬度地区为例,比较大路西岸,大陆内部,大陆东岸各气候类型的气候特征的主要差异. 生活中有哪些浪费水的现象?怎样制止 乒乓球的体积?乒乓球的体积 这句话对么?在秘鲁寒流影响下,沿岸热带沙漠气候所跨经度范围广 处于亚洲与大洋洲之间,连接太平洋与印度洋的海上通道是 如何测白砂糖的体积?辩泉注钝 澳大利亚上的热带沙漠气候和非洲撒哈拉沙漠在形成原因上的共同点? 一个实心物体放在水中静止时处于漂浮状态,有4/1的体积露出水面,求该物体的密度? 浪费水的例子有哪些 索马里半岛热带沙漠气候形成的原因 甲 乙两个实心物体漂浮在水面上,体积之比为2比1,浸在水中部分的体积之比为1比2,那么它们的密度比是多少. 家庭中有哪些浪费水的事例例如:洗脸或刷牙时一直让水流 为什么索马里是热带沙漠气候 质量相等但密度不同的A、B两个小球,方放入水中后都处于漂浮状态,其露出水面部分的体积是总体积的三分之一和一半,则两球A.受的浮力比FA:FB=2:3B.受的浮力比FA:FB=1:1C.密度比ρA:ρB=3:4D. 生活中浪费资源的事例比如:使用一次性筷子 浪费水资源之类的 要求距离5个以上 当然越多越好 怎样测冰块的密度?放在水里算体积怕化了,切割成规则体不准确,在切割过程中也很容易化,应该怎样测冰块的密度呢?试验工具随便选,并写出冰的密度的表达式. 将密度均匀、重为10N的物体放入水中,静止后物体漂浮在水面,若将露出水面的部分切去后,剩下部分重为8N则物体密度为A、1g/cm3 B、0.8g/cm3 C、0.2g/cm3 D、1.2g/cm3 浪费水的例子 一个容积为3*10^-4立方米的瓶内盛有0.2千克的水,一只口渴的乌鸦每次将一块质量为0.01千克的小石子投入瓶中,当乌鸦投了25块相同的小石子后,水面上升到瓶口,求:1.瓶内石块的总体积.2.石块的 热带雨林气候的成因!a终年气温高,气流下沉强烈 b终年气温高,气流上升旺盛 如何测量泡沫的体积不可以是排水法 1:体积为30平方厘米的铜球的质量为89克,将它的中空部分注满某种液体后球的总质量是361克,求注入的液体密度的大小.(p铜=8.9*10的三次方 千克/立方米)2:一只烧杯装满水,总质量为350克,放 氧气不易溶与水,那水中的生物怎么生存呢(不是生物问题) 海绵的体积海绵,δ=20,加工尺寸510*505,数量1,体积怎么算啊?万分感激 EGYPT RED SEA (埃及、红海)是埃及在前面,还是红海在前面EGYPT RED SEA (埃及、红海)是该EGYPT(埃及)在前面,还是该RED SEA(红海)在前面呢? 如果氧气在水中溶解很大时我们可以在水中活吗瞎想的 60°s附近海域海水的盐度比60°N附近海域海水的盐度要高,原因是什么? 中美洲的尼加拉瓜,洪都拉斯,萨尔瓦多,巴拿马,哥斯达黎加,厄瓜多尔,这些国家经济怎么样? 请问:物质溶解在水中,体积是否会发生改变如果是NaCl溶于水呢 测乒乓球的体积器材;量杯.水.细线. 澳大利亚西海岸的气候和美国西海岸的气候类似吗?还是说南北半球的洋流有很大差异,导致气候截然不同.还有就是澳大利亚的那个地区与美国的加州气候类似.珀斯和悉尼哪个城市的气候会更 一块糖在水中溶解后,水和糖的总体积有什么变化?为什么? 为何澳大利亚大自流盆地的自流井盐度较高? 泰国,新加坡,新西兰,澳大利亚,科威特,秘鲁,智利名称的原意 水中溶解物质时 温度或体积为啥有变化 澳大利亚大自流盆地中的井水,不宜灌溉农田的主要原因是 A、 水量过少,仅能提供牲畜饮水 B、水位低,提水灌溉成本过高 C、井水盐度较高,会引起土地盐渍化 D、井水含沙量过大
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn