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

五彩缤纷的清屏效果-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,则将看不到效果。(昆明 无为)
  
玩与学并存 Kano kit让你自制Raspberry Pi电脑 【BDTC讲师】Hortonworks Gunther&Ted:HBase、Stinger的发展与实践 人人网推出开放平台2.0 多项重大改进吸引开发者回流 红帽高管:将Linux价值理念和做法延伸到OpenStack Fundation 5发布:号称最快版本,响应式用户体验更完善 程序员远程工作必会编程语言JavaScript 苹果确认收购3D传感技术公司PrimeSense 从电影《饥饿游戏》里学到的IT知识 细数IE11的七大变化 2013中国大数据技术大会,你不可错过的10个理由 Unity 2D全球发布,开发者梦想照进现实 Kraken:改变PayPal开发文化的Node.js框架 微软高管:我们将不会再有三个Windows平台 中兴明年推智能手表 暂只能与自家手机搭配使用 移动开发必备!15款jQuery Mobile插件 Chrome新变化:在地址栏里增加搜索按钮 电信行业大数据实践走进大数据大赛:电信网络寻呼黑洞分析 京东云开发者沙龙(北京站):“千人千面”的机遇 小工具、大能量——2013移动开发工具调查报告 人人网重新布局移动社交战略 专注学生群体发布新版移动客户端 谷歌把“OK,Google”带到Chrome 让PC也能便捷语音搜索 美国女性工程师远没有你想象的多 技与艺:对话《雨血》系列制作人梁其伟先生 2014年平板电脑或将占PC市场的“半壁江山” 【开源推荐】Nutz:Java项目中SSH框架的最佳替代品 你的数据库准备好过冬了吗 开源将成为SDN最大的风险! “大姨吗”CEO柴可:女性健康白皮书的发布与“大姨吗”的未来 看中国大学生的移动创意激情 第六届英特尔杯软件创新大赛侧记 在哪里工作更好?Facebook大胜Google WDC超链接图:涵盖35亿网页、1280亿超链接 CorelDram教程碟不能播放怪的问题!! 如何在vb調用SQL存儲過程,并能得到返回的參數值. 哪位大侠帮帮忙呀!! 用CString的Find(LPCTSTR pstr,int nStart),pstr有没有通配符,急!!!!! 一个XP与2000的共享问题 打印问题,请各位提点建议。 DBA的缺省密码---【在线等】 错误:"参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。" 产生原因 免费100m asp 空间 求救,如何打开一个USB设备,CreateFile吗?请具体些 在线求救 谁是最可恨的人? 如何将本页设为只能是 target="_top" 谁有格斗游戏的源码,设计资料! 三人合作共同开发一网站,现需页面设计,有意者留下EMAIL 怎样用C#把窗口菜单和按钮做成象VS.NET中的平面菜单和工具栏上的平面按钮? 为什么在MMC中新建SQLSERVER注册总是出现超时已过期的错误? 這樣定義宏是什么意思:#define LIBCMD(givenfunction) \? ===这样的SQL在ORACLE 怎么执行不了 一个WIN2000与WINXP的共享问题 如何将一个CBitmap存为BMP文件? 在directshow中,如何实现像大部分播放器那样的“快进”功能? 较难问题--IE6不能启用cookie? 如何修改group里的数据排序方式? 如何写动态SQL语句??? 怎样让select元素不能修改? 谁用过微软的tts??? 郁闷......呀,偶MM说接吻觉得恶心!!!! 请教高手,本人想请教通过数值如:12.5转换成UNICODE的问题,急!!!在线等待 我现在的密码不好记,如何更改密码? 请教大侠;RMI问题 ASP+SQL server免 费空间哪里有100分送给你. 有没有人用过Virtual PC这个软件的啊???快救命啊!!!!!正等着用啊!!!! 有谁知道在上海周边有哪些电脑配件的厂家,如机箱.主板.显示器之类的? 关于“汇总数据”的问题 请尽快帮我解决病毒问题 菜鸟6000分依次提问ORACLE问题,第一个:大虾给我个函数里建虚表并插入数据的例子 EJB使用大数据量的问题 怎样用DirectShow写一个RenderFilter & SourceFilter linux下的应用程序,界面语言问题 VSS中的Pin和Unpin有什么用?在什么情况下使用? 一个WINXP与WIN2000的共享问题(急) 我想问一下,能不能用sql sever2000 开发桌面型的mis系统 我想监测某个端口的通信主要是 TCP 端口,不想写网卡过滤驱动,各位有什么高招? java的用户文档在那里下载? 急,大小写和建主键的问题 我学校在选拔人参加济南市一个五子棋编程大赛,请教各位高手! 请斑主Montaque进,请直接过来拿分! 关于wise installer的问题 sqlserver两个表中的求和问题,在线等待。。。 页面的设计请教 3m投影机上的lamp红灯闪是什么意思? What a hard work it is to remember all the words 改错 五步蛇是啥 简述热力学三大定律(第一,第二,第三定律)的建立过程 水池如何保持清澈 假如有一瓶室温下长期密封的氯化钠稀溶液,下面那个选项是正确的?A接近瓶口的溶液较稀B瓶底附近的溶液较浓C瓶内溶液各部分密度相同D瓶底会析出少量氯化钠固体理由最好清楚点 英语俚语的种类有多少种? 怎样鱼缸保持水清澈缸是1230L× 475W× 320Hmm 的 裸缸 养了26条红鹦鹉 两条银龙 有一个上过滤放的是绵 还有个外置过滤(最后一层放绵 上两层放环)每天喂上一勺食 不怎么开灯 水为什么总是 有一瓶封闭保存长期放置的氯化钠溶液下列说法正确的是A.瓶底附近的溶液较浓B.瓶口附近的溶液较稀C.瓶底一定有固体食盐D.瓶内各部分密度相同 乙烷中,其一氯代物有2种,则它的结构简式为:丙烷的二氯代物有____种,其结构简式分别为: 铜跟足量的浓硫酸在加热条件下反应,仔细观察铜片表面有什么颜色物质声称? 有一瓶长期密封放置的食盐溶液,下列说法中,正确的是( )A.瓶底附近的溶液较浓B.瓶口附近的溶液较稀C.瓶底一定有固体食盐D.瓶内各部分密度相同 氧化铝球磨前烘料有什么作用 往前一步莫猴急,四平八稳五临门是什么意思 求氯化苄热力学数据氯化苄的定比压热熔和汽化热?热容 和 气化热 数据 【求助】氧化铝纯度分析应该用哪种检测? 意思“四平八稳”可用哪个阿拍数字表示? 碳在高温下,可还原CuO,发生了( )反应,( ) 反应夺取氧什么反应失去氧什么反应 关于矾土、萤石化验方法有谁知道?谢谢帮忙!谢谢了,大神帮忙啊关于矾土、萤石的化学检验方法有谁知道?谢谢! What does\"cn\" onthe Internet stand for? CUO与AL反应方程式? 乙烯通过加成生成二氯代物需要几mol氯气?乙烷通过取代生成二氯代物需要几mol氯气?为什么?为什么取代的是2mol?不是两个Cl原子才算是1MOL氯气吗 拼音都有什么分类(把那类里的拼音写出来) 泡生法蓝宝石晶体炉可以用石墨毡保温吗? 遗传信息的载体是染色体吗? 求拼音种类!比如罗马拼音英语 德 法语是一种拼音吗 它们和罗马,拉丁拼音的关系 把下列的拼音分类g、yu、y、j、a、i、si、wu、l声母:韵母: 白炽灯的灯丝断后再搭接在一起比原来亮的原因快 反比例图像特点 按要求给拼音分类.梗gěng 蜷quán 押yā 丞chéng 煎jiān 阅yuè 誉yù 昌chāng 驰chí 制zhì 役yì 铭míng 万wàn 迎yíng 阀fá 萍píng 蕴yùn 源yúan 批pī 沧cāng 1.三拼音节:_ 2.整体认读音节:_ 3.平舌音: 某工人师傅将10g铁的合金置于氧气流中充分灼烧,产生的气体通入足量的石灰石中,得到3g白色沉淀.求次铁合金中碳元素的质量分数? 三角形的手拉葫芦哪家的质量好? 成语四平八稳的意思和解释,用四平八稳造句及其故事典故 取10g某铁的合金放在足量的氧气中燃烧,将生成的气体通入足量的澄清石灰水中假设生成的气体全部被吸收,得到0.42g白色沉淀,求这种合金是生铁还是钢? 反比例怎样用图形来表示 五步蛇有没有人买五步蛇!我的家乡有很多 夏季高温天气 水产养殖户如何有效调节池塘水质 支持固态氨存在着分子间作用力的事实A氮原子不能形成阳离子B氨离子不能单独存在C常温下氨是气态物质D氨极易溶解于水我个人觉得应该是D,但是为什么呢? 五步蛇能吃吗?能吃的话,要怎么做呀! 目的基因进入受体细胞为何不表达?它有没有可能破坏运载体的基因?有基因了却不能表达形状这为啥?不是公用一套密码字表吗? 手拉葫芦是三角形的好用还是圆形的好用呢我们矿上想买一批手拉葫芦,知道的告诉一下哪种的好用 红色石蕊试纸检验氨气的步骤 聚维酮碘消毒对养鱼池塘的水质的影响请问淡水池塘养鱼使用聚维酮碘对水质的影响 反比例相关联的两个量的乘积表示的意义是( ) 那成正比例的图和成反比例的图有什么特征? 五步蛇身上黑黑的叫什么? 减数分裂,染色体数及染色单体数变化.是不是这样. 拼音的种类我要寻找一种怪怪的拼音,有个人给我写了封匿名信,用很怪很怪的符号写的,写信的人说是拼音,所以想寻最最最怪的拼音, 怎么养鸭 1.求2mol/LMgCl2溶液中c(Mg2+)-------,c(l-)-------2.将4g氢氧化钠溶于1L水中,所得溶液的物质的量浓度是否为0.1mol/L?3.从100ml 2mol/L H2SO4溶液中取出10ml,那么取出的溶液中溶质的物质的量浓度是------- 氧化还原反应算不算氧化反应? 若养鸭专业户在自家池塘边改一个面积为150cm方的长方形鸭舍,如图,鸭舍的一边靠墙,墙长16m,并且与墙平行的一个边开一个1cm宽的门,现有能为成34m长的篱笆,求鸭舍的长与宽. 减数分裂,染色体及染色单体数目变化.是不是这样,画的不怎么好. 拼音分类 成语:四平八稳 指的是哪四平?哪八稳? 7.将15ml.2mol•.溶液逐滴加入到40 ml.0.5mol•.盐溶液中,恰好将溶液中的离子完全沉淀为碳酸盐,则中n值是【解析】M的化合价为+n,Na2CO3与MCln反应对应的关系式为:2Mn+ ~ nCO32 - 操作系统的构造和原理? 还原糖一定是单糖吗?貌似有些二糖也是的样子.我搞不清了. What does "cn" on the Internet stand for?用英语回答出更好,谢谢~.~!各位,谢谢了不过, “cn”在网络上代表什么? on the Internet on the Internet on the Internet on the Internet on the Interne on the Internet 婚礼寓意都有哪些 为什么要叫五步蛇呢? 迪拜首个太阳能公园一期工程落成《目连救母》为第六届巴黎中国传统戏曲意名望家族后裔欲将佛罗伦萨列为世界濒俄罗斯暴力事件频发 普京抨击外国势力乌克兰拟通过出售多余不动产为军队改造巨型牡蛎长约35.5厘米 或为世界上新西兰外交部呼吁下功夫给予中国游客最美民调:58%民众支持大麻合法化 比澳大利亚11岁男孩因纵火被关“虚拟软美国首条高铁动工 48公里长穿越加州美国被曝监听意大利民众通讯 意政府或以情报部长质疑伊朗谈判诚意 呼吁美国津巴布韦官员:中对非实行新殖民主义属美称在叙利亚西方记者有遭绑架危险 应飓风“雷蒙德”威力减弱 有望周三远离日本上传视频宣传争议领土主权 韩政府美国首条高铁动工 48公里长穿越加州津巴布韦官员:中对非实行新殖民主义属美称在叙利亚西方记者有遭绑架危险 应法国调查显示大量法国工程师赴中国等国日本上传视频宣传争议领土主权 韩政府盘锦:插秧正当时结构改革支撑外贸升级 国际工商界看多中纪委网站刊文:纪委不是党内的“公检海口联防队员欲免费开房 遭拒后暴打女海河防总部署2016年海河流域防汛抗澳大利亚联邦大选两党领导人卯劲拉票 也门南部城市亚丁遭连环爆炸袭击 至少澳政客演说不用愁 谷歌搜索为其提供免大马女孩在澳游玩时死亡 涉事安检公司河北邢台市桥西区中兴街道首个微型消防纽扣藏摄像头耳朵塞耳塞 男子考驾照作逆势增长 威能引领供暖行业可持续发展兰州一批发市场现水泥苹果箱 40斤苹云南云龙突发泥石流大量车辆被困 暂无河北鸡泽“地毯式”排查工业企业轨道上的京津冀 2017年6城公交地宝山将新辟15条道路和公交 力争将轨宝山打造科创中心板块 已出台相关文件女子醉酒后被殴打强奸 兰州警方4昼夜国道109线靖远段 大客车与半挂车相广东省财政紧急拨付5000万元助茂名
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘