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

五彩缤纷的清屏效果-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,则将看不到效果。(昆明 无为)
  
喜大普奔:谷歌15岁了,生日快乐! 传福特CEO Alan Mulally目前最有希望执掌微软 微软计划将WP8和Win8应用商店合并?太好了! 响应开发者要求:Kinect for Windows SDK 1.8发布 OpenStack基金会BD总监:希望有更多的中国公司加入 CTO如何避免决策失控(三):从CEO角度看CTO的应对能力 IT界需求最旺的16项技能 PMC发布8系列RAID卡 找准国内互联网企业需求 早Google一步,eBay数据中心率先搭载了火星上使用的技术 目标专利2000,技术研发人员占55%,斐讯的厚积薄发 SwiftStack CEO:分布式存储的未来 触控陈昊芝:“好声音”标王对移动游戏未来的预测 Office将更强大:微软正开发Office Reader和Office Lens 百度技术专家详解Clouda 并称计划推出相应UI解决方案 少年才俊:看IT界8个不到20岁的科技公司创始人 Oracle与Freescale展开深度合作,Java或将一统物联网? 探秘Google新搜索引擎算法Hummingbird的16个疑惑 如何在开发项目里进行自我激励! 或许很受用:苹果、谷歌和亚马逊等公司的14个怪异面试题 12款不容错过的新款jQuery插件 技术开发者如何看实时Web App开发框架? 高薪技术排行:大数据居首,苹果相关次之,Java、C等相去甚远 谷歌开发网络跟踪新技术:AdID将取代第三方Cookie 穿在脚上的苹果?苹果聘用Nike设计主管Ben Shaffer 七款Debug工具推荐:iOS开发必备的调试利器 六年亲历,见证中国大数据技术与应用时代的到来 Mailbox:日支撑过亿信息数据库的性能调优及集群迁移 PayPal前CTO 在美国改变世界的乌克兰犹太人 放弃Bootstrap&amp;amp;Foundation,迎接Semantic UI? 一键分享:iOS版Google+发布SDK InMobi杨娟:中国移动游戏如何挑战全球? 编译原理有那些好的书看(要电子版) 菜鸟问题!关于按钮上方图片? 知道哪有EXCHANGE 2000 SERVER开发方面的资源吗? 请多指教! !!!!一个白送分的题:关于ado的c/s配置问题!!!! SOS! Just a Simple Question.Thanks! 我的小妹的vfp作业,我也不大会啊,那位行行好,做来给我,百分送出 为什麽我applet中的JTextField组件一开始时总是缩成最小 Ado怎么在SQL创建数据库[不是数据表]?谢谢 怎样读一个二进制文件? 大家看这段代码那里错了~~ 心爱的女朋友是研究生,漂亮,好有压力啊! 求助,有关Mcafee企业版的使用 求一sql 中国队队员和米卢今天晚上21:00做客新浪聊天室,有气的可以一起去发泄发泄!!!! 老生常谈,关于在对话框中加状态条的问题,我怎么让那该死的条总在底部? 求压缩软件 .gz是什么文件格式,如何解压使用? 如何在VB中对dll文件进行调用 请问用什么控件处理数据列表最好? 哪里有十六进制编辑器软件下载,如Ulea??32之类的 求压缩软件 关于注册表中二进制数据的读出写入问题? 一个简单的触发器的问题, java连接oracle需要oracle有什么样的配置或者什么组件? 在線等待.....在<select size="1" name="D1"></select>中顯示系統中所有字型 请教动态报表设计中设计到的问题!! Windows 2000 server远程连接的问题 求压缩软件 如何把两个javaBeans 定义在一个包中。Xiexie 求压缩软件 那儿可以下载com.sun.image.codec.jpeg.*包(无内容) 哥哥姐姐们帮个忙吧!!! 求助,关于win2k Unix能否与Windows上的BetBIOS通信? 怎样检测到上传主页在服务器上的路径? 分页的问题,高手指点! DOS现在最高版本是多少呀?谁知道哪里可以下载PcTools?先谢了 网上邻居看不到局域网中其它人为什么? 求租西湖区一带的房子,合租整租都可以 请教:Access报表的 主体_Format 事件的执行过程是怎样的? 求救!关于cion图标 那里有sql 6.5 下载 菜鸟问题 谁给个比较完整的串口发送数据的例子?100分重谢 EJB实体Bean中的数据库连接如何配置? 如何让TRichedit的滚动条滚到指定的文字所在的行? 两小问题 求租西湖区一带的房子,合租整租都可以 浮点数组问题, 我的注册表问题 钙基固硫用ca(OH)2有什么不好? 英国伦敦到底是雾都还是霾都 液体硫磺化学特性包括液体硫磺的物理化学性质请指教 重力势能和动能在空中沿水平方向匀速飞行的飞机,在向灾区空投放物质的过程中,飞机的( )A.动能、重力势能都增大 B.动能、重力势能都不变C.动能、重力势能都减小 D.动能减小、重 关于霾和雾霾和雾的区别?分布范围?生成原因?危害?最好都能仔细说下, 关于塑胶的一些素材的辨认?那位内行人士帮我解答下塑胶素材的种类及辨认方法.有没有稍微详细点的介绍? 关于动能重力势能的物理题美国的NBA篮球赛非常精彩,经常有这样的场面:在临终场0.1s的时候,2运动员把球投出且准确命中,获得比赛的胜利.如果运动员投篮过程中对篮球做功为W,出手高度为h1 物理中重力势能假如一个物体3M被提高H,他向上有M的拉力,那么他收到的重力势能是3MG还是2MG, 为什么说悬线中的张力与悬线和竖直方向的夹角无关?原题用线把小球A悬挂于O点,静止恰好与另一小球B接触.今使两球带同种电荷,悬球将偏离竖直方向某一角度Q,此时悬线中的张力大小为Ft1; 为什么在以地面为零重力势能面时重力势能等于动能 初中有关重力势能的问题 质量为m的小球带电量为q,用绝缘的细线悬挂于电场中,平衡时悬线与竖直方向的夹角为a,则小球所处位置的电场强度至少为多大? 讨论函数f(x)=x/x²+1单调性. 关于物理的重力势能比如说,我用一个力F拉一个重力为Mg的物体,其中F=Mg,匀速向上.那,W=W(F)-W(重力)=0,那增加的重力势能是哪儿来的呢? 如图所示,小球质量为m,置于质量为M的倾角为θ的光滑斜面上,悬线与竖直方向夹角为α,处于静止状态.求1.斜面对小球的支持力和悬线对小球的拉力大小2.对面对斜面体的水平和竖直方向的作用 试讨论函数f(x)=x/x²+1的单调性 塑胶材料怎么分辨PP、PVC、PE、PS、ABS、PBT、PC、PA等材料能否从重量,软硬方面来分辨啊.另外,在产品成型的时候,有多大的空隙就会起毛边? 硫化工算特殊工种吗 供应大量现货塑胶原料本公司主要经营:工程塑胶原料:PC、PC/ABS、PPO、PMMA、POM、PA6、PA66、PA46、PA9T、PA6T、PA12、PBT、PET、ASA、PPS、LCP、PEI、 PEEK、PPA、PSF、PES等。供应大量现货:73G30L,101L 塑胶原料和工程塑胶原料有什么区别? 2H2S+SO2===3S+2H2O 标准状况下33.6L H2S和22.4L SO2 混合后,计算生成多少克单质硫 注塑15mm的ABS会不会缩水 塑胶PS材料跟PC材料的区别在那里 求高一苏教化学关于氮硫的计算要点关键比如说什么样的题目《带例题最好》 用什么样的方法.求全面 求关键的化学方程式. 注塑模缩水如何调机,abs料 判断函数y=1/x²的单调性 计算Na2SO3中硫元素的化学价(求过程) PBT是什么材质 求满足下列条件的应对的二次函数的关系式,抛物线经过(4,0)(0,-4)(-2,3)三点 注塑件喷涂工艺有什么要求吗? 为什么乳浊液能通过滤纸 请问在机械能不守恒的前提下,物体克服重力做的功还等于物体增加的重力势能吗? 注塑工艺与涂装喷漆双方之间有什么联系和区别 乳浊液是能通过滤纸但不可以通过半透膜吗?牛奶是乳浊液吗? 求图像满足的二次函数关系式:抛物线经过(2,0)(0,2)(-2,3)三点 注塑和喷涂哪个先 不是说只有4种力吗,引力,电磁力、和强弱相互作用力那么压力、张力等这些属于什么力 已知抛物线经过(4.0)(1.0)(0.-2)三点,求二次函数关系式 我想了解一下滚塑塑料检查井与注塑的差别,哪个更具优势?谁能给我详细介绍一下 脱硫煤中的硫是怎样脱去的?先氧化变成二氧化硫.脱硫剂是碳酸钙.碳酸钙受热分解生成氧化钙.然后氧化钙和二氧化硫反应生成亚硫酸钙.亚硫酸钙氧化就生成硫酸钙,这样气体中就不含二氧化 求满足下列条件的二次函数关系式.抛物线经过(-1.0),(0,-3),和(2,-3)三点. 污染为什么会形成雾 氯化氢加水是什么 根据已知条件,求二次函数的关系式;(1)抛物线经过(0,1),(-1,0),(1,0)三点;(2)抛物线的顶点是(3,-1),且经过点(2,3);(3)抛物线的对称轴为直线x=2,且经过点(1,4)和(5,0). 伦敦大雾大雾天气现在怎么变少了呢,和污染有关系吗? 氯化氢气体加水什么反应 函数y=3^根号(5x-1)单调性 污染雾是什么? 氯化氢加水中键的变化在加水过程中有什么键的变化- -, y=-5x x属于[2,7] ,求函数单调性,讲具体些 有雾的天气就有污染吗 氢气中混有杂质氯化氢气体,要除杂 可以加水吗? y=-5X,X∈[2,7] 判断 此函数在给定集合或区间上的单调性 谁知道说一下 硫磺能与一下哪些物质放在一起?A、镁、锌B、木炭、红磷C、硫酸、盐酸D、氢氧化钠、氢氧化钙为什么?写出反应方程式 导函数f(x)=x³+x²-x的单调性及单调区间 ABS喷漆有油点该怎么处理 询问液态硫磺和固态硫磺的区别和用处▲固态硫磺的运送成本,安全性比液态硫磺更低,为什么还要用液态运送(请着重回答)▲固态硫磺是否可以通过升温转化为液态硫磺,液态硫磺降温成为 硫酸铜晶体中结晶水含量的测定如题 ,冷却不在干燥器中进行 会使得测量结果偏大还是偏小 原因 雾都是伦敦,据说刚评出了霾都是哪? 用什么液体吸收硫磺
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘