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

VB5.0中实现字体闪烁效果

HTML文档下载 WORD文档下载 PDF文档下载
VB5.0中实现字体闪烁效果
作者:范明之
用Visual Basic我们可设计出形形色色符合用户要求的应用程序,它确实是一种很好的用户程序开发工具,可VB提供的基本控件中都没有闪烁属性设置,使应用程序界面缺乏“活性”,近期笔者设计软件封面时,就要求字体不断地闪烁,为此,经反复分析、实践,最后终于成功地实现字体闪烁效果,现将设计过程说明如下:
  (1)创建一个新目标文件(project1),并建立一个窗体Form1。
  (2)在Form1上配置一个计时器控制Timer1、标签控件Label1、命令控件Command1。
  (3)各控件属性设置:
  Timer1的Enabled设置为True;
  Label1的Caption设置为需闪烁的字体:“江西省黎川县职业中专电脑室设计”、
Font设置字体及大小、Backstyle设置为“0-Transparent”;
  Command1中的Caption设置为“退出”。
  (4)程序代码清单:
  Option Explicit
  Private Sub Form_ Load()
  Label1.Top=850  
   ′设置闪烁字体的显示位置
  Label1.Left=750
  Timer1.Interval=555  
  ′设置字体闪烁间隔时间
  Form1.Windowstate=2
  End Sub
  ′利用计时器控件Timer有规律地改变字体颜色(Forecolor)
  Private Sub Timer1_Timer()
  Chc Label1,1,4,8
  End Sub
  ′Chc过程是循环地改变字体颜色(Forecolor)
  Sub Chc(Cont As Control,Color1 As Integer,Color2 As Integer,Color3 As Integer)
  If Val(Cont.Tag)=Color1 Then
  Cont.Tag=Color2
  ElseIf Val(Cont.Tag)=Color2 Then
  Cont.Tag=Color3
  ElseIf Val(Cont.Tag)=Color3 Then
  Cont.Tag=Color1
  Else
  Cont.Tag=Color1
  End If
  Cont.ForeColor=QBColor(Cont.Tag)
  End Sub
  Private Sub Command1_Click()
  End
  End Sub
  程序除标签控件外,还适用于许多VB基本控件,实现诸多闪烁效果,例如:闪烁文本框、闪烁文件列表框等,极大丰富了VB应用程序界面,相当实用。
  此设计也适用VB3.0、VB4.0。  (江西 范明之)
Zynga开源服务器监控工具zPerfmon 上海海事大学王洁:打造物流教学科研应用云平台生态系统 15个步骤创立技术公司,并收获千万用户(二) HTML5发展慢热 开发者热情不减 NimbleBit孪生兄弟创始人:最后悔没有专注和扩大品牌 将对Windows形成挑战:谷歌在Chrome OS中默认支持Office 微软的企业社交大动作:Yammer发布移动SDK 谷歌开源Gumbo:纯C语言实现的HTML5解析库 AMD发布APPML源码,构建clMath库 【观察】3个月,每天增加52台,又一家云企业跻身十万台服务器俱乐部 感受华为IT业务的实力 小米雷军:我为什么做红米? GitHub上线Trending功能,帮你轻松找到有潜力的开源项目 如私人秘书:谷歌搜索将变得更加个性化 微软将于10月17日正式发布Windows 8.1 Google推出在线教育C2C平台Helpouts 技术人员组团参加SDCC 2013的十个理由 继BAT之后 第四大巨头是谁 如果传统IT部门真的消亡,你该何去何从? 闪存突袭,混合储存是否已步入黄昏 Cloudera发布Hadoop开源组件Sentry:提供细粒度基于角色的安全控制 我从其他Shell脚本中学到了什么? 10个调试和排错的小建议 机器学习的时代来临,人类应该做点什么? 云端测试破1500万 Testin已为开发者省2亿 智能腕表inWatch:已发售近3600台 Bingo!微软证实Windows 8.1将捆绑安装Skype IBM宣布收购以色列网络安全公司Trusteer 约10亿美元 如何才能运作好一个开源项目? 为什么JavaScript有能力成为未来企业级编程语言? Red Hat CEO:拥抱开源 拥抱克隆 今晚结贴:VB的注册表操作,包括创主键、写值! smartupload上传过来的文件,如何改名后存在硬盘啊 工作无聊,散分!! 如何弥补服务器CGI漏洞?高手帮忙啊! 菜鸟刚学vc.net,我在对话框上放了一个picture conctrol控件,我想知道怎么用他显示一张图片?? 用delphi做控件,vc来调用怎么样? 问题:C语言中的问题 高分求购Rapid SQL 7.2.0正式版或注册码 神呐,救救我吧!!!我是新手遇到datagrid难题了!! 为什么在页面写入日期、时间无效? 有没有远程为服务器注册控件的方法???在线等。。。 急求linux9.0下金网霸猫的驱动 怎么往数据库里存取图片? C++堆栈问题 请介绍一下J2ME里关于i18n的情况:架构和实现。 关于图形特效(50分相赠) 【严重问题】版主快点进来帮我看看。谢谢!!!! 两个ToolBar怎么创建不了? 英语好,那就试着赚美元吧 高分-使用asp.net开发之前要注意什么(工程,窗体的命名规则,配置文件如何放置?) 关于在我的服务器上做多个域名解析的问题,请大家帮忙,谢谢! 269路车司机驾照322174一站路开了20分,而且不是塞车,大家有什么看法? 签到系统未到人的选择(在线等,正确结帖) 关于天网的问题 TStringList 与 数组 让你的企业、产品、网站一夜成名 请介绍一下,在struts下如何使用tiles。。。 怎样使日历控件选择为星期一? 让你的企业、产品、网站一夜成名 怎樣套用自己設定的 TableStyle 到 DataGrid? 运行.NET程序的机器需要.NET 类库吗? java里有那种可以选择到目录的文件框吗?高分相送! 如何知道QQ网友是否隐身登录? [转帖]两极世界----仙版 未满18岁勿进!! rollback問題 有没有谁帮我说一下ASSERT()是一个什么样的函数,有什么用?? 〉〉〉〉〉〉〉请问影响一条SQL语句的执行计划的因素主要有哪些方面 怎么用SQL语句判断一个表中的某一字段有三个相同的值的记录? 有什么方法把一个应用程序做成系统的服务啊? 如何在EDIT中既限制只能输入数字又保证能输入小数?在线等~~~ 动态连接库的提取 如何做在线试题考试程序,请给例子.谢谢~~ 请问:在JScript中有什么方法是与C#中的“System.Web.HttpUtility.UrlEncode(string)”相当的? multipage和tabstrip的连接问题 ?@@@ MFC编程:关于GetDocument()@@@ 寻找解决方案 如何把几条sql语句全成一条? 友情提示:多线程浏览器弹出窗口的问题 点网页中的文件下载,直接在浏览器中打开了,我想点击下载后弹出对话框,然后保存. 求救,页面文字的大小如何设置? 牙掉渣成洞咋回事啊?怎么治疗?进来看看(不是乳牙,无硬伤)大牙侧面掉渣了,现在成一个大空洞,怎么回事啊?严不严重?如何治疗? 写两个关于猪八戒的歇后语, 后背有一小块皮肤发黑发热,能把衣服腐蚀成洞,这事怎么回事呢? 麻烦解一下这个方程组和不等式组 英语里报电话号码的问题假如我的手机号前几位是188888我应该如何告诉老外 one eight eight eight eight eight 不可能这么说吧 炜炖这个词是什么意思啊? 没有查到哎. 各位帮帮忙哈~~ 中文数字,什么时候读"二",什么时候读"两"?还有什么时候读“一”,什么时候读“幺”?数字1读“幺”的时候是不是只有说电话号码和火警,急救中心等的时候啊? wempco, Shanghai History什么意思 清朝国土怎么损失的具体一些 清朝 尼布楚条约我就纳闷,世人都知道南京条约,北京条约等等.我想问有多少人知道尼布楚条约的危害在哪里 美国土安全部曝丑闻:每年多发870万韩国三四流整形医生赴中国淘金 自称顶河北超生女婴被抱走追踪:家属称有人欲德国政府表示愿与斯诺登直接对话洛杉矶机场枪击案1人死亡多人受伤 航巴基斯坦塔利班领导人在美国无人机空袭广西炮竹厂爆炸致11死17伤 组织专韩媒:中国冬季供暖引发的雾霾本周抵达用户短信含敏感词“地铁” 被系统拦截网传“倒输银行卡密码可报警” 银行否德国政府表示愿与斯诺登直接对话中国海军第二十一批护航编队访问孟加拉香港金管局助理总裁分析港股港汇双跌成济宁男婴零下六七度被遗弃 查出脊柱裂济南2016年首批终身禁驾名单出炉:济南:园林新春大拜年 为游客奉上猴年菏泽汽车站启动“邮寄儿童”业务 一站山东省政协委员:建议中小学教室全面安济南烟花爆竹遇冷 批发开放首日商家一日照一男子假冒记者“暗访拆迁” 实施青岛市民银行存款变保单 高收益承诺泡才玉璞:解开企业担保链 政府需建立产天才再生之最强火神异世灵魂守卫大罗金仙在星际黑帮传奇大唐全才十龙夺嫡魔岛风云纨绔牧师混在乱唐当军阀重生之三国争霸阳关博物馆旅游敦煌影视古城旅游云南印象旅游七彩云南旅游金马碧鸡坊旅游南屏步行街旅游正义坊旅游昆明植物园旅游云南野生动物园旅游世界园艺博览园旅游文化巷旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘