我的Aspen版本是2006.5,VB6.0
按照那个手册上的程序和实例去做的,但是一直出现“424要求对象”错误
错误显示在 Set ihColumn = ihAPSim.Tree.Data.Blocks.B6这一行
代码如下:
Private Sub Command5_Click()
'This example retrieves scalar variables from a block
Dim ihColumn As IHNode
Dim nStages As Long
Dim buratio As Double
'navigate the tree to the RADFRAC block
Set ihColumn = ihAPSim.Tree.Data.Blocks.B6
'get the number of stages
nStages = ihColumn.Input.Elements("NSTAGE").Value
'Get the boilup ratio
buratio = ihColumn.output.Elements("BU_RATIO").Value
MsgBox "Number of Stages is:" & nStages _
& Chr(13) & "Boilup Ratio is:" & buratio, , "GetScalarValuesExample"