空心文字.frm

来自「Windows API函数,希望大伙有用哦」· FRM 代码 · 共 35 行

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H00E0E0E0&
   Caption         =   "Form1"
   ClientHeight    =   1245
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3660
   FillStyle       =   0  'Solid
   LinkTopic       =   "Form1"
   ScaleHeight     =   83
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   244
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function StrokePath Lib "gdi32" (ByVal hdc As Long) As Long
Private Sub Form_Paint()
    Me.FontName = "华文行楷"
    Me.FontSize = 40
    Me.ForeColor = RGB(255, 0, 0)
    BeginPath Me.hdc
    TextOut Me.hdc, 18, 18, "空心文字", 2 * Len("空心文字")
    EndPath Me.hdc
    StrokePath Me.hdc
End Sub