作者honestonly (努力增胖的小R)
看板Visual_Basic
标题[.NET] 程式码相容性的问题
时间Thu Apr 7 23:27:32 2011
请输入专案类型(网站专案或者应用程式专案)：
windows form 应用程式
因为现在使用的一套绘图软体 可以将过程中所执行的动作
记录下来 输出成一个 VB script档案
因此 只要执行这个档案就可以自动画出一样的图形
软体公司的人提到 可以用VB作连结
(不过不确定他是用VB6还是.NET 只给我看了程式)
将里面的绘图中用的常数写成变数 再写一个框架出来
就可以作成一个general的绘图档
而我是用Visual studio 2008去作
但是就产生问题了
Public Class VBtoAnsoft
'设计一个按钮执行 测试连接的可行性
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
'软体产生的内容 直接丢进来
Dim oAnsoftApp
Dim oDesktop
Dim oProject
Dim oDesign
Dim oEditor
Dim oModule
Dim oDefinitionManager
oAnsoftApp = CreateObject("AnsoftMaxwell.MaxwellScriptInterface")
oDesktop = oAnsoftApp.GetAppDesktop()
oDesktop.RestoreWindow()
oProject = oDesktop.NewProject
oProject.InsertDesign("Maxwell", "MaxwellDesign1", "Magnetostatic",
"")
oDesign = oProject.SetActiveDesign("MaxwellDesign1")
oDesign.SetSolutionType("Transient")
oDesign.ChangeProperty(Array("NAME:AllTabs",
Array("NAME:LocalVariableTab", Array("NAME:PropServers", _
"LocalVariables"), Array("NAME:NewProps", Array("NAME:S_Ro",
"PropType:=", "VariableProp", "UserDef:=", _
'以下省略
这是部分的内容 而在Visual studio 2008中 Array与VB script中的用法似乎不相同
造成有问题产生 但是却不知道怎麽作
试过 dim Array = nothing
但是还是会出现问题
有高手可以帮我解答吗?谢谢!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.167.136.213
1F：→ MOONRAKER:(1)array是keyword 给你dim没问题才有鬼 04/08 14:18
2F：→ honestonly:可是下方的程式码 都是软体产生的 修改就不会执行软体 04/09 17:22
3F：→ honestonly:的内容了 不知道如何下手 04/09 17:23
4F：→ MOONRAKER:VB.NET跟VBS并不相通 你不如想别的办法执行VBS 04/09 23:30
5F：→ MOONRAKER:不过你要跟VB连结 那就麻烦了 04/09 23:31