VB里面如何输入空心文字 - 编程论坛

#2

风吹过b2017-09-16 23:00

下午测试了一个取巧的方案，结论是失败的。

方法如下：
1、设置字体为加粗，
2、以目标颜色输出一个汉字。
3、设置字体为非加粗，
4、以背景颜色输出同一个汉字。

对于小字号来说，这个操作看不出效果。
对于大字号来说，缺陷是因为加粗只是宽方向加粗，高方向没有加粗
这种得到的是空心字，但最最下方的横方向的会被覆盖掉。

要求同坐标输出，一个字符一个字符的输出。
一个字符串，可以显示一个字符后，然后保存当前坐标。然后在前一个坐标上输出前一个字符的背景部分。

测试代码属失败方案，所以没保存。

[此贴子已经被作者于2017-9-16 23:02编辑过]

#3

ZHRXJR2017-09-17 05:02

下载一个华文彩云字体，这个字体就是空心文字，与他字体一样，可以在VB中使用。

只有本站会员才能查看附件，请登录

当然还有其他的彩云字体，也可以实现空心文字。

[此贴子已经被作者于2017-9-17 05:05编辑过]

#4

xiangyue05102017-09-17 12:53

同意三楼的，用特定字体

#5

mclhr19962017-09-18 13:21

2楼的办法很好的，
Picture1.FontSize = 80
Picture1.FontBold = True
Picture1.Print "你好"

Picture1.CurrentX = 0
Picture1.CurrentY = 0

Picture1.ForeColor = vbWhite
Picture1.FontBold = False
Picture1.Print "你好"

#6

风吹过b2017-09-18 17:36

程序代码：

Private Sub Command1_Click()

Picture1.Cls
Picture1.FontSize = 128
VKF Picture1, "中国人民大学"
Picture1.Print
VKF Picture1, "中国人民大学"

End Sub

Public Sub VKF(Pobj As PictureBox, S As String)

Dim oX As Integer, oY As Integer
Dim nX As Integer, nY As Integer
Dim QC As Long, BC As Long

Dim s1 As String, i As Long

For i = 1 To Len(S)
    oX = Pobj.CurrentX
    oY = Pobj.CurrentY

    QC = Pobj.ForeColor
    BC = Pobj.BackColor

    Pobj.FontBold = True
    Pobj.Print Mid(S, i, 1);

    nX = Pobj.CurrentX
    nY = Pobj.CurrentY

    Pobj.CurrentX = oX
    Pobj.CurrentY = oY

    Pobj.ForeColor = BC
    Pobj.FontBold = False
    Pobj.Print Mid(S, i, 1)

    Pobj.CurrentX = nX
    Pobj.CurrentY = nY
    Pobj.ForeColor = QC

Next i

End Sub

#7

lianyicq2017-09-21 09:39

想了个办法。
第1步将文字转变为二值图像点阵，设有效像素点为VBBLACK，背景为VBWHITE；
第2步在目标图片框中按规则逐点判断是否写点；
规则，点阵中该点若为VBBLACK，不写，相邻8个点只要有VBBLACK的点就写。
不加优化，直接实现的代码太简单了。自己试，改动这些规则还能实现其它效果。

只有本站会员才能查看附件，请登录