使用VB做一个条码生成器

1、打开VB，新建一个标准EXE。

2、到http://www.52image.com/downland.asp?id=4449下载IntHrP48DlTt.TTF（如果已有则不用下载）。

3、下载完后放置到C:\WINDOWS\Fonts文件夹中。

4、输入代码：

Private Sub Command1_Click()

Text1.Locked = True

End Sub

Private Sub Command2_Click()

Text1.Locked = False

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

5、完成。