Dim s As SIMAN 
Dim m As Model 

Private Sub CommandButton1_Click () 
Dim num As Long 
Num=Val (InputBox (" please enter the required number of units: ", "unit set")) 

The Set m=ThisDocument Model 
The Set s=Margaret spellings IMAN 

Dim As Long I 
Dim total As Long 
For I=1 To num 
If num=0 Then the Exit For 
Total=0 
Total=total + I 
The Set m=ThisDocument Model 

Dim Seize1modi As Arena. The Module 
Dim Seize2modi As Arena. The Module 
Let a="Buffer" 
B="MS" 


The Set Resourcemodi=m.M odules. Create (" BasicProcess ", "Resource", 0, 0) 
Let Resourcemodi. Data (" Name ")=a & amp; 1 + I 
Resourcemodi. Data (" Capacity ")="2", "
Resourcemodi. UpdateShapes 

The Set Statisticmodi=m.M odules. Create (" AdvancedProcess ", "Statistic", 0, 0) 
Let Statisticmodi. Data (" Name ")=b & amp; 2 + I & amp; D 
Statisticmodi. Data (" Type ")="Frequency", "
Statisticmodi. Data (" ValueState ")="State", "
Let Statisticmodi. Data (" forward ")=b & amp; 2 + I 
Statisticmodi. UpdateShapes 

CodePudding user response:

ThisDocument? The WORD?

CodePudding user response:

No, software called arena didn't know you haven't heard

CodePudding user response:

First, create a new project in VB6, added in the "engineering"/" reference "reference for related classes, namely contains SIMAN, such as the Model of library reference, because do not understand your arena software, can only say so much, I analyze your this program should be inherent in the arena, or the Set m=ThisDocument Model is not enough, if it is as I said, may have to do work step:
The Set Xobj=new XXX
Xobj. Open (" YYY ")
Like, like is to use VB Excel document operation steps, and then you can Set m=ThisDocument Model, the operating behind the basic according to your original program,

CodePudding user response:

See if it provides the com interface, if any, generally it has corresponding documentation,
If have no related information, then use exescope see the main program and the other looks like for third party call DLL typelib information, such as

For example here is excel. Exe typelib information part of the:


Actually, that is, for every kind of interface method of function calls a third party, etc., have this so there will be a corresponding documentation,

CodePudding user response:

Use OleView view the COM interface information,