立即下载扮靓你的vb

软件大小: 1.44 MB
软件语言: 简体中文
软件类别: 黑客教学 - 黑客动画
授权方式: 共享版
应用平台: Win9X/2000/XP/2003/
更新时间: 2008/8/18 12:35:26
开 发 商: 暂无信息
联 系 人: 暂无联系方式
分享收藏
更多
解压密码:本站默认解压密码:www.987654321sf.com 
推荐等级: 3星级
会员中心: 【账号登录】  【账号注册】  开通VIP下载流程
查毒情况: 尊敬的用户,本站软件个别杀毒安全软件可能会报毒,有可能是误报,但我们不能确定。请下载后自行判断和检测。点击查看详情

[复制下载页面地址给QQ/MSN上的好友]软件介绍

大家好我是   乄.葬花沉吟  今天我教大家 制作个性字体 当然这个还是关于vb的教程

下面我们打开vb  我们需要的是 两个label控件 三个timer控件  下面看操作
timer的位置可以随便你怎么放 在运行程序的时候和commandbutton的效果一样是不显示出来的

下面我们写进去代码


Dim Txt As String, n As Integer, k As Integer  '通用声明
Private Sub Form_Load()
    n = 0
    Txt = "爱你一万年!"
    k = Len(Txt)        ' K是字符串TXT的长度
End Sub
Private Sub Timer1_Timer()      'TIMER设置INTERVAL为250或者别的都可以
    n = n + 1
    If n <= k Then
        Label1.Caption = Left(Txt, n)
    Else
        n = 0
        Label1.Caption = ""
    End If
End Sub                        ' LABEL1中的字体是一个接一个出现并且闪烁
Private Sub Timer2_Timer()      '实现字体闪烁的代码
    a = 255 * Rnd
    b = 255 * Rnd
    c = 255 * Rnd
    Label1.ForeColor = RGB(a, b, c)
    Label2.ForeColor = RGB(b, c, a)
End Sub
Private Sub Timer3_Timer()          ' LABEL2中的字体是有节奏地出现和消失并且字体颜色闪烁变化
    If Label2.Caption = "我爱你!" Then
        Label2.Caption = ""

    Else
        Label2.Caption = "我爱你!"

    End If
End Sub


代码的解释已经打出来了 就不说了 大家自己看 我会打包滴

忘了!~~~~~~~~~~~~~~~~~- -#!  设置timer的属性 就是 我们统一设置成0.1秒 下面看看效果
准备把字体弄打点效果好点的 大家自己弄把 我不弄了

好了教程到这里 我的小站 http://mooer.5d6d.com
刚健成的 希望大家一起来交流。
谢谢收看

相关软件

评论区        查看评论...

相关说明

    关于本站 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图 - VIP登陆|注册
Copyright © 2007-2021 987654321SF.Com. All Rights Reserved .
本站私服服务端和架设教程由网友发布,仅作学习使用,严禁用于商业
如本站收录的资源侵犯到您的版权,请来信告知,我们将及时更正处理,邮箱:Mail91@QQ.COM
蜀ICP备2022016462号-4
点击与站长面对面交流!