【VB】字符表，可用于游戏绘制字符

0xAA55

用VB写的，通过调用TextOut来绘制每一个字符。这个字符表可用于游戏的字符纹理（当然它可能有点大了，但是比较全）。
每256个字符一行，共256行，每个字符都是12x12的（半角字符是6x12的，自己判断全角半角。）另外，各种阿拉伯文的尺寸未知。主要是照顾中日韩用户。
也许还不如用freetype开源库呢。

创建一个窗口然后添加一个PictureBox，要求：
AutoRedraw = True
BorderStyle = 0
ScaleMode = 3
BackColor = &H80000005&

1. 
   
2. Option Explicit
   
3. Private Declare Function TextOut Lib "gdi32" Alias "TextOutW" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, lpString As Any, ByVal nCount As Long) As Long
   
4. 
   
5. Private Sub Form_Load()
   
6. Show
   
7. picTable.Move 0, 0, 256 * 12, 256 * 12
   
8. Dim I&, X&, Y&
   
9. 
   
10. For Y = 0 To 255
    
11.     For X = 0 To 255
    
12.         TextOut picTable.hDC, X * 12, Y * 12, I, 2
    
13.         I = I + 1
    
14.     Next
    
15. Next
    
16. picTable.Refresh
    
17. SavePicture picTable.Image, "Font.bmp"
    
18. End Sub
    
19. 
    
20. Private Sub picTable_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
21. Static DrX!, DrY!
    
22. If Button And 1 Then
    
23.     picTable.Move picTable.Left + X - DrX, picTable.Top + Y - DrY
    
24. Else
    
25.     DrX = X
    
26.     DrY = Y
    
27. End If
    
28. End Sub

复制代码

生成的字符表如下：

BIN: 字符表.exe (20 KB, 下载次数: 6)

2015-7-21 12:17 上传

点击文件名下载附件

SRC: 字符表.7z (4.39 KB, 下载次数: 18)

2015-7-21 12:18 上传

点击文件名下载附件