灌水“顶” 如何生成的文本啊？

[orsharp]

水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水
水水水水水水水水水水水水水水水水水水水水水水水水灌灌灌灌灌灌灌灌灌水水水水
水水水水水水水水水水水水水水水水水水灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌水水水水
水水水水水水水水水水水水水水水灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌水水水水
水水水水水水水水水水水灌灌灌灌水灌灌灌灌灌灌灌灌灌灌灌水水水水水水水水水水
水水水水水水水水灌灌灌灌灌灌灌水灌灌灌水水灌灌灌灌灌水水水水水水水水水水水
水水水灌灌灌灌灌灌灌灌灌灌灌灌水水水水水水灌灌灌灌水水水水水水水水水水水水
水灌灌灌灌灌灌灌灌灌灌灌灌灌灌水水水水水水灌灌灌灌水水水水水水水水水水水水
水灌灌灌灌灌灌灌灌灌灌灌灌水水水水水水水灌灌灌灌灌灌灌灌灌灌灌水水水水水水
水灌灌灌灌灌灌灌灌灌灌灌灌水水水水水水灌灌灌灌灌灌灌灌灌灌灌灌灌灌水水水水
水水灌灌灌灌灌灌灌灌灌灌水水水水水灌灌灌灌灌灌水水水灌灌灌灌灌灌灌水水水水
水水水水水水水水灌灌灌灌水水水水水灌灌灌灌水水水水水水灌灌灌灌灌水水水水水
水水水水水水水水灌灌灌灌水水水水灌灌灌灌水水灌灌水水水灌灌灌灌灌水水水水水
水水水水水水水水灌灌灌灌水水水水灌灌灌灌水水灌灌灌水水灌灌灌灌灌水水水水水
水水水水水水水水灌灌灌灌水水水水灌灌灌灌水水灌灌灌水水灌灌灌灌灌水水水水水
水水水水水水水水灌灌灌灌水水水水灌灌灌灌水灌灌灌灌水水灌灌灌灌灌水水水水水
水水水水水水水水灌灌灌灌水水水水灌灌灌灌水灌灌灌灌水水灌灌灌灌灌水水水水水
水水水水水水水水灌灌灌灌水水水水灌灌灌灌水灌灌灌灌水水灌灌灌灌灌水水水水水
水水水水水水水水灌灌灌灌水水水水灌灌灌灌水灌灌灌灌水水灌灌灌灌灌水水水水水
水水水水水水水水灌灌灌灌水水水水灌灌灌水水灌灌灌灌水水灌灌灌灌灌水水水水水
水水灌灌水水水灌灌灌灌灌水水水水灌灌灌水水灌灌灌水水水灌灌灌灌灌水水水水水
水水灌灌灌灌灌灌灌灌灌灌水水水水水灌灌水水灌灌水水水水灌灌灌灌灌水水水水水
水水水灌灌灌灌灌灌灌灌灌水水水水水水水水灌灌灌水水水水灌灌灌灌水水水水水水
水水水水水灌灌灌灌灌灌灌水水水水水水水水灌灌灌水水水灌灌灌灌水水水水水水水
水水水水水水灌灌灌灌灌灌水水水水水水水灌灌灌灌水水灌灌灌灌灌水水水水水水水
水水水水水水水水水灌灌灌水水水水水水灌灌灌灌灌水水水灌灌灌灌灌灌灌水水水水
水水水水水水水水水水水水水水水水灌灌灌灌灌灌水水水水水灌灌灌灌灌灌水水水水
水水水水水水水水水水水水水水水灌灌灌灌灌灌水水水水水水灌灌灌灌灌灌灌水水水
水水水水水水水水水水水水水水灌灌灌灌灌水水水水水水水水水灌灌灌灌灌灌水水水
水水水水水水水水水水水水水灌灌灌灌灌水水水水水水水水水水水灌灌灌灌水水水水
水水水水水水水水水水水水灌灌灌水水水水水水水水水水水水水水水灌灌灌水水水水


'就是这样的，呵呵 给个思路吧

[hjker007]

读取字库文件，用该字的点阵转换为二维数组形式，1的用灌表示，0的用水表示，输出二维数组就行了。

[mbmseason]

不用读字库的。
只要在一个窗体上用TextOut或其它的方法写上"顶"字，就能够通过读象素的方式得到“顶”字的点阵了。

[sss2002]

MARK

[shenx33]

zdingyun:你的这个字号要到300才很清晰，能不能让它字号小的时候也清晰些啊？

[zdingyun]

字号改为26：
Option Explicit
Dim x, y, i, j As Integer
Dim txt As String
Dim fnt As Integer
Dim dd As String
Dim str(90, 90) As Long
Dim str1(90, 90) As String * 1
Dim str11(90) As String
Dim red As Integer
Dim green As Integer
Dim blue As Integer
Dim c As Long
Dim graycolor As Long
Dim x0 As Integer
Dim y0 As Integer
Dim dw As Integer
Dim txt1 As String
Public Function prnt(x As Variant, y As Variant, fnt As Variant, txt As Variant)
Picture1.CurrentX = x
Picture1.CurrentY = y
Picture1.FontSize = fnt
Picture1.Print txt
End Function

Private Sub Command1_Click()
x = 20: y = 20
txt = "灌"
fnt = 26
dd = prnt(x, y, fnt, txt)
For x0 = 0 To Picture1.Width - 70 Step 15
For y0 = 0 To Picture1.Height - 70 Step 15
c = Picture1.Point(x0, y0)
red = (c And &HFF)
green = (c And 62580) / 256
blue = (c And &HFF00) / 65536
graycolor = (red + green + blue) / 3
dw = graycolor
Text2 = x0 \ 15 & " " & y0 \ 15
Text1 = dw
If dw = 192 Then
str1(x0 \ 15, y0 \ 15) = "水"
Else
str1(x0 \ 15, y0 \ 15) = "灌"
End If
DoEvents
Next
Next
For i = 1 To Picture1.Width \ 15
For j = 1 To Picture1.Height \ 15
str11(i) = str11(i) + str1(j, i)
Next
Next
For i = 1 To Picture1.Height \ 15
Print str11(i)
Next
For i = 1 To Picture1.Height \ 15
txt1 = txt1 & str11(i) & Chr(13) & Chr(10)
'Text1 = Text1 & str11(i) & Chr(13) & Chr(10)
Next
Open "C:\shiyan.txt" For Output As #1
Print #1, txt1
Close
End Sub

Private Sub Form_Load()
Picture1.Height = 600
Picture1.Width = 600
End Sub

[zdingyun]

字号26效果：

水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水
水水水水水水水水水水水水水水水水灌水水水水水水灌水水水水水水水水水水水
水水水水水水水水水水水水水水水水灌灌灌水水水水灌灌灌水水水水水水水水水
水水水水灌水水水水水水水水水水水水灌水水水水水灌灌水水水水水水水水水水
水水水水水灌灌水水水水水水水水水水灌水水水水水水灌水水水水水灌水水水水
水水水水水水灌灌水水灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌水水水
水水水水水水水灌灌水水水水水水水水灌水水水水水水灌水水水水水水水水水水
水水水水水水水灌灌水水水水水水水水灌水水水水水水灌水水水水水水水水水水
水水水水水水水灌水水水水水水水水灌水水水水水水灌水水水水水水水水水水水
水水水水水水水水水水灌水灌灌灌灌灌灌灌灌水水灌灌灌灌灌灌灌灌水水水水水
水水水水水水水水水灌水水灌灌水水水水灌灌水水灌灌水水水水灌灌水水水水水
水水灌灌水水水水水灌水水灌灌水水水水灌灌水水灌灌水水水水灌灌水水水水水
水水水灌灌水水水水灌水水灌灌水水水水灌灌水水灌灌水水水水灌灌水水水水水
水水水水灌灌水水水灌水水灌灌灌灌灌灌灌灌水水灌灌灌灌灌灌灌灌水水水水水
水水水水灌灌灌水灌水水水灌灌水灌水水灌灌水水灌灌水水水水灌灌水水水水水
水水水水水灌灌水灌水水水灌水水灌灌水水水灌灌水水水水水水水水水水水水水
水水水水水灌水水灌水水水水水水灌灌水水水水灌灌水水水水水水水水水水水水
水水水水水水水灌水水水水水水灌灌水水水水水灌灌水水水水水水水灌水水水水
水水水水水水水灌水水水水水灌灌水水水水水水灌水水水水水水水灌灌灌水水水
水水水水水水水灌水水水水灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌水水水水水水
水水水水水水灌灌水水水水灌灌灌水水水水水水灌灌水水水水水水水水水水水水
水水水水水水灌水水水水灌水灌灌水水水水水水灌灌水水水水水水水水水水水水
水水水水水水灌水水水灌水水灌灌水水水水水水灌灌水水水水水灌灌水水水水水
水水水水水灌灌水水灌水水水灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌水水水水水水水
水水水灌灌灌灌水灌水水水水灌灌水水水水水水灌灌水水水水水水水水水水水水
水水水水灌灌灌水水水水水水灌灌水水水水水水灌灌水水水水水水水水水水水水
水水水水水灌灌水水水水水水灌灌水水水水水水灌灌水水水水水灌灌水水水水水
水水水水水灌水水水水水水水灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌水水水水水水水
水水水水灌灌灌水水水水水水灌灌水水水水水水灌灌水水水水水水水水水水水水
水水水水灌灌灌水水水水水水灌灌水水水水水水灌灌水水水水水水水灌水水水水
水水水水灌灌灌水水水水水水灌灌水水水水水水灌灌水水水水水水灌灌灌水水水
水水水水灌灌灌水水水水水水灌灌灌灌灌灌灌灌水水灌灌灌灌灌灌水水水水水水
水水水水水灌水水水水水水水灌灌水水水水水水水水水水水水水水水水水水水水
水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水
水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水

[colorslife]

世事洞明皆学问,人情练达即文章,哈哈

[IamDeane]

http://post.baidu.com/f?kz=186866541

[zdingyun]

Option Explicit
Dim x, y, i, j As Integer
Dim txt As String
Dim fnt As Integer
Dim dd As String
Dim str(50, 50) As Long
Dim str1(50, 50) As String * 1
Dim str11(50) As String
Dim red As Integer
Dim green As Integer
Dim blue As Integer
Dim c As Long
Dim graycolor As Long
Dim x0 As Integer
Dim y0 As Integer
Dim dw As Integer
Dim txt1 As String

Public Function prnt(x As Variant, y As Variant, fnt As Variant, txt As Variant)
Picture1.CurrentX = x
Picture1.CurrentY = y
Picture1.FontSize = fnt
Picture1.Print txt
End Function

Private Sub Command1_Click()
x = 0: y = 0
txt = "灌"
fnt = 300
dd = prnt(x, y, fnt, txt)
'转换
For x0 = 0 To Picture1.Width - 50 Step 140
For y0 = 0 To Picture1.Height - 50 Step 140
c = Picture1.Point(x0 + 50, y0 + 50)
red = (c And &HFF)
green = (c And 62580) / 256
blue = (c And &HFF00) / 65536
graycolor = (red + green + blue) / 3
dw = graycolor
If dw = 192 Then
str1((x0 + 50) / 140, (y0 + 50) / 140) = "水"
Else
str1((x0 + 50) / 140, (y0 + 50) / 140) = "灌"
End If
DoEvents
Next
Next
For i = 1 To Picture1.Width \ 140
For j = 1 To Picture1.Height \ 140
str11(i) = str11(i) + str1(j, i)
Next
Next
For i = 1 To Picture1.Height \ 140
Print str11(i)
Next
For i = 1 To Picture1.Height \ 140
txt1 = txt1 & str11(i) & Chr(13) & Chr(10)
Text1 = Text1 & str11(i) & Chr(13) & Chr(10)

Next
Open "C:\shiyan.txt" For Output As #1
Print #1, txt1
Close
End Sub

Private Sub Command2_Click()
Text1.Visible = True
End Sub

Private Sub Form_Load()
Picture1.Height = 6735
Picture1.Width = 5895
Text1 = ""
End Sub

[orsharp]

测试了,怎么全是 灌...

[zdingyun]

If dw = 192 Then
str1(x0 \ 15, y0 \ 15) = "水"
Else
str1(x0 \ 15, y0 \ 15) = "灌"
End If

请注意dw = 192是VB6.0在WIN98下的缺省色的RGB平均值.
在WINXP及VB6.0下请改为:

If dw = 226 Then
str1(x0 \ 15, y0 \ 15) = "水"
Else
str1(x0 \ 15, y0 \ 15) = "灌"
End If