实现原理: 在程序中有一个隐藏的图片框控件，称为"文字打印区"。当用户要求输出图形后，程序在文字打印区打印了用户设定的字(如"顶")。然后，有规律地获得文字打印区中的每一像素的颜色(这个过程用图片框控件的 Point 方法实现)，如果是黑色，则在文字输出区的相应位置打印用户设定的"组合字"(例如设定"好"，则输出的是一个由若干个"好"字组成的"顶"字)。程序大约的核心代码是:
'picBuffer 即"文字打印区", txtText 即"文字输出区"
Dim i As Integer, j As Integer
Dim strWord As String * 1, strTemp As String
Dim bIsLineEmpty As Boolean
strWord = txtWord.Text
picBuffer.Cls
picBuffer.ScaleLeft = 0
picBuffer.ScaleTop = 0
picBuffer.Print txtWord.Text
txtWord.Enabled = False
txtFill.Enabled = False
txtText.Text = ""
lblStatus.Caption = "正在生成图形......"
For i = 1 To picBuffer.TextHeight("I") - 20 Step 45 '这里设定每隔 45 个缇(VB 通用长度单位)检查一列中的像素点
bIsLineEmpty = True
For j = 1 To picBuffer.TextWidth(txtWord.Text) - 20 Step 25 '设定每隔 25 个缇检查一行中的像素点
txtText.SelStart = Len(txtText.Text)
If picBuffer.Point(j, i) = vbBlack Then '如果获得的像素是黑色
strTemp = strTemp & txtFill.Text '在相应地方显示一个组合字
bIsLineEmpty = False
Else
strTemp = strTemp & " " '如果是白色，则插入一个空格
End If
Next j
If (bIsLineEmpty = True) And (chkOptions(0).Value = vbChecked) Then
strTemp = ""
Else
strTemp = strTemp & vbCrLf
End If
txtText.SelText = strTemp
strTemp = ""
Next i
'picBuffer 即"文字打印区", txtText 即"文字输出区"
Dim i As Integer, j As Integer
Dim strWord As String * 1, strTemp As String
Dim bIsLineEmpty As Boolean
strWord = txtWord.Text
picBuffer.Cls
picBuffer.ScaleLeft = 0
picBuffer.ScaleTop = 0
picBuffer.Print txtWord.Text
txtWord.Enabled = False
txtFill.Enabled = False
txtText.Text = ""
lblStatus.Caption = "正在生成图形......"
For i = 1 To picBuffer.TextHeight("I") - 20 Step 45 '这里设定每隔 45 个缇(VB 通用长度单位)检查一列中的像素点
bIsLineEmpty = True
For j = 1 To picBuffer.TextWidth(txtWord.Text) - 20 Step 25 '设定每隔 25 个缇检查一行中的像素点
txtText.SelStart = Len(txtText.Text)
If picBuffer.Point(j, i) = vbBlack Then '如果获得的像素是黑色
strTemp = strTemp & txtFill.Text '在相应地方显示一个组合字
bIsLineEmpty = False
Else
strTemp = strTemp & " " '如果是白色，则插入一个空格
End If
Next j
If (bIsLineEmpty = True) And (chkOptions(0).Value = vbChecked) Then
strTemp = ""
Else
strTemp = strTemp & vbCrLf
End If
txtText.SelText = strTemp
strTemp = ""
Next i
