考虑半天还是提问。关于读取汉字点阵。

shkliu 2006-01-13 03:53:46
目的,将输入到text中的汉字读成点阵数据。(我也知道有这样现成的软件)但不能直接用的:)
本来想读取点阵point,最后发现不能读text:)现在想把它转换成图片,然后读。不知道高人有没有其他的方法。
...全文
161 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
rainstormmaster 2006-01-16
  • 打赏
  • 举报
回复
参考:
http://www.588188.com/netbook/tech/VC/html/VC.Ohchina.843946VV.htm
guoguo1982 2006-01-14
  • 打赏
  • 举报
回复
看看!!
tmd007 2006-01-13
  • 打赏
  • 举报
回复
矢量字
jadeluo 2006-01-13
  • 打赏
  • 举报
回复
转成图片后读的一个例子:

Option Explicit

'运行本程序,需要在Form中放置以下控件:
'名为Picutre1的PictureBox控件
'名为Text1和Text2的TextBox控件
'名为Command1的CommandButton控件

Private Sub Command1_Click()
Picture1.ScaleMode = vbPixels
Picture1.Font.Name = "宋体"
Picture1.Font.Size = 9
Picture1.BackColor = vbWhite
Picture1.Cls
Picture1.Print Left(Text1.Text, 1)

Dim X As Integer, Y As Integer
Dim S As String

'注:要设置Text2.MultiLine = True
Text2.Text = ""
For Y = 0 To 15
S = ""
For X = 0 To 15
If Picture1.Point(X, Y) = 0 Then
S = S & "*"
Else
S = S & " "
End If
Next X
Text2.Text = Text2.Text & S & vbCrLf
Next Y
End Sub

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧