mdiform1.frm

采用VB编写的一个电路分析系统

            Picture         =   "MDIForm1.frx":8586
            Key             =   ""
         EndProperty
         BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":8BC0
            Key             =   ""
         EndProperty
         BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":91FA
            Key             =   ""
         EndProperty
         BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":9A50
            Key             =   ""
         EndProperty
         BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":A2A6
            Key             =   ""
         EndProperty
         BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":AAFC
            Key             =   ""
         EndProperty
         BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":B352
            Key             =   ""
         EndProperty
         BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":BBA8
            Key             =   ""
         EndProperty
         BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":C3FE
            Key             =   ""
         EndProperty
         BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":CC54
            Key             =   ""
         EndProperty
         BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":D8A6
            Key             =   ""
         EndProperty
         BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":E4F8
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin ComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   1
      Top             =   8055
      Width           =   11385
      _ExtentX        =   20082
      _ExtentY        =   450
      SimpleText      =   ""
      _Version        =   327682
      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
         NumPanels       =   4
         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            Object.Width           =   4498
            MinWidth        =   4498
            Text            =   "欢迎使用实用电路分析软件"
            TextSave        =   "欢迎使用实用电路分析软件"
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            Object.Width           =   2646
            MinWidth        =   2646
            Text            =   "正在绘制电路..."
            TextSave        =   "正在绘制电路..."
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Object.Width           =   1764
            MinWidth        =   1764
            Text            =   "操作对像："
            TextSave        =   "操作对像："
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Object.Width           =   1764
            MinWidth        =   1764
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu xcxs 
      Caption         =   "XCXS"
      Visible         =   0   'False
      Begin VB.Menu vcvs 
         Caption         =   "VCVS型受控源"
      End
      Begin VB.Menu vcas 
         Caption         =   "VCAS型受控源"
      End
      Begin VB.Menu acvs 
         Caption         =   "ACVS型受控源"
      End
      Begin VB.Menu acas 
         Caption         =   "ACAS型受控源"
      End
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Dim ans As Integer
Dim flag As Boolean



Private Sub acas_Click()
Call mapform.addcell(5)
mapform.cell(counts - 1).celltag = 4
Call mapform.cell(counts - 1).incall
Call mapform.displaycell(CInt(counts - 1))
End Sub

Private Sub acvs_Click()
Call mapform.addcell(5)
mapform.cell(counts - 1).celltag = 3
Call mapform.cell(counts - 1).incall
Call mapform.displaycell(CInt(counts - 1))
End Sub

Private Sub clearmap_Click()
Call mapform.clearmap_Click
End Sub

Private Sub MDIForm_Load()
frmoptions.Show
voltform.Show
currentform.Show
notepad.Show
waveviewer.Show
splash.Show
Dim x As Long
Dim windowsdirectory As String
windowsdirectory = Space(255)
'获取Windows目录
x = GetWindowsDirectory(windowsdirectory, 255)
splash.Hide
If windowsdirectory > "C:\windows" Then
syspath = "c:\winnt"
Else
syspath = "c:\windows"
End If
End Sub


Public Sub MDIForm_Unload(cancel As Integer)
Unload frmoptions
Unload waveviewer
Unload currentform
Unload voltform
Unload notepad
Unload signalsource
Unload bodeplotter
Unload userplotter
End Sub

Private Sub open_Click()
Call mapform.open_Click
End Sub

Private Sub save_Click()
Call mapform.save_Click
End Sub

Private Sub saveas_Click()
Call mapform.saveas_Click
End Sub

Public Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim temp As Integer
 If Button.index >= 17 And Button.index <= 21 Then
   Call mapform.addcell(Button.index - 17)
   Call mapform.cell(counts - 1).incall
   Call mapform.displaycell(CInt(counts - 1))
 End If
Select Case Button.index
Case 0
  Call mapform.new_Click
Case 1
  If newfile = 1 Then
    Call mapform.saveas_Click
  Else
    Call mapform.save_Click
  End If
Case 2
   Call mapform.open_Click
Case 3
   Call mapform.save_Click
Case 5
   printoption.Show
Case 7
   mapform.元件.Tag = mapform.Picture1.Tag
   Call mapform.删除元件1_Click
Case 9
   addcellform.Show (1)
Case 11
   Call mapform.clearmap_Click
Case 13
   Call mapform.userguide_Click
Case 15
   frmoptions.Show
   frmoptions.Combo1.ListIndex = mapform.container.Tag
   Call frmoptions.Combo1_Click
Case 22
   Call mapform.addnode
Case 23
   PopupMenu xcxs
Case 25
   tbToolBar.Buttons(25).Enabled = False
   Call mapform.addcell(6)
   Call mapform.cell(counts - 1).incall
   Call mapform.displaycell(CInt(counts - 1))
Case 27
  On Error GoTo marks
    zerovoltnode = CInt(InputBox("请输入您想要确定为零电势参考节点的节点号！   " + "序号从0到" + CStr(nodecounts - 1), , 0))
Case 29
   waveviewer.Show
Case 30
  If tbToolBar.Buttons(30).Image = 23 Then
    tbToolBar.Buttons(30).Image = 22
    Call waveviewer.waveshowstart
  Else
    If waveviewer.Timer1.Enabled = True Then
    waveviewer.Timer1.Enabled = False
    Else
      waveviewer.Timer1.Enabled = True
    End If
  End If
Case 32
    bodeplotter.Show
Case 33
    Call bodeplotter.plotter_start
Case 35
    userplotter.Show
Case 36
    Call userplotter.plotter_start
Case 39
    Call wholeanalysis(0)
Case 40
    If tbToolBar.Buttons(30).Image = 22 Then
    waveviewer.Timer1.Enabled = False
     tbToolBar.Buttons(30).Image = 23
    Call waveviewer.wave_end
    End If
End Select
marks::
End Sub

Private Sub vcas_Click()
Call mapform.addcell(5)
mapform.cell(counts - 1).celltag = 2
Call mapform.cell(counts - 1).incall
 Call mapform.displaycell(CInt(counts - 1))
End Sub

Private Sub vcvs_Click()
Call mapform.addcell(5)
mapform.cell(counts - 1).celltag = 1
Call mapform.cell(counts - 1).incall
Call mapform.displaycell(CInt(counts - 1))
End Sub