完善资料让更多小伙伴认识你,还能领取20积分哦, 立即完善>
嗨,我想将VB.Net与callableVeeServer一起使用。通常情况下,使用VBA我可以使用Variant类型来输入和输出Vee UserFunction的数据。当我用输入和输出的Object类型替换Variant类型时,会出现此后的错误
在行“调用Uf1.Call(输入,输出)” - 要传递的预期参数“输出”ByRef这个错误也可能是由于在预期数组时传递标量变量引起的。 Â进入CallableVEEPublic类Form1ÂDimMonServeur作为新的CallServerÂDimLibrairie作为CallableVEE.LibraryÂÂDimUf1作为UserFunction的Dim Libpath作为String的Dim输入(1)作为对象的公共输出(1)作为对象的私人子Button1_Click(ByVal发送者作为System.Object,ByVal e 作为System.EventArgs)处理Button1.ClickÂÂÂÂÂÂ''创建VEE服务器对象并加载库MonServeur = CreateObject(“CallableVEE.CallServer”)Libpath =“examplescalableveelib.vee”Librairie = MonServeur.Libraries.Load(MonServeur.InstallDir& Libpath) )AAAAAAAA '设置调试模式appropriatelyÂÂÂÂÂÂÂMonServeur.Debug =TrueÂÂÂÂÂÂÂÂ' 呼叫简单VEE UF和更新spreadsheetÂÂÂÂÂÂÂUF1 = Librairie.UserFunctions( “TwoInTwoOut1”)AAAAAAA输入(0)=2ÂÂÂÂÂÂÂ输入(1)=5ÂÂÂÂÂÂÂÂ呼叫Uf1.Call(输入, 输出)使用没有Out的用户功能结束SubEnd Class 把终端,和调用Uf1.Call(输入),没有错误出现和Vee窗口出现问题是什么?感谢您的帮助RegardsÂMichelJOSEPHEMITECHîledeFrance,Laboratoires CEM Militaire,aéronautique,spatial et automobile.3,rue de coudriers78180 MontignyleBretonneuxTél:01 30 57 55 55Fax :: 01 30 57 86 40邮件:m.joseph@emitech.frURL:www.emitech.fr ---要订阅,请发送电子邮件至:“vrf-request @ lists.it.agilent.com“在邮件正文中使用了subscribe这个词。 要取消订阅,请发送一封空白电子邮件至“leave-vrf@it.lists.it.agilent.com”。 要将邮件发送到此邮件列表,请发送电子邮件至“vrf@agilent.com”。 如果您需要有关邮件列表的帮助,请发送邮件至“owner-vrf@it.lists.it.agilent.com”。 在“www.oswegosw.com/vrf_archive/”上搜索“unofficial vrf archive”。 以上来自于谷歌翻译 以下为原文 Hi, I want to use VB.Net with callableVeeServer. Normally, with VBA I can used Variant type to Input and output data to and from Vee UserFunction. When I replace Variant type by Object type for Inputs and outputs, the here after error appears at the line “Call Uf1.Call(Inputs, Outputs)†Expected parameter "Outputs" to be passed ByRef This error can also be caused by passing a scalar variable when an array is expected.   Imports CallableVEE Public Class Form1    Dim MonServeur As New CallServer    Dim Librairie As CallableVEE.Library    Dim Uf1 As UserFunction    Dim Libpath As String    Dim Inputs(1) As Object    Public Outputs(1) As Object     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click          ' Create VEE server object and load library        MonServeur = CreateObject("CallableVEE.CallServer")        Libpath = "examplescallableveelib.vee"        Librairie = MonServeur.Libraries.Load(MonServeur.InstallDir & Libpath)         ' Set debug mode appropriately        MonServeur.Debug = True         ' Call simple VEE UF and update spreadsheet        Uf1 = Librairie.UserFunctions("TwoInTwoOut1")        Inputs(0) = 2        Inputs(1) = 5         Call Uf1.Call(Inputs, Outputs)      End Sub End Class  With a user function without Output terminal, and with Call Uf1.Call(Inputs), No error appears and Vee windows appears  Where is the problem? Thanks for your help Regards  Michel JOSEPH EMITECH île de France, Laboratoires CEM Militaire, aéronautique, spatial et automobile. 3, rue de coudriers 78180 Montigny le Bretonneux Tél: 01 30 57 55 55 Fax: :01 30 57 86 40 Mail: m.joseph@emitech.fr URL: www.emitech.fr  --- To subscribe please send an email to: "vrf-request@lists.it.agilent.com" with the word subscribe in the message body. To unsubscribe send a blank email to "leave-vrf@it.lists.it.agilent.com". To send messages to this mailing list, email "vrf@agilent.com". If you need help with the mailing list send a message to "owner-vrf@it.lists.it.agilent.com". Search the "unofficial vrf archive" at "www.oswegosw.com/vrf_archive/". |
|
相关推荐
1个回答
|
|
嗨,我想将VB.Net与callableVeeServer一起使用。通常情况下,使用VBA我可以使用Variant类型来输入和输出Vee UserFunction的数据。当我用输入和输出的Object类型替换Variant类型时,此后的错误出现在
line“CallUf1.Call(Inputs,Outputs)”要传递的预期参数“输出”ByRef这个错误也可能是由于在预期的阵列时传递了一个标量变量。 进口CallableVE公共类Form1 Dim MonServeur作为新的CallServer Dim Librairie作为CallableVEE.Library Dim Uf1作为UserFunction Dim Libpath作为字符串Dim输入(1)作为对象公共输出(1)作为对象私有子Button1_Click(ByVal sender As System.Object,ByVal e 作为System.EventArgs)处理Button1.Click'创建VEE服务器对象和loadlibrary MonServeur = CreateObject(“CallableVEE.CallServer”)Libpath =“examplescallableveelib.vee”Librairie = MonServeur.Libraries.Load(MonServeur.InstallDir& Libpath)'设置 调试模式properMonServeur.Debug = True'调用简单的VEE UF和更新表格Uf1 = Librairie.UserFunctions(“TwoInTwoOut1”)输入(0)= 2输入(1)= 5调用Uf1.Call(输入,输出)结束SubEnd ClassWith用户 functionwithout输出终端,并使用Call Uf1.Call(输入),没有出现错误,Veewindows出现问题?感谢您的帮助.RegardsMichelJOSEPHEMITECH le de France,Laboratoires CEM Militaire,aronautique,spatial et automobile.3,rue de coudriers78180 Montigny le BretonneuxTl:01 30 57 55 55Fax :: 01 30 57 86 40邮件:m.joseph@emitech.frURL:www.emitech.fr ---您目前订阅了vrf:r***@soco.agilent.comTo 订阅请发送电子邮件至:“vrf-request@lists.it.agilent.com”,邮件正文中包含subscribe一词。要取消订阅,请发送空白电子邮件至“leave-vrf@it.lists.it.agilent.com “。要发送邮件到这个邮件列表,请发送电子邮件至”vrf@agilent.com“。 如果您需要有关邮件列表的帮助,请发送邮件至“owner-vrf@it.lists.it.agilent.com”。在“www.oswegosw.com/vrf_archive/”上搜索“非官方vrf档案”。 以上来自于谷歌翻译 以下为原文 Hi,I want to use VB.Net with callableVeeServer.Normally, with VBA I can used Variant type to Inputand output data to and from Vee UserFunction.When I replace Variant type by Object type for Inputsand outputs, the here after error appears at the line “CallUf1.Call(Inputs, Outputs)”Expected parameter"Outputs" to be passed ByRefThis error canalso be caused by passing a scalarvariable when anarray is expected. Imports CallableVEEPublic Class Form1 Dim MonServeur As New CallServer Dim Librairie As CallableVEE.Library Dim Uf1 As UserFunction Dim Libpath As String Dim Inputs(1) As Object Public Outputs(1) As Object Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' Create VEE server object and loadlibrary MonServeur= CreateObject("CallableVEE.CallServer") Libpath ="examplescallableveelib.vee" Librairie= MonServeur.Libraries.Load(MonServeur.InstallDir & Libpath) ' Set debug mode appropriatelyMonServeur.Debug = True ' Call simple VEE UF and updatespreadsheet Uf1 =Librairie.UserFunctions("TwoInTwoOut1") Inputs(0)= 2 Inputs(1)= 5 Call Uf1.Call(Inputs,Outputs) End SubEnd Class With a user functionwithout Output terminal, and with Call Uf1.Call(Inputs), No error appears and Veewindows appears Where is the problem?Thanks for your helpRegards MichelJOSEPHEMITECH le de France,Laboratoires CEM Militaire, aronautique, spatial et automobile.3, rue de coudriers78180 Montigny le BretonneuxTl: 01 30 57 55 55Fax: :01 30 57 86 40Mail: m.joseph@emitech.frURL: www.emitech.fr ---You are currently subscribed to vrf as: [email=r***@soco.agilent.com]r***@soco.agilent.com[/email]To subscribe please send an email to: "vrf-request@lists.it.agilent.com" with the word subscribe in the message body.To unsubscribe send a blank email to "leave-vrf@it.lists.it.agilent.com".To send messages to this mailing list, email "vrf@agilent.com". If you need help with the mailing list send a message to"owner-vrf@it.lists.it.agilent.com".Search the "unofficial vrf archive" at "www.oswegosw.com/vrf_archive/". |
|
|
|
只有小组成员才能发言,加入小组>>
1074 浏览 0 评论
2307 浏览 1 评论
2094 浏览 1 评论
1968 浏览 5 评论
2839 浏览 3 评论
843浏览 1评论
关于Keysight x1149 Boundary Scan Analyzer
616浏览 0评论
N5230C用“CALC:MARK:BWID?”获取Bwid,Cent,Q,Loss失败,请问大佬们怎么解决呀
717浏览 0评论
1400浏览 0评论
1075浏览 0评论
小黑屋| 手机版| Archiver| 电子发烧友 ( 湘ICP备2023018690号 )
GMT+8, 2024-10-2 05:23 , Processed in 1.419460 second(s), Total 74, Slave 58 queries .
Powered by 电子发烧友网
© 2015 bbs.elecfans.com
关注我们的微信
下载发烧友APP
电子发烧友观察
版权所有 © 湖南华秋数字科技有限公司
电子发烧友 (电路图) 湘公网安备 43011202000918 号 电信与信息服务业务经营许可证:合字B2-20210191 工商网监 湘ICP备2023018690号