效果:文字隐现
来源:互联网 发布:java类库chm 百度云 编辑:程序博客网 时间:2024/04/29 04:25
前几天看到一个破解程序下面有一个框框,里面的文字淡入淡出,挺好看,闲来编个和大家分享。
首先,在窗体上放置Label1标签到适当位置,一个Timer1控件,Interval设为100。输入如下代码:
Dim a As Collection
Dim b As Boolean
Dim i As Integer
Private Sub Form_Load()
Set a = New Collection
a.Add "究极软件"
a.Add "版权没有"
a.Add "翻录不究"
a.Add "如无雷同"
a.Add "纯非巧合"
a.Add "谢谢欣赏"
b = True
End Sub
Private Sub Timer1_Timer()
If b Then
If Label1.ForeColor = 0 Then b = False: Exit Sub
Label1.ForeColor = Label1.ForeColor - &HF0A00
Else
If Label1.ForeColor > &HFF0000 Then b = True: Exit Sub
If Label1.ForeColor = 0 Then
i = i + 1
If i > a.Count Then i = 1
Label1.Caption = a(i)
End If
Label1.ForeColor = Label1.ForeColor + &HF0A00
End If
End Sub
其中的几个颜色和前面的文字大家可以自己调整,效果还不错~
最终通过环境:VB6+Win2000
- 效果:文字隐现
- 如何通过鼠标指向图片来隐现文字
- frameset实现隐现功能
- JS 字符慢慢隐现
- Web_JavaScript_头部隐现模块;
- 文字幻灯片交替效果
- 文字边框闪耀效果
- 页面文字滚动效果
- js文字幻灯效果
- 文字垂直居中效果
- 文字打印效果
- 文字向上滚动效果
- 文字环绕效果
- jQuery文字提示效果
- 鼠标文字跟随效果
- 文字滚动效果
- 文字阴影效果CSS
- android文字阴影效果
- 2003
- 编程也要看单位
- 小公司的出路
- 用LogExplorer恢复数据库过程
- SQL访问Access及Excel(转)
- 效果:文字隐现
- 将JAVA编译为EXE的几种方法(转)
- 运行中程序删除自己的方法(转)
- 在WebLogic中使用Hibernate
- 如何构建一个入门级入侵检测系统
- Eclipse Extract Method 方法实现 (一)
- 网页中的多媒体播放控制
- 多进程编程
- 一段把年按星期划分并上传到数据库的代码