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

一个实用的VB屏幕程序

HTML文档下载 WORD文档下载 PDF文档下载
一个实用的VB屏幕程序
作者:范明之
在VB5.0具有面向对象的程序设计思想及可视化的编程方式,可开发出各种多媒体应用程序,颇得软件设计者青睐。笔者最近应用VB5.0编制了一程序,成功实现了“图文并茂”的屏幕效果,即:屏幕出现用户选定的一幅赏心悦目的图像,在图像下方有一行字幕缓缓地从屏幕右边向左边移动,全部文字移至左边消失后,从右边又平滑拖出字幕,字幕移动过程中既不影响图像的整体效果又能对图像进行提示、说明,使应用程序界面充满“活性”。
现将设计的整个过程介绍如下:
(1)创建一个新目标文件(Project1),并建立一个窗体Form1。
(2)在Form1上配置一个计时器控件Timer1、标签控件Label1、图像控件Picture1。
(3)各控件属性设置:
Timer1的Enabled设置为“True”。
用Label1的Font设置屏幕下方循环移动的提示信息字体及大小,ForeColor设置字体颜色,AutoSize设置为True,BackStyle设置为“0-transparent”。
Picture1的AutoSize设置为False,Height设为5435,Width设为8235,Scalemode设置为“3-pixel”。
(4)程序代码清单:
PrivateSubForm_Load()
′设置图像控件Picture1属性,在屏幕显示图像Picture1Picture=LoadPicture(″C:\Pwin95\Setup.bmp″)Picture1ForeColor=RGB(255,10,110)Picture1FontItalic=TruePicture1FontBold=TruePicture1Top=155Picture1Left=635′将标签控件Label1的Caption属性设置为屏幕下方循环移动的提示信息Label1Caption=″江西省黎川县职业中专电脑室设计″Label1Left=WidthLabel1Top=5653Timer1Interval=375Form1Windowstate=2EndSubPrivateSubTimer1_Timer()IfLabel1Left<0-Label1WidthThenLabel1Left=WidthEndIfLabel1Left=Label1Left-255EndSub程序中的图像及移动字幕可依自己喜好灵活设计,以达到最佳效果。若屏幕显示多幅图像,需设置好几个图像控件Picture的屏幕显示位置,分别调用函数LoadPicture(″.bmp文件名″)即可。该程序设计也适用VB3.0、VB4.0。
客如云创始人彭雷:寻找O2O“失落的半圆” 中国电信宋鹏飞:天翼开放平台的服务及架构解析 W3C小组宣布:HTML5标准制定完成 还记得DUQU吗?起因可能是Windows中存在了20多年的漏洞! API管理的五大规则 Google也节能:挖角美能源部Arun Majumdar博士 预测:云计算领域的5大变革 CTO俱乐部:移动信息化的创新实践及互联网创业 核心组图曝光:BlackBerry 10明年1月30日发布 “蛐蛐儿”创始人朱连兴:音频二维码的技术实现和应用场景 信恩科技创始人林兴陆:QR Code二维码的前世今生 2012移动开发工具盘点:傻瓜式游戏工具引擎 《福布斯》发布年度“未来之星” 扎克伯格上榜 Cloudera透露Impala发行版新功能及开源计划 Nokia落寞身影下 三星成为全球最大手机厂商 乐视网CTO:智能电视,一个诱人的议题 SeatGeek:Web设计师如何转型iOS开发? IE10支持HTML5标准拖放 IBM IT实践达人赛24强出炉 决赛圈比拼创新实践力 [简讯] Perl迎来25岁生日 软件开发者最重要的四大技能 为什么说惠普、戴尔和IBM在互联网发展中站错队 升级iOS 6还得看Google Maps 2012移动开发工具盘点:16大跨平台游戏引擎 GitHub Web游戏开发竞赛 获奖榜单出炉 Dart里程碑2发布 大幅提升dart2js性能 To Facebook:HTML5不好用?是你不会用! AWS推快照备份服务抵御宕机风险 靠谱吗? 微软品鉴会秀Windows 8电脑 上百款新设备年末上市 甩开外包,雄踞榜首:揭开“宫爆老奶奶”成功的秘密 IBM收购大数据公司StoredIQ 推动大数据传输能力 我买了方正电脑,他们应不应该给带win98盘,是不是销售商给截留了? 网络方面的问题,诚恳期待高手指点! 只好再问一遍,中文字符串在txtField中显示好好的,可是到了jbuilder3的GridControl中就变成了方块,为什么?我是win2000英文版。有谁用过GridControl这个破控件吗? 讨论:问题与主义 我要学SCO UNIX,请问本书比较好? Crystal Report8.0怎么安装? DLL的棘手的问题,大家可以踊跃发表自己的意见,来者有分! 怎样把图片存入扩展名为DBT的文件? 在VB中,我用A4纸设计的报表,能否用简单的文法将其放大到用A3纸打印?谢谢! VB实在太简单了,各位有胆的放马去开VC....... 一般概念性问题 关于Delphi中发布广播的问题。 电力系统问题 :请问非居民(或直供户)电量与电费算法公式是如何定义的?(详细点) Embeded visual c++3.0 问题 我要学SCO UNIX 8.0 FOR PC,哪本书较好呢? 怎么样学习网络编程?来者有分!不够再加. 请高手帮帮我!!! 如何改变打开、保存、另存为文件对话框中缺省的文件类型? 为何我的程序在VC编辑环境下按CTRL+F5不能正确RUN,在资源管理器下能正确RUN? make文件是怎么回事? oracle中long类型是什么类型? PB简单画图?保存到库表中? 用程序代码建立表结构的问题 怎么在状态栏中加入竖线分隔,而且调整字体的大小? 请高手帮帮我!!!! jbuilder4的enterprise setup需要weblogic51,但我的是weblogic6,应该怎样才能让jbuilder支持6啊? 关于数据库的并发操作 谁知道哪里有vb下载? 哪有可下载的AUTOCAD2000 如何用VB实现存折的打印???? 请教给TImage加滚动条的问题 我和她在一起的话,会开心吗 请大家看看这条语句有什么错? 关于isdn在win2000下共享的问题 各位水友,有力的出力,没力的看看,拜托 请从位高手帮小弟解决一个棘手的问题……………………多谢!!!!!!! ALLTEC(荔枝)兄弟,兄弟我接帖太快 :( 請這邊來. ★★★ 救命啊! VC 用ODBC访问 Access 数据库的问题 guo->你在www.linuxforum.net中叫什么?有个guoemail是你吗? 软件发布:市场摊位租赁管理系统Ver1.0 软件发布:量和单位转换软件(免费版) 软件发布:五笔快打 在listview中的各个记录listitem中,有没有双击记录的事件 软件发布:伏羲服装鞋业购销存管理系统 软件发布:进销存商务管理pcft-jxc 征集各地童谣.唤醒儿时记忆! 今天我请客! 有关vb调用excel的问题! 有没有关于BDE的单独的分发程序? VB中报表预览打印能不能实现象EXCEL中一样的“按比例缩放”?如何实现? 单机版流量统计 甲乙两车同时从A地到B地,甲车每小时比乙车多行驶15千米,甲车行驶3.5小时到达B站后,立即按原速度返回,在距B站30千米的地方与乙相遇.甲车每小时行驶多少千米? 一、填空题1.根据8乘1.2=3乘3.2组成两个比例分别是( ),( ).2.写出比值是2的两个比,并组成比例是( ). 画波浪线的部分看不懂,就好像凭空捏造出来的一样,请无视我的愚钝:)能看到吗 甲、乙两人同时从A地到B地,甲到达B地后立即沿原路返回.返回途中在距B地14km处与乙相遇,已知甲每小时行12km,乙每小时行5km.A、B两地相距多少km? 2.某公司五月份售出的手机800部,比四月份多售出五分之一,四月份售出多少部?3.一位城市居民过去的居住面积是52平方米,比现在的居住面积少二十四分之十一,现在的居住面积是多少平方米? 函数y=√9-(x-5)²的图像上存在不同的三点到原点的距离构成等比数列,则以下不可能成为该数列的公比的数是 A,√2 B,√3 C,√5 D 3/4将就着看吧 √这个是根号,= =. 1、一头猪卖三又二分之一银币,一头山羊卖一又三分之一银币,一头绵羊卖二分之一银币,有人用一百银币卖了一百头牲畜,那么猪、山羊、绵羊各是多少头?2、求阴影部分的面积(下图) 六年级!数学题!急死我了一位城市居民过去的居住面积是52平方米,比现在的居住面积少二十四分之十一,现在的居住面积是多少平方米? 问一到数学题,希望给一个解题步骤.若(1-2x+y)是4xy-4x^2-y^2-m的一个因式,则m的值为( ) 不准用方程! 淘气和笑笑都积攒了一些零用钱,淘气积攒的钱是笑笑的180%.在献爱心活动中,淘气捐了58元钱,笑笑捐了30元钱,这时他们的钱数相等.淘气原来有多少钱?不要方程 我想问几道高中选修的数学题,1.一个距地心距离为r,质量为m的人造卫星,与地球之间的万有引力F由公式F=GMm/r方 给出,其中M为地球质量,G为常量,求F对于r的瞬时变化率2.某旅行社在暑假期间推出 不太懂1.某食堂第一次运进大米12袋,面粉20袋,共重1000kg.第二次运进大米和面粉各10袋,共重700kg.一袋大米和一袋面粉各重多少千克?2.现有浓度20%的盐水300克,要把它变成浓度为60%的盐水,要加多 今年小芳和他妈妈的年龄和是38岁,3年前妈妈的年龄比小芳的9倍多2岁,小芳和妈妈的今年各是多少岁今年小芳和他妈妈的年龄和是38岁,3年前妈妈的年龄比小芳的9倍多2岁,小芳和妈妈今年各是 红盒子每个重3/28千克,蓝盒子每个重5/24千克,如果红盒子和蓝盒子的总重量相同,至少有()个红盒子,()个蓝盒子 有几道数学题不太懂,希望大家帮帮忙,我会非常感谢大家滴~~~1.某渔场计划购买甲,乙两种鱼苗共6000尾.甲种鱼苗每尾0.5元,乙种鱼苗每尾0.8元,相关资料表明,甲,乙两种鱼苗的成活率分别是90%和95 请解答一道小学四年级数学题:小华喝一杯牛奶,第一次喝了一半后,加满水;第二次又喝了一半后,又加满水,最后全部喝完.他喝的牛奶与水相比,( ).A.牛奶多;B.水多;C.同样多我算的结 用一张长5.14分米、宽2分米的长方形铁皮做一个圆柱形铁桶,求这个铁桶的表面积最大是多少?小亮和爸爸、妈妈的年龄分别是6、35和31岁.几年后,爸爸、妈妈的年龄总和是小亮的5倍?(正确答案 刚做了一道数学题,其中有一节如下:n=x^-2(x≥1/2)≤(1/2)^2=4 甲乙两个人都要在两岛之间游个来回.两人分别从A、B同时出发,他们第一次相遇的时候距离A岛700米,第二次相遇距离B岛400米,问AB间距离?四楼正解,可是看不懂 A、B两地相距880千米,甲、乙两辆汽车分别从两地同时相向而行,已知甲、乙两车的速度是6:5,当两车相遇时,两车各行了多少千米? 真不难,但我还是不太懂两列火车从甲乙两地同时相对开出,3小时后在距中点72千米处相遇.已知慢车的速度是快车速度的七分之五,甲乙两地相距多少千米?包括列式、解答,最好还要有讲解、分 这个数是137,结果看成了173,商比以前大3,余数相同,问除数和余数各是多少? 1.将自然数按顺序无间隔地排成一排1 2 3 4 5 6 7 8 9 1 0 1 1 1 2 1 3 1 4……在199和200之间第一次出现“1992”四个数字相接.那么第二次出现“1992”四个数字相接是在_____和_____之间.2.有3个男孩和2个 已知y=y1+y2,y1与x成正比例,y2与x²;成反比例,且x=2与x=3时,y的值都等于19,求y与x的函数关系式.·(关于反比例函数的题) 饲养小组共有鸡,鸭450只,后来卖出鸡的一半,又买进30只鸭,此时鸡是鸭的2倍,原来鸡和鸭各有多少只?列数学算式,不带xy!需要列式子,不能用x和y! 1.一个底面直径是24厘米的圆柱形杯中装有水,水里浸着一个底面直径是12厘米,高是18厘米的圆锥体铁块,当铁块从杯中取出时,杯里水面会下降多少厘米?2.一个圆锥的底面半径是圆柱底面半径的 有一个数学题,有这么一句话,我不太懂什么叫“按利润的30%定价,且按定价的90%销售”? 甲、乙两车同时从两地相对开出,t小时后相遇.甲车每小时行42千米,乙车每小时行45千米.(1)用式子表示出两地间的路程.(2)根据这个式子,求t=3时,两地的路程是多少千米? 甲乙两车同时从A地到B地,当甲行了全长的5分之3时,乙行了28.4千米,当甲到达B地,乙离B地还有11分之3,AB相距多少千米? 数学题不太懂有四个自然数A、B、C、D,它们的和不超过400,并且A除以B商是5余5,A除以C商是6余6,A除以D商是7余7.那么,这四个自然数的和是:( )A.216 B.108 C.314 D.348A是5 6 7的很小公倍数 210B是41C是34D 1.小虎6分钟走了1/5千米,平均每分钟走多少千米?2.某工程队修一条路,6天修了全长的2/5.平均每天修全长的几分之几?照这样计算,10天可以修全长的几分之几?(注:1/5=五分之一) 这是一道数学题,由于比较急,希望你能快速回答,对于每项均是正整数的数列A:a1,a2,a3,…,an,定义变换T1,T1将数列A变换为数列T1(A):n,a1-1,a2-1,…,an-1对于每项均是非负整数的数列B:b1,b2,b3,… 不太懂甲,乙,丙,丁4人踢球,一人踢坏了大伯的玻璃,甲说:乙踢的.乙说:丙踢的.丙说;乙说假话.丁说:不是我闯的祸.4人中只有1人说真话,谁闯的祸 把一个小数缩小10倍,所得的小数比原来的小数少2.7,原数是多少?帮我找答案,我需要算式,我知道原数是3,但是不知道怎么求. 关于一条数学题,希望大家能回答我,一批零件,用15个盒子装,还剩下4个.用20盒子装,也是剩下4个.问这批零件有多少件?啊哥啊姐能说明每一步的原因! 一判断下列直线的位置关系直线2x+1=0与直线2y+3=0二求适合下列条件的直线的方程1:过点(2,1)且平行于直线X=-32:过点(2,-3),且平行于过两点(1,2),(-4,5)的直线 帮偶两道六年级数学题(要过程,拜托了)1.在一农场,母鸡的头数与山羊的头数之和是70,而腿数之和是196,则母鸡比山羊多多少?2.有一批画册,如果3人合看一本则余2本,若两人合看一本则8人没看 5.下列说法正确的是( )A 平移不改变图形的形状和大小,而旋转则改变图形的形状和大小B 平移和旋转的共同点是改变图形的位置C 图形可以向某方向平移一定距离,也可以向某方向旋转一定距离 能做几道答几道可以加分,最多加到2001.一件稿件,甲乙两人合作1小时,完成了这份稿件的60分之11,乙丙两人接着工作一小时,甲丙又合作两小时,完成了三分之一,剩下的任务,甲乙丙三 (1)将1、2、3、4……36随意的填写到6*6的表格中(每格一数),请问能否一定能从表中删去一列数和一行数,使得剩下的数的和为偶数?(2)数666……666(1992个6)*666……667(1991位数)*24的各 希望今天晚上得到答案!(1)在1-10这10个自然数中,每次取两个数,使得所取两个数之和大于10.共有多少种取法?(2)在1-100这100个自然数中,每次取两个数,使得所取两个数之和大于100.共有多少 某物体自高空自由落下,第一秒落下4.9公尺,以後落下的距离每秒增加9.8公尺,即第二秒钟落下14.7公尺,第三秒钟落下24.5公尺,.,若此物体30秒後落达地面,则:(1)此物体地30秒洛下的距离为_____公尺(2 红红和亮亮栽了一棵小树,树干直径是5厘米,高是1.5米,小树成活后,每年约能长高10厘米,树干直径每年约长3厘米.(1)5年后成材的木料大约有多少立方米?(2)把这根圆木加工成最大的方木,方木 希望今天能给出答案2008年北京奥运场的足球分赛场——秦皇岛市奥体中心体育场,其足球场的周长是344米,长和宽之差是36米,这个足球场的面积是多少平方米? 有一道判断题:平行四边形不是轴对称图形 ( )我是打叉还是打勾呢?打勾:因为一般的平行四边形都不对称.打叉:因为平行四边形还有特殊的,如:长方形、正方形、菱形、矩形等,它们都 一架飞机所带燃料最多可以用六小时,飞机飞出时顺风每小时行1500Km,返回时逆风而行每小时飞行1200Km这架飞机自多飞多远就学要返回? 数学题,希望能有详解!谢谢!有一条光线沿直线y=4射到抛物线y²=4x上的一点P,经抛物线反射后,反射光线与抛物线的另一个交点Q,O是抛物线的顶点,F是抛物线的焦点,求弦PQ的斜率和△OPQ的面积S 甲、乙两人轮流在在“九宫格(3*3的方格)”内的方格内画符号,甲画“@”,乙画“*”,规定每次能画1——3格.空格画满后,哪一方画的图案个数是偶数,哪一方就获胜.问:甲确保获胜的策略是 某校六(2)班40名同学为希望工程捐款,共捐100元,捐款情况如下表:求出捐款2元和三元的同学各几名? 等差数列{an}是递增数列,前n项和为Sn,且a1,a3,a9成等比数列,S5=(a5)^2 (1)求数列{an}的通项公式 (2)若数列{bn}满足bn=(n^2+n+1)/(an*an+1),求数列{bn}的前99项和 一个长方形可以切成两个正方形 每个正方形体积是原长方形的( )两个正方体的表面积是原长方体的( )倍将一个正方形的棱长扩大3倍 表面积扩大( )倍 体积扩大( )倍 1.两辆汽车同时从A地开到B地,甲汽车每小时行80千米,乙汽车每小时行120千米.当乙汽车比甲汽车多行200千米时,甲汽车正好行了全程的40%,问:A地到B地的路程是多少千米?2.分母是a(大于零的自 10.有一列数 A1,A2 ,A3 ,……An ,从第二个数开始,每一个数都等于 与它前面那个数的倒数的差,若A1=2,求A2007为多少等于1与它前面那个数的倒数的差 不好意思 几道小学数学题,追加20分!⒈某车间有工人52人,其中男工人数的4分之1比女工人数的3分之1少1人,这个车间有男、女工各多少人?⒉甲、乙两个粮仓,原来乙仓存粮比甲仓少五分之一,现在把甲仓存 几道六年级数学题快来(1)一个圆柱体的底面积是9平方厘米,它的体积是()立方厘米.(2)一个排气管,它的横截面积是8平方分米,排气气流的速度每秒是5分米,这个通风管每分钟可排气体( 1、一个数的7(4)是28,这个数是( ).2、5(3) = ( )∶( )= ( )(18)=6÷( )3、一个直角三角形两个锐角度数的比是1∶2,则这两个锐角分别是 ( )和( )度.4、把 3(1)× 9(2)= 27(2)改写成 小学数学题.求简单过程 几道六年级数学题 快师徒两人合作加工一批零件,师傅的工作效率是徒弟的1.4倍,完成任务时,徒弟比师傅少做了240个零件,这批零件一共有多少个? 客、货两车同时从甲乙两城的中点向相反的方 将一块圆锥形糕点沿着垂直于底面切成完全相同的两半,表面积比原来增加了36cm2,测得圆锥形糕点的高是9cm.原来这块糕点的住体积是多少立方厘米?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn