我和sesame一样，不知如何用VB来编程呀，但我看VB只能得到PCDMIS的输入值，而不能输出到PCDMIS中啊（好象是这样，不知道对不对呀？？） Edited by - 大浪淘沙 on 2004/06/04 12:52:16

Thank you,I knew your means.Could you give a program by E-mail.

大浪淘沙: 我必须纠正6月3日的贴子因为昨天试了用VB但发现正如你所说"但我看VB只能得到PCDMIS的输入值，而不能输出到PCDMIS中啊（好象是这样，不知道对不对呀？？）".其实在HELP FILE中提到"From PC-DMIS code, variables can only be passed to BASIC scripts, not from BASIC scripts." 我昨天试了以下的VB: Sub Main (ByRef fWid As Double,ByRef fLen As Double,ByRef fHei As Double) Begin Dialog INFO 21,42, 238, 144, "ENTER INFO" Text 16,16,88,12, " WIDTH" Text 12,44,96,16, " LENGTH" Text 8,72,104,16, " HEIGHT" TextBox 144,12,48,16, .EditBox_WIDTH TextBox 144,44,48,16, .EditBox_LENGTH TextBox 144,72,48,16, .EditBox_HEIGHT OKButton 48,104,60,16 End Dialog Dim Dlg As INFO Dlg.EditBox_WIDTH=1 Dlg.EditBox_LENGTH=2 Dlg.EditBox_HEIGHT=3 Button=Dialog(Dlg) fWid = Dlg.EditBox_WIDTH fLen = Dlg.EditBox_LENGTH fHei = Dlg.EditBox_HEIGHT Msgbox "fWid is" &fWid &" fLen is " &fLen &" fHei is " &fHei End Sub 运行后从MESSAGE BOX可看出长宽高都送到了变量中但当把这个VB插入PC-DMIS中进行变量互换时没有成功.有可能这是为什么我一年多前作时用的是HYPER-VIEW REPORTING: CS2 =REPORT/FILENAME= C:\DATA\VB CODES\INPUT01.RPT, AUTOPRINT=NO PARAM/EDITDBLBOX1.TEXT=W PARAM/EDITDBLBOX2.TEXT=L PARAM/EDITDBLBOX3.TEXT=H PARAM/= ENDREPORT/ 这样当你输入到3个EDITBOX中后PC-DMIS中的变量W,L,H就完全得到了你的输入值.

谢谢

谢谢。