Delphi代码换成VB代码 急急
type SFPRDA=packed record
czmm:Word; //操作密码。
sqcz:array[1..8] of packed record dm:Byte; mm:Word end;
//8个授权操作员代码和密码。dm代码，mm密码。
sdje:array[0..3] of packed record dz,jz:Word end;
//4个时段的默认定值和记帐金额。dz定值，jz记帐。
open_xffs:Byte; //开机缺省消费方式。0普通，1定值，2记帐。
open_menu:Byte; //开机缺省键盘方式。0金额，1品种。
open_online:Byte; //开机缺省运行方式。0脱机，1联机。
ena_jz:Byte; //1允许记帐，0不允许。
ena_mu:Byte; //1允许品种切换，0不允许。
ena_zk:Byte; //1允许外部折扣，0不允许。
ena_qk:Byte; //1允许取款，0不允许。
ena_glf:Byte; //1允许输入管理费，0不允许。
ena_cont:Byte; //1定值记帐连续刷卡方式，0不连续。
ena_ord:Byte; //1扣款消费显示序数，0不显示。
btph,syrq:Word; //btph补贴批号。syrq同步日期。
xfjb:Byte; //允许消费级别。8位从低到高依此表示是否允许级别0到8的卡消费。
//1允许，0禁止。
max_xf:Word; //每次最大消费金额。0不限制。
max_cz:Integer; //每次最大充值金额。0不限制。 <
相关问答：
我有厂家做的ASP的监控录像（DVR）的局域网播放的源程序与控件，想要用ASP.net做一个视频回放的程序（利用他的控件）但不知如下去做，望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......
Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4
'初始坐标
x = 1
y = 4
'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
大家好，问个vb打印问题
printer.print "dsff"
.....
....
Printer.EndDoc
打印成功后我将执行
sqlstr = "update vc_yh set pr=' 已打印 ', ......
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
