Visual Basic_美化你的文字

作者：黑客防线网安VB教程基地来源：黑客防线网安VB教程基地浏览次数：0

本篇关键词：文字美化 Long ByVal

　　想玩点文字横向拉宽的特效吗？很简单，你不需要去计算什么 Width + 1 之类的象素值，只需调用一个 API 函数，就可以搞定！她就是——SetTextCharacterExtra()

　　这个函数的作用是改变字符串中各字符的间隔大小。想去开 API Viewer 了吗？且慢！API Viewer 中对此函数的声明有问题�。。≡趺锤愕模坎恢溃饰⑷砣グ伞�

　　API Viewer 的声明：Private Declare Function SetTextCharacterExtra Lib gdi32 Alias SetTextCharacterExtraA (ByVal hdc As Long, ByVal nCharExtra As Long) As Long

　　应该是：Private Declare Function SetTextCharacterExtra Lib gdi32 (ByVal hdc As Long, ByVal nCharExtra As Long) As Long

　　即：API Viewer 中多加了在 gdi32.dll 中的入口（SetTextCharacterExtraA），不信你试试，准说“入口函数找不到”。好了，知道了问题就好办了，你先准备一个 PictureBox 吧，我们就用它的 hDC。

Private I As Long

Private Sub Timer1_Timer()
　　Timer1.Interval = 100
　　With Picture1
　　　　.Cls
　　　　SetTextCharacterExtra .hdc, I
　　　　Picture1.Print Midnight
　　　　I = I + 1
　　　　If I >= 30 Then I = 1
　　End With
End Sub

　　当然，我这里用的是 Timer，你如果觉得 CPU 占用率太高的话，就自己改嘛，比如说加在一个循环中，用系统时钟的 Timer 值来控制间隔时间就行了。

　　最后，美化你的 PictureBox，改一个好看的字体、醒目的颜色，甚至在循环中改变颜色和字体大小、用 Step 值使它左右循环拉伸等等，随你怎么改！

　　怎么样？这个东东加到你的 About 窗体中去，一定很不错吧。我保证速度和资源消耗都要优于那种控制象素加减的方法。好了，今儿就说到这儿，俺去也！

黑客防线网安服务器维护方案本篇连接：http://shop.rongsen.com.cn/show-14662-1.html

网站维护教程更新时间:2012-04-03 01:12:04 【打印此页】【关闭】