使用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 = TrueEnd SubPrivate Su芟鲠阻缒b Command2_Click()Text1.Locked = FalseEnd SubPrivate Sub Command3_Click()Unload MeEnd Sub

5、完成。