📄 ba63.htm
字号:
<HTML>
<HEAD>
<TITLE>Visual Basic 中字符淡出淡入的实现 </TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<BODY topMargin=4 vLink=#0000ff>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height="52">
<DIV align=center>
<CENTER>
<table border=0 cellpadding=0 cellspacing=0 width=679 align="center">
<tbody>
<tr>
<td width=200 height="59">
</TD></TR><!--msnavigation--></TBODY></TABLE>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr><!--msnavigation--><td valign=top height="123">
<div align=center>
<table border=1 bordercolor=#b9d9ff cellpadding=0 cellspacing=0
class=table width=755>
<center>
<tr>
<td width="100%" height="2">
<div align="center"> <strong><b>Visual Basic
中字符淡出淡入的实现</b> </strong></span></div>
</td>
</tr>
<tr>
<td
width="100%" class="unnamed1" height="124">
<div align="left">
<p align="center"> </p>
<p align="center"> <font face="宋体" size="-1">将该窗体的属性设置如下：<br>
<br>
NAME：DEMO<br>
CAPTION：VB 实现字符的淡入淡出<br>
BACKCOLOR：&H00C0C0C0%, 即背景为灰色<br>
<br>
在窗体DEMO 中定义以下窗体变量, 即<br>
在General-declaration 过程中定义色彩参数R，G，B。<br>
Dim r As Integer<br>
Dim g As Integer<br>
Din b As Integer </font></p>
<p><font face="宋体" size="-1">在Form-load 过程中设置字符色彩初值, 即灰色：<br>
Private Sub Form_Load()<br>
r = 192<br>
g = 192<br>
b = 192<br>
End Sub </font></p>
<p><font face="宋体" size="-1">在窗体DEMO 中加入一标签，其属性设置如下：<br>
NAME：LABEL1 <br>
CAPTION：哈尔滨国投债券交易系统<br>
AUTOSIZE：TRUE，用以实现字符的缩放<br>
BACKSTYLE：0-TRANSPARENT，即透明<br>
FONT：字体为隶书，大小选择为8<br>
<br>
在窗体中加入定时器控件，用以完成淡出功能，设置如下：<br>
NAME：OUTTIMER<br>
INTERVAL：50，即隔一秒中断一次，色彩变化一次。<br>
<br>
再加入一个定时器，完成淡入功能：<br>
NAME：INTIMER<br>
INTERVAL：50<br>
<br>
在OUTTIMER 的TIMER 过程中加入以下代码：<br>
Private Sub Outtimer_Timer()<br>
If r < 255 Then<br>
r = r + 1<br>
Else<br>
r = 255<br>
End If<br>
If g > 3 Then<br>
g = g - 3<br>
Else: g = 0<br>
End If<br>
If b > 3 Then<br>
b = b - 3<br>
Else: b = 0<br>
End If<br>
Label1.FontSize = Label1.FontSize + 0.75<br>
Label1.ForeColor = RGB(r, g, b)<br>
If Label1.FontSize >= 72 Then<br>
Outtimer.Enabled = False<br>
Intimer.Enabled = True<br>
End If<br>
End Sub</font></p>
<p><font face="宋体" size="-1">在INTIMER 中加入如下代码：<br>
Private Sub Intimer_Timer()<br>
If r > 192 Then<br>
r = r - 1<br>
Else<br>
r = 192<br>
End If<br>
If g < 192 Then<br>
g = g + 3<br>
Else: g = 192<br>
End If<br>
If b < 192 Then<br>
b = b + 3<br>
Else: b = 192<br>
End If<br>
Label1.FontSize = Label1.FontSize - 0.75<br>
Label1.ForeColor = RGB(r, g, b)<br>
If Label1.FontSize <= 8 Then<br>
Intimer.Enabled = False<br>
Outtimer.Enabled = True<br>
End If<br>
End Sub </font></p>
<p><font face="宋体" size="-1"> 转载自vb技巧库 </font></p>
</div>
</td>
</tr>
</center>
<tr>
<td width="100%" class="unnamed1">
<p align=right><a href="ba62.htm">（上一页）</a>---<a href="ba64.htm">（下一页）</a></p>
</td>
</tr>
<tr>
<td width="100%" class="unnamed1">
</div>
</td>
</tr>
<!--msnavigation--></tbody>
</table>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -