| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2807 人关注过本帖
标题:我写的一灌水工具!
只看楼主 加入收藏
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
收藏
得分:0 
实现原理: 在程序中有一个隐藏的图片框控件,称为"文字打印区"。当用户要求输出图形后,程序在文字打印区打印了用户设定的字(如"顶")。然后,有规律地获得文字打印区中的每一像素的颜色(这个过程用图片框控件的 Point 方法实现),如果是黑色,则在文字输出区的相应位置打印用户设定的"组合字"(例如设定"好",则输出的是一个由若干个"好"字组成的"顶"字)。程序大约的核心代码是:

'picBuffer 即"文字打印区", txtText 即"文字输出区"

Dim i As Integer, j As Integer
Dim strWord As String * 1, strTemp As String
Dim bIsLineEmpty As Boolean

strWord = txtWord.Text

picBuffer.Cls
picBuffer.ScaleLeft = 0
picBuffer.ScaleTop = 0
picBuffer.Print txtWord.Text
txtWord.Enabled = False
txtFill.Enabled = False
txtText.Text = ""
lblStatus.Caption = "正在生成图形......"
For i = 1 To picBuffer.TextHeight("I") - 20 Step 45 '这里设定每隔 45 个缇(VB 通用长度单位)检查一列中的像素点
bIsLineEmpty = True
For j = 1 To picBuffer.TextWidth(txtWord.Text) - 20 Step 25 '设定每隔 25 个缇检查一行中的像素点
txtText.SelStart = Len(txtText.Text)
If picBuffer.Point(j, i) = vbBlack Then '如果获得的像素是黑色
strTemp = strTemp & txtFill.Text '在相应地方显示一个组合字
bIsLineEmpty = False
Else
strTemp = strTemp & " " '如果是白色,则插入一个空格
End If
Next j

If (bIsLineEmpty = True) And (chkOptions(0).Value = vbChecked) Then
strTemp = ""
Else
strTemp = strTemp & vbCrLf
End If

txtText.SelText = strTemp
strTemp = ""
Next i
2005-11-12 10:43
freeforever
Rank: 4
等 级:业余侠客
威 望:3
帖 子:368
专家分:201
注 册:2005-11-2
收藏
得分:0 



顶顶顶顶
顶顶顶顶顶顶 顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶 顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶 顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶 顶顶顶顶顶
顶顶顶顶顶 顶顶顶 顶顶顶顶顶
顶顶顶顶顶 顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶 顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶 顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶 顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶 顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶 顶顶 顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶 顶顶 顶顶顶顶顶顶 顶顶顶顶顶
顶顶顶顶顶顶 顶顶顶顶顶顶顶顶 顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶 顶顶顶顶顶顶顶
顶顶顶顶顶顶 顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶 顶顶顶 顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶 顶顶顶顶 顶顶顶顶顶顶顶
顶顶顶顶顶 顶顶顶顶 顶顶顶顶顶顶 顶顶顶顶
顶 顶顶顶顶 顶顶顶顶顶顶顶顶顶顶
顶顶 顶顶顶 顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶 顶 顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶 顶顶顶顶
顶顶顶顶 顶顶顶顶顶顶 顶顶顶
顶顶顶顶 顶顶顶顶顶 顶顶
顶顶顶 顶顶
顶顶

楼主强贴,大力支持!!!


其实我也很无聊!
2005-11-12 11:54
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
收藏
得分:0 

好好好好好好好好好
好好好好好好好好好好好好好好好好好好
好好好好好好好好好好好好好好好好好好好
好好好好好好好好好好好好
好好好好 好好好好
好好好好好好好好好好好好好好好 好好好好好
好好好好好好好好好好好好好好好好好 好好好好
好好好好好好好好好好好好好好好好 好好好好 好
好好好好好 好好好 好好好好好好好好好好
好好好好 好好好 好好好好好好好好好好好好好好好好好好好好好好
好好好好 好好好好好好好好好 好好好好好好
好好好好 好好好 好好好好好
好好好好 好好好 好好 好好好好
好好好 好好好 好好好好好 好好好
好好好 好好好 好好好好好 好好好
好好好 好好好 好好好好 好好好
好好好 好好好 好好好好 好好好
好好好 好好好 好好好好 好好好
好好好 好好好好 好好好好 好好好好
好好好 好好好好 好好好好 好好好好
好好好好 好好好好 好好好好 好好好好
好好好好 好好好 好好好 好好好好
好好好好 好好 好好好好 好好
好好好好好好好好好好好 好好 好好好好 好
好好好好好好好好好 好好好好好 好好好好好
好好好好好好好 好好好好 好好好好好好好
好好好好 好好好好好 好好好好好好好好
好好好 好好好好 好好好好好好好好
好好好好好 好好好好好好好
好好好好好好 好好好好好好
好好好好好 好好好好
好好好好 好

我也来。

2005-11-12 12:08
纷飞
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2005-11-16
收藏
得分:0 
好啊好
啊好 啊好啊好啊
好啊 好啊好啊好啊好啊
好啊 好 啊好啊
好啊 好啊
好啊 好啊好 啊好啊
好啊好啊好 啊好啊好啊好啊
好啊好啊好啊好啊好 啊好啊好啊好啊好啊好啊
好啊好啊好啊 好啊好啊好啊 好啊
好 啊好 啊好 啊好啊好啊好
啊好 啊 好啊好啊好
啊好啊 好啊好啊好啊好啊好啊好啊好
啊好啊好啊好 啊 好 啊好 啊好
啊好 啊好 啊好啊好 啊好
啊好 啊好 啊 好 啊好啊好啊好
啊好啊好啊 好 啊好啊好啊好啊好
啊好啊 好 啊 好啊 好啊
好 啊 好啊好啊 好啊
好 啊好 啊好
啊 好啊
好啊 好啊
好啊 好啊
好啊 好啊好啊
好啊 好啊好
啊好
啊好啊好 啊好
啊好啊 好啊
好啊好啊好 啊好
啊好啊 好啊 好啊
好啊 好 啊好啊好啊
好啊好
啊好
2005-11-16 18:31
wstcl
Rank: 1
等 级:新手上路
帖 子:381
专家分:5
注 册:2005-8-17
收藏
得分:0 

真强啊


Love Baby
2005-11-16 21:54
快速回复:我写的一灌水工具!
数据加载中...
 
   



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

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