VisualBasic中字符淡出淡入的实现
2006-02-27 11:55:05 来源:WEB开发网 闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾惧綊鏌熼梻瀵割槮缁炬儳缍婇弻鐔兼⒒鐎靛壊妲紒鐐劤缂嶅﹪寮婚悢鍏尖拻閻庨潧澹婂Σ顔剧磼閻愵剙鍔ょ紓宥咃躬瀵鎮㈤崗灏栨嫽闁诲酣娼ф竟濠偽i鍓х<闁诡垎鍐f寖闂佺娅曢幑鍥灳閺冨牆绀冩い蹇庣娴滈箖鏌ㄥ┑鍡欏嚬缂併劎绮妵鍕箳鐎n亞浠鹃梺闈涙搐鐎氫即鐛崶顒夋晬婵絾瀵ч幑鍥蓟閻斿摜鐟归柛顭戝枛椤牆顪冮妶搴′簼缂侇喗鎸搁悾鐑藉础閻愬秵妫冮崺鈧い鎺戝瀹撲礁鈹戦悩鎻掝伀缁惧彞绮欓弻娑氫沪閹规劕顥濋梺閫炲苯澧伴柟铏崌閿濈偛鈹戠€n€晠鏌嶆潪鎷屽厡闁汇倕鎳愮槐鎾存媴閸撴彃鍓卞銈嗗灦閻熲晛鐣烽妷褉鍋撻敐搴℃灍闁绘挻娲橀妵鍕箛闂堟稐绨肩紓浣藉煐濮樸劎妲愰幘璇茬闁冲搫鍊婚ˇ鏉库攽椤旂》宸ユい顓炲槻閻g兘骞掗幋鏃€鐎婚梺瑙勬儗閸樺€熲叺婵犵數濮烽弫鍛婃叏椤撱垹纾婚柟鍓х帛閳锋垶銇勯幒鍡椾壕缂備礁顦遍弫濠氱嵁閸℃稒鍊烽柛婵嗗椤旀劕鈹戦悜鍥╃У闁告挻鐟︽穱濠囨嚃閳哄啰锛滈梺褰掑亰閸欏骸鈻撳⿰鍫熺厸閻忕偟纭堕崑鎾诲箛娴e憡鍊梺纭呭亹鐞涖儵鍩€椤掑啫鐨洪柡浣圭墪閳规垿鎮欓弶鎴犱桓闂佸湱枪閹芥粎鍒掗弮鍫熷仺缂佸顕抽敃鍌涚厱闁哄洢鍔岄悘鐘绘煕閹般劌浜惧┑锛勫亼閸婃牠宕濋敃鈧…鍧楀焵椤掍胶绠剧€光偓婵犱線鍋楀┑顔硷龚濞咃絿妲愰幒鎳崇喓鎷犻懠鑸垫毐闂傚倷鑳舵灙婵炲鍏樺顐ゆ嫚瀹割喖娈ㄦ繝鐢靛У绾板秹寮查幓鎺濈唵閻犺櫣灏ㄥ銉р偓瑙勬尭濡繂顫忛搹鍦<婵☆垰鎼~宥囩磽娴i鍔嶉柟绋垮暱閻g兘骞嬮敃鈧粻濠氭偣閸パ冪骇鐎规挸绉撮—鍐Χ閸℃ê闉嶇紓浣割儐閸ㄥ墎绮嬪澶嬪€锋い鎺嶇瀵灝鈹戦埥鍡楃仯闁告鍕洸濡わ絽鍟崐鍨叏濡厧浜鹃悗姘炬嫹

----字符的淡入淡出功能可以通过对标签(LABEL)控件的前景做不断的改变来完成。控件前景的变化,
可以在设计时用标签控件的前景属性来设置,也可以在程序中通过给前景属性赋予不同的色彩值来实现。色彩由RGB函数提供(VisualFoxpro也有该函数)。用定时器控件产生的中断不断改变RGB参数值,因此能够使得字符的前景随之改变,实现了淡出淡入的目的。
----下面用VisualBasic4.0编写的程序完成了两个功能:(1)字符的淡出淡入,而且颜色的变化有256*256*256种,此处只选择了由灰色到红色的变化;
(2)淡出时字符由小到大,淡入时则由大到小。另外,本程序的实现过程可完全方便地向VisualC、Visualjava等可视话语言移植。
----一.启动VisualBasic4.0,自动生成一个窗体,默认为FORM1。
----二.将该窗体的属性设置如下:
NAME:DEMO
CAPTION:VB实现字符的淡入淡出
BACKCOLOR:&H00C0C0C0,即背景为灰色
----三.在窗体DEMO中定义以下窗体变量,即在General-declaration过程中定义色彩参数R,G,B。
DimrAsInteger
DimgAsInteger
DinbAsInteger
----四.在Form-load过程中设置字符色彩初值,即灰
色:
PrivateSubForm_Load()
r=192
g=192
b=192
EndSub
----五.在窗体DEMO中加入一标签,其属性设置如下:
NAME:LABEL1
CAPTION:哈尔滨国投债券交易系统
AUTOSIZE:TRUE,用以实现字符的缩放
BACKSTYLE:0-TRANSPARENT,即透明
FONT:字体为隶书,大小选择为8
----六.在窗体中加入定时器控件,用以完成淡出功能,设置如下:
NAME:OUTTIMER
INTERVAL:50,即隔一秒中断一次,色彩变化一次。
----七.再加入一个定时器,完成淡入功能:
NAME:INTIMER
INTERVAL:50
----八.在OUTTIMER的TIMER过程中加入以下代码:
PrivateSubOuttimer_Timer()
Ifr<255Then
r=r 1
Else
r=255
EndIf
Ifg>3Then
g=g-3
Else:g=0
EndIf
Ifb>3Then
b=b-3
Else:b=0
EndIf
Label1.FontSize=Label1.FontSize 0.75
Label1.ForeColor=RGB(r,g,b)
IfLabel1.FontSize>=72Then
Outtimer.Enabled=False
Intimer.Enabled=True
EndIf
EndSub
----九.在INTIMER中加入如下代码:
PrivateSubIntimer_Timer()
Ifr>192Then
r=r-1
Else
r=192
EndIf
Ifg<192Then
g=g 3
Else:g=192
EndIf
Ifb<192Then
b=b 3
Else:b=192
EndIf
Label1.FontSize=Label1.FontSize-0.75
Label1.ForeColor=RGB(r,g,b)
IfLabel1.FontSize<=8Then
Intimer.Enabled=False
Outtimer.Enabled=True
EndIf
EndSub
----当完成上述步骤后,按运行按扭,就可看到在窗体内“哈尔滨国投证券交易系统”几个字由小到大、有浅入深地显示出来;当字体达到规定的大小时,又渐渐地消失在窗体之中,实现淡出淡入的功能。
Tags:VisualBasic 字符 淡出
编辑录入:爽爽 [复制链接] [打 印]- ››字符串分割
- ››字符串格式化工具
- ››字符串近似匹配算法
- ››字符终端的管理
- ››字符
- ››字符串分割的两种方法
- ››VisualBasic.Net引人注目的语言革新
- ››字符匹配
- ››淡出淡入 Script
- ››字符串类数据列类型(参考)
- ››字符自动截取问题
- ››VisualBasic窗体背景花纹的实现
赞助商链接