使用Windows的API函数DrawState可以轻松实现字体的三维效果。

请看下面的程序:

>>步骤1----建立新工程,在窗体上放置一个CommandButton按钮。

>>步骤2----编写如下代码:

 

Private Const DST_TEXT = &H1

Private Const DSS_DISABLED = &H20

Private Declare Function DrawState Lib "user32" Alias _

    "DrawStateA"(ByVal hDC As Long, ByVal hBrush As Long, _

    ByVal lpDrawStateProc As Long, ByVal lParam As String, _

    ByVal wParam As Long, ByVal n1 As Long, ByVal n2 As _

    Long, ByVal n3 As Long, ByVal n4 As Long, ByVal un As _

    Long) As Long

 

Private Sub Command1_Click()

    Dim FontStr As String

 

    Me.AutoRedraw = True

    FontStr = "本站网址:Majifeng.Top263.net"

    FontSize = 25

    DrawState Me.hDC, 0, 0, FontStr, LenB(StrConv(FontStr, _

        vbFromUnicode)), 10, 80, 0, 0, DST_TEXT Or DSS_DISABLED

    Me.Refresh

End Sub

 

>>步骤3----编译运行,看到效果了吗?