美化你的文字

<script type="text/javascript"><!-- google_ad_client = "pub-2947489232296736"; /* 728x15, 创建于 08-4-23MSDN */ google_ad_slot = "3624277373"; google_ad_width = 728; google_ad_height = 15; //--> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript"><!-- google_ad_client = "pub-2947489232296736"; /* 160x600, 创建于 08-4-23MSDN */ google_ad_slot = "4367022601"; google_ad_width = 160; google_ad_height = 600; //--> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

  想玩点文字横向拉宽的特效吗?很简单,你不需要去计算什么 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 窗体中去,一定很不错吧。我保证速度和资源消耗都要优于那种控制象素加减的方法。好了,今儿就说到这儿,俺去也!  <script type="text/javascript"><!-- google_ad_client = "pub-2947489232296736"; /* 728x15, 创建于 08-4-23MSDN */ google_ad_slot = "3624277373"; google_ad_width = 728; google_ad_height = 15; //--> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript"><!-- google_ad_client = "pub-2947489232296736"; /* 160x600, 创建于 08-4-23MSDN */ google_ad_slot = "4367022601"; google_ad_width = 160; google_ad_height = 600; //--> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
阅读更多
个人分类: vb
想对作者说点什么? 我来说一句

可爱的QQ字体用于文字美化

2010年04月29日 918KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭