| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3018 人关注过本帖
标题:VB里面如何输入空心文字
只看楼主 加入收藏
huangjunxing
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2014-8-13
结帖率:50%
收藏
 问题点数:0 回复次数:6 
VB里面如何输入空心文字
VB里面如何输入空心文字
搜索更多相关主题的帖子: VB 输入 文字 
2017-09-16 16:12
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
下午测试了一个取巧的方案,结论是失败的。

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

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

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

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

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


授人于鱼,不如授人于渔
早已停用QQ了
2017-09-16 23:00
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:0 
下载一个华文彩云字体,这个字体就是空心文字,与他字体一样,可以在VB中使用。
图片附件: 游客没有浏览图片的权限,请 登录注册

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

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


请不要选我!!!
2017-09-17 05:02
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:0 
同意三楼的,用特定字体
2017-09-17 12:53
mclhr1996
Rank: 1
等 级:新手上路
帖 子:6
专家分:4
注 册:2017-9-17
收藏
得分:0 
2楼的办法很好的,
Picture1.FontSize = 80
Picture1.FontBold = True
Picture1.Print "你好"

Picture1.CurrentX = 0
Picture1.CurrentY = 0

Picture1.ForeColor = vbWhite
Picture1.FontBold = False
Picture1.Print "你好"
2017-09-18 13:21
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
程序代码:
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

授人于鱼,不如授人于渔
早已停用QQ了
2017-09-18 17:36
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:0 
想了个办法。
第1步 将文字转变为二值图像点阵,设有效像素点为VBBLACK,背景为VBWHITE;
第2步 在目标图片框中按规则逐点判断是否写点;
规则,点阵中该点若为VBBLACK,不写,相邻8个点只要有VBBLACK的点就写。
不加优化,直接实现的代码太简单了。自己试,改动这些规则还能实现其它效果。
图片附件: 游客没有浏览图片的权限,请 登录注册

大开眼界
2017-09-21 09:39
快速回复:VB里面如何输入空心文字
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.034388 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved