回复 16楼 约定的童话
代码就是用的你发的代码..
--------------------------------------
rivate Sub Text1_Change()
If Len(Text1.Text) = 13 Then
With QRmaker1
.ModelNo = 2
'二维码模式
.EccLevel = H
'纠错等级
.CellPitch = 14
'二维码大小
.CellUnit = 203
.QuietZone = 0
.Rotate = D0
'图片角度
.InputData = Text1.Text
'二维码内容
.Refresh
'刷新
End With
Open "D:\条码记录\扫描记录.txt" For Append As #1
'Output新建,Append追加
t = Text1.Text & "
" & Now()
Print #1, t
Close #1
QRmaker1.CreateQrMetaFile hDC, "D:\条码记录\" + Text1.Text + "(" & Split(Now(), " ")(0) + ")" + ".jpg", 2
'记录保存
Image1.Picture = LoadPicture("D:\条码记录\" + Text1.Text + "(" & Split(Now(), " ")(0) + ")" + ".jpg", vbLPLarge, vbLPColor)
Form1.PrintForm
'打印
Text1.Text = ""
Image1.Picture = LoadPicture("")
End If
End Sub