|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：范明之 日期：2005-8-4 12:02:16 |
|
|
用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。 |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 范明之 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 12:02:16 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]