用了10分钟做了个小玩意:字符画转换

前两天,想做个可以将文字转换为字符表示的工具,例如,将 A 转换成下面的样子

 

        6          
        6          
      6  6        
      6  6        
    6      6      
    6      6      
  6666666    
  6          6    
6              6  
6              6

 

网上找的工具感觉不太理想,大概想了下,原理很简单,于是就自己做一个,代码很简单

在窗体上放上两个textbox,一个command,一个picturebox,name使用默认的.

对text1,text2都设置多行文本,双滚动条,将text1的字体设置为fixday,不设置也行,不过这种字体显示起来比较好看
picture1设置autodraw=true,scalemode=3

代码如下:

 

Option Explicit Private Declare Function DrawText Lib "user32.dll" Alias "DrawTextW" (ByVal hdc As Long, ByVal lpStr As Long, ByVal nCount As Long, ByRef lpRect As RECT, ByVal wFormat As Long) As Long Private Const DT_CALCRECT As Long = &H400 Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Sub Command1_Click() Text1.text = ToText(Picture1, Text2.text, "6") End Sub Private Function ToText(pct As PictureBox, text$, tRe$) As String Dim i&, j& Dim sAll$, tStr$ Dim rc As RECT pct.Cls DrawText pct.hdc, StrPtr(text), -1, rc, DT_CALCRECT Debug.Print rc.Right, rc.Bottom pct.Print text For i = 0 To rc.Bottom tStr = "" For j = 0 To rc.Right If pct.Point(j, i) = 0 Then tStr = tStr & tRe Else tStr = tStr & " " End If Next j sAll = sAll & vbNewLine & tStr Next i ToText = sAll End Function Private Sub Form_Load() Text2.text = "哈哈" & vbNewLine & "HELLO" End Sub

 

程序运行后,点按钮就能看到效果了