Dim om As Byte 'ff
Dim omm As Byte '07
Dim ommm As Byte '80
Dim ommmm As Byte '69
Dim ommmmm As Byte '105
dim j as integer//写在这(一看我不太常写VB)For j = 0 To 15
MfReader.CardControl.WriteTrailerT j, oData, oData, om, omm, ommm, ommmm, ommmmm
next
在定义的右边我写上要等于的数据(如om等于ff)
如何写
Dim omm As Byte '07
Dim ommm As Byte '80
Dim ommmm As Byte '69
Dim ommmmm As Byte '105
dim j as integer//写在这(一看我不太常写VB)For j = 0 To 15
MfReader.CardControl.WriteTrailerT j, oData, oData, om, omm, ommm, ommmm, ommmmm
next
在定义的右边我写上要等于的数据(如om等于ff)
如何写
om=255
omm=7
ommm=80
ommmm=69
ommmmm=105如果你的值是十六进制的就这样写
om=&HFF
omm=&H7
ommm=&H80
ommmm=&H69
'最后这个估计是十进制的,因为一个byte最大也就是&HFF
ommmmm=105