VB一个漂亮的渐变时钟

'在窗体画一个Picture1和一个Timer1，属性为默认，加入以下代码：
Option Explicit
'渐变的时钟
Private Sub DrawText(Dx As Object, Txt As String, BRed As Long, BGreen As Long, BBlue As Long, ERed As Long, EGreen As Long, EBlue As Long, Optional Nx As Double = 0)
Static L(3) As Integer, Wx As Long, WordColor As Long, I As Integer
Dx.AutoRedraw = True
Dx.Cls
Wx = Nx
For I = 1 To Len(Txt)
DoEvents
WordColor = RGB(BRed + IIf(BRed >= ERed, -1, 1) * Abs(BRed - ERed) * I / Len(Txt), BGreen + IIf(BGreen >= EGreen, -1, 1) * Abs(BGreen - EGreen) * I / Len(Txt), BBlue + IIf(BBlue >= EBlue, -1, 1) * Abs(BBlue - EBlue) * I / Len(Txt))
If I > 1 Then
L(0) = Dx.TextWidth(Mid(Txt, I - 1, 1))
L(1) = Dx.TextWidth(Mid(Txt, I, 1))
L(2) = IIf(L(1) > L(0), 0, L(1))
L(3) = IIf(L(0) <> L(1), Dx.FontSize * 10, 0)
Wx = Wx + L(2) + L(3)
End If
Dx.ForeColor = WordColor
Dx.CurrentX = Wx
Dx.CurrentY = (Dx.ScaleHeight - Dx.TextHeight(Txt)) / 2
Dx.Print Mid(Txt, I, 1)
Next I
End Sub

Private Sub Form_Load()
Timer1.Interval = 100
Picture1.FontSize = 30
Picture1.FontBold = True
End Sub

Private Sub Timer1_Timer()
Call DrawText(Picture1, Time, 255, 0, 255, 0, 255, 0)
End Sub

VB一个漂亮的渐变时钟相关推荐

C#开发漂亮的数字时钟
今天用C#做了一个漂亮的数字时钟.界面如下. 实现技术:主要是通过Graphics类的DrawImage方法来绘制数字时钟中所有的数字,这些数字是从网上找的一些图片文件.时钟使用DateTime中No ...
html中各种js效果图,HTML+CSS+JS制作一个漂亮的橙子动态时钟
HTML+CSS+JS制作一个漂亮的橙子动态时钟 1. 效果图: 2. 背景产生: 利用四块与圆同高的矩形转一定的角度将圆切分成八块形成橙子内里,利用径向渐变形成橙皮. background: rad ...
java写七彩文字_【PS精选案例教程】创建一个漂亮的七彩文字
原标题:[PS精选案例教程]创建一个漂亮的七彩文字效果图: 步骤1. 新建一个文档(大小随意) 步骤2. 滤镜→渲染→云彩步骤3. 可以按Ctrl+Alt+F增加效果步骤4. Ctrl+J复制一 ...
PS经典教程：从零开始设计一个漂亮的网页
你是否曾经想过设计一个漂亮的网页,但是却不知道怎样入手?说实话,几年前我也是这样.当我浏览网页的时候我看到这么多好看的网页,我就希望自己有技术创作这样的设计作品. 今天我可以这么做了,而且我将教你怎么 ...
从零开始设计一个漂亮的网页（译）
译者:Joe 译文来源:http://xiebiji.com/2009/09/design_a_beautiful_website/ 原文来自:Design a Beautiful Website F ...
制作导航栏并使用CSS美化,CSS3样式创建一个漂亮简洁的导航栏
本教程旨在教大家结合CSS3样式创建一个漂亮,简洁的导航栏.而在过去,我们只能借助图片,JavaScript和div层进行创作. 注意:下面所有的示例都是在Mozilla Firefox,Safari ...
HTML制作色带,PS简单制作一个漂亮的混合色带gif动画效果
今天为大家介绍PS简单制作一个漂亮的混合色带gif动画效果方法,方法很简单的,教程介绍的很详细,好了,下面我们来看看吧! 先来看看案例的最终效果: 混合颜色带是一种特殊的高级蒙版,它可以快速隐藏像素. ...
绘制一个漂亮的弧形 View
绘制一个漂亮的弧形 View 来,先看下效果图: 怎么样?漂亮吧,上面是一个标题栏,下面是一个弧形的 View,标题栏和弧形 View 从左到右都有一个线性的渐变色,类似于手机 QQ 顶部的渐变效果, ...
ai怎么做盒子效果图_AI制作一个漂亮的3D立体质感标志
这篇教程教脚本之家的朋友们用AI制作一个漂亮的3D立体质感标志方法,教程绘制的效果图很漂亮绘制的难度中等,教程中同时还是用PS做了简单的处理.转发过来和脚本之家的AI爱好者们一起学习这个标志的绘制.希 ...
PS网页设计教程XXIV——从头设计一个漂亮的网站
作为编码者,美工基础是偏弱的.我们可以参考一些成熟的网页PS教程,提高自身的设计能力.套用一句话,"熟读唐诗三百首,不会作诗也会吟". 本系列的教程来源于网上的PS教程,都是国外的 ...

VB一个漂亮的渐变时钟

VB一个漂亮的渐变时钟相关推荐

最新文章

热门文章