这个。。。exe就不放了





在这个程序中，我使用了GDI+，imports system.drawing类

通过循环扫描出时间应该打在哪里（用户名后N个像素）

使用了GDI+中drawstring函数


首先引用GDI+
Imports System.Drawing.Drawing2D

创建graphics对象
Dim g as Graphics=PictureBox1.CreateGraphics

创建用于绘制文字的Brush对象

Dim mBrush As New SolidBrush(Color.Blue)

建一个宋体，9码的字体对象：

Dim mFont As New Font("宋体", 9)

最后drawstring
g.DrawString("我日飞你", mFont, mBrush, 0, 10)

下面是扫描

dim i,j as long
dim a as bitmap
a=picturebox1.image

for i = 1 to 200
for j = 1 to 50
dim tmp as long
tmp=a.getpixel(i,j).toargb+16777215
if tmp < 16777213 then
return i
endif
next
next

由于GDI+操作以后bitmap没有被更新，第二次制造的时候会造成叠加

所以我创建了新建按钮
其实就是
picturebox1.load(文件名)

这样就可以制造一幅新的图片

但是
如果用户名与时间没有对准，就会很囧

所以，我们使用Alignment和LineAlignmen 属性，其中Alignmen 属性指定每行文本在矩形中水平位置，LineAlignment属性指定文本块在矩形中垂直位置

创建字符格式化对象

Dim mStringFormat As New StringFormat

mStringFormat.Alignment = StringAlignment.Center

mStringFormat.LineAlignment = StringAlignment.Center

绘制文本可以这样
g.DrawString(mText, mFont, mBrush, RectangleF.op_Implicit(Rect), mStringFormat)

于是文本就被对齐了