mdiform1.frm

某大学开发的一个用于对微波传输线状态进行模拟的软件

VERSION 5.00
Object = "{A964BDA3-3E93-11CF-9A0F-9E6261DACD1C}#2.0#0"; "RESIZE32.OCX"
Begin VB.MDIForm MDIForm1 
   AutoShowChildren=   0   'False
   BackColor       =   &H80000004&
   Caption         =   "微波传输线系统"
   ClientHeight    =   6195
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   7590
   Icon            =   "MDIForm1.frx":0000
   LinkTopic       =   "MDIForm1"
   NegotiateToolbars=   0   'False
   Picture         =   "MDIForm1.frx":0442
   WindowState     =   2  'Maximized
   Begin ResizeLibCtl.ReSize ReSize1 
      Left            =   120
      Top             =   690
      _Version        =   131072
      _ExtentX        =   741
      _ExtentY        =   741
      _StockProps     =   0
      Enabled         =   -1  'True
      FormMinWidth    =   0
      FormMinHeight   =   0
      AutoCenterFormOnLoad=   -1  'True
      FormDesignHeight=   6195
      FormDesignWidth =   7590
   End
   Begin VB.Menu xt 
      Caption         =   " 系 统 (&F) "
      NegotiatePosition=   1  'Left
      WindowList      =   -1  'True
      Begin VB.Menu gj1 
         Caption         =   "工具栏"
         Begin VB.Menu jxq 
            Caption         =   "计算器"
         End
      End
      Begin VB.Menu pod3 
         Caption         =   "-"
      End
      Begin VB.Menu ydm 
         Caption         =   "源代码"
         Begin VB.Menu cszfx 
            Caption         =   "数值分析"
            Begin VB.Menu cpxsx 
               Caption         =   "平行双线"
            End
            Begin VB.Menu ctzx 
               Caption         =   "同轴线"
            End
            Begin VB.Menu cjbx 
               Caption         =   "渐变线"
            End
            Begin VB.Menu ccx 
               Caption         =   "槽 线"
            End
            Begin VB.Menu cbd 
               Caption         =   "波 导"
            End
            Begin VB.Menu cdzx 
               Caption         =   "带状线"
            End
            Begin VB.Menu cwdx 
               Caption         =   "微带线"
            End
         End
         Begin VB.Menu csmith 
            Caption         =   "SMITH圆图"
         End
      End
      Begin VB.Menu pod2 
         Caption         =   "-"
      End
      Begin VB.Menu exit 
         Caption         =   "退 出(&X)"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu szfx 
      Caption         =   " 数值分析 (&A) "
      Begin VB.Menu pxsx1 
         Caption         =   "平行双线"
         Begin VB.Menu pxsx2 
            Caption         =   "平行双线"
         End
         Begin VB.Menu ppsx 
            Caption         =   "匹配双线"
            Begin VB.Menu bldzj 
               Caption         =   "并联单枝节"
            End
            Begin VB.Menu cldzj 
               Caption         =   "串联单枝节"
            End
            Begin VB.Menu blszj 
               Caption         =   "并联双枝节"
            End
         End
      End
      Begin VB.Menu jbx 
         Caption         =   "渐变线"
         Begin VB.Menu zx 
            Caption         =   "指数分布"
         End
         Begin VB.Menu sj 
            Caption         =   "三角分布"
         End
         Begin VB.Menu qbxf 
            Caption         =   "切比雪夫分布"
         End
      End
      Begin VB.Menu tzx1 
         Caption         =   "同轴线"
      End
      Begin VB.Menu caox 
         Caption         =   "槽 线"
      End
      Begin VB.Menu bd1 
         Caption         =   "波 导"
         Begin VB.Menu jxbd1 
            Caption         =   "矩形波导"
         End
         Begin VB.Menu ybd 
            Caption         =   "圆形波导"
         End
         Begin VB.Menu bb 
            Caption         =   "波导不连续性"
            Begin VB.Menu mp 
               Caption         =   "膜 片"
            End
            Begin VB.Menu dgb 
               Caption         =   "电感棒"
            End
         End
      End
      Begin VB.Menu dzx1 
         Caption         =   "带状线"
         Begin VB.Menu dzx 
            Caption         =   "带状线"
         End
         Begin VB.Menu ohdzx 
            Caption         =   "耦合带状线"
         End
         Begin VB.Menu dblx 
            Caption         =   "带状线不连续性"
            Begin VB.Menu kld1 
               Caption         =   "开路端"
            End
            Begin VB.Menu yk 
               Caption         =   "圆 孔"
            End
            Begin VB.Menu jg 
               Caption         =   "间 隔"
            End
            Begin VB.Menu kdjt 
               Caption         =   "宽度阶梯"
            End
            Begin VB.Menu gj 
               Caption         =   "拐 角"
            End
            Begin VB.Menu tjt 
               Caption         =   "T形接头"
            End
         End
      End
      Begin VB.Menu wdx1 
         Caption         =   "微带线"
         Begin VB.Menu wss 
            Caption         =   "无色散效应"
            Begin VB.Menu wd 
               Caption         =   "微带线"
            End
            Begin VB.Menu ohwd 
               Caption         =   "耦合微带线"
            End
         End
         Begin VB.Menu yss 
            Caption         =   "有色散效应"
            Begin VB.Menu wdx2 
               Caption         =   "微带线"
            End
            Begin VB.Menu ohwd2 
               Caption         =   "耦合微带线"
            End
         End
         Begin VB.Menu wblx 
            Caption         =   "微带线不连续性"
            Begin VB.Menu kld 
               Caption         =   "开路端"
            End
            Begin VB.Menu cljg 
               Caption         =   "串联间隔"
            End
            Begin VB.Menu jt 
               Caption         =   "阶 梯"
            End
            Begin VB.Menu zjgj 
               Caption         =   "直角拐角"
            End
            Begin VB.Menu txjt 
               Caption         =   "T形接头"
            End
            Begin VB.Menu xzjt 
               Caption         =   "十字接头"
            End
            Begin VB.Menu ck 
               Caption         =   "槽 口"
            End
         End
      End
   End
   Begin VB.Menu cxjg 
      Caption         =   " 场型结构 (&C) "
      Begin VB.Menu p 
         Caption         =   "平行双线"
      End
      Begin VB.Menu t 
         Caption         =   "同轴线"
      End
      Begin VB.Menu cx 
         Caption         =   "槽 线"
      End
      Begin VB.Menu b 
         Caption         =   "波 导"
         Begin VB.Menu j 
            Caption         =   "矩形波导"
         End
         Begin VB.Menu y 
            Caption         =   "圆形波导"
         End
      End
      Begin VB.Menu d 
         Caption         =   "带状线"
         Begin VB.Menu t1 
            Caption         =   "带状线"
         End
         Begin VB.Menu od 
            Caption         =   "耦合带状线"
         End
      End
      Begin VB.Menu w 
         Caption         =   "微带线"
         Begin VB.Menu w1 
            Caption         =   "微带线"
         End
         Begin VB.Menu ow 
            Caption         =   "耦合微带线"
         End
      End
   End
   Begin VB.Menu YTfx 
      Caption         =   " SMITH圆图 (&S) "
      Begin VB.Menu xs 
         Caption         =   "显示圆图"
      End
      Begin VB.Menu pod 
         Caption         =   "-"
      End
      Begin VB.Menu scxz 
         Caption         =   "视窗选择"
         Enabled         =   0   'False
         Begin VB.Menu xzck 
            Caption         =   "旋转窗口"
            Checked         =   -1  'True
         End
         Begin VB.Menu ssck 
            Caption         =   "实时窗口"
            Checked         =   -1  'True
         End
      End
   End
   Begin VB.Menu bz1 
      Caption         =   " 帮 助 (&H) "
      Begin VB.Menu bz 
         Caption         =   "帮 助"
      End
      Begin VB.Menu pod1 
         Caption         =   "-"
      End
      Begin VB.Menu about 
         Caption         =   "关 于"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub about_Click()
frmAbout.Show
End Sub
Private Sub bldzj_Click()
Form5.Show
Form5.Frame4.Visible = True
Form5.Picture3.Visible = True
End Sub
Private Sub blszj_Click()
Form5.Show
Form5.Frame5.Visible = True
Form5.Picture4.Visible = True
End Sub
Private Sub bz_Click()
Form16.Show
End Sub

Private Sub caox_Click()
Form9.Show
End Sub

Private Sub cbd_Click()
Form19.Show
Form19.Text5.Visible = True
End Sub

Private Sub ccx_Click()
Form19.Show
Form19.Text4.Visible = True
End Sub

Private Sub cdzx_Click()
Form19.Show
Form19.Text6.Visible = True
End Sub

Private Sub cjbx_Click()
Form19.Show
Form19.Text3.Visible = True
End Sub

Private Sub ck_Click()
Form21.Show
Form21.Frame2.Visible = True
End Sub

Private Sub cldzj_Click()
Form5.Show
Form5.Frame3.Visible = True
Form5.Picture2.Visible = True
End Sub

Private Sub cljg_Click()
Form21.Show
Form21.Frame7.Visible = True
End Sub

Private Sub cpxsx_Click()
Form19.Show
Form19.Text1.Visible = True
End Sub

Private Sub csmith_Click()
Form19.Show
Form19.Text8.Visible = True
End Sub

Private Sub ctzx_Click()
Form19.Show
Form19.Text2.Visible = True
End Sub

Private Sub cwdx_Click()
Form19.Show
Form19.Text7.Visible = True
End Sub

Private Sub cx_Click()
Form18.Show
End Sub
Private Sub dgb_Click()
Form22.Show
Form22.Frame3.Visible = True
End Sub

Private Sub dzx_Click()
Form6.Show
Form6.Frame2.Visible = True
Form6.Picture2.Visible = True
End Sub
Private Sub exit_Click()
Unload Form1
Unload form2
Unload Form3
Unload Form4
Unload Form5
Unload Form6
Unload Form7
Unload Form8
Unload Form9
Unload Form10
Unload Form11
Unload Form12
Unload Form13
Unload Form14
Unload Form15
Unload Form16
Unload Form17
Unload Form18
Unload Form19
Unload Form20
Unload Form21
Unload Form22
Unload frmAbout
Unload MDIForm1
End
End Sub

Private Sub gj_Click()
Form20.Show
Form20.Frame3.Visible = True
End Sub

Private Sub j_Click()
Form10.Show
End Sub
Private Sub jg_Click()
Form20.Show
Form20.Frame5.Visible = True
End Sub

Private Sub jt_Click()
Form21.Show
Form21.Frame6.Visible = True
End Sub
Private Sub jxbd1_Click()
Form3.Show
Form3.Frame3.Visible = True
Form3.Picture2.Visible = True
Form3.Picture1.Visible = False
End Sub
Private Sub jxq_Click()
Calculator.Show
End Sub

Private Sub kdjt_Click()
Form20.Show
Form20.Frame4.Visible = True
End Sub

Private Sub kld_Click()
Form21.Show
Form21.Frame8.Visible = True
End Sub

Private Sub kld1_Click()
Form20.Show
Form20.Frame7.Visible = True
End Sub

Private Sub MDIForm_Load()
xzck.Checked = True
ssck.Checked = False
End Sub

Private Sub mp_Click()
Form22.Show
Form22.Frame2.Visible = True
End Sub

Private Sub od_Click()
Form14.Show
Form14.Picture2.Visible = True
End Sub
Private Sub ohdzx_Click()
Form6.Show
Form6.Frame3.Visible = True
Form6.Picture1.Visible = True
End Sub
Private Sub ohwd_Click()
Form7.Show
Form7.Frame4.Visible = True
Form7.Picture1.Visible = True
End Sub

Private Sub ohwd2_Click()
Form4.Show
Form4.Frame4.Visible = True
Form4.Picture1.Visible = True
End Sub

Private Sub ow_Click()
Form15.Show
Form15.Picture1.Visible = True
End Sub
Private Sub p_Click()
Form12.Show
End Sub
Private Sub pxsx2_Click()
Form5.Show
Form5.Picture1.Visible = True
Form5.Frame2.Visible = True
End Sub

Private Sub qbxf_Click()
Form17.Show
End Sub

Private Sub sj_Click()
Form17.Show
End Sub

Private Sub ssck_Click()
If ssck.Checked = True Then
Form8.Hide
Else
Form8.Show
End If
ssck.Checked = Not ssck.Checked
End Sub
Private Sub t_Click()
Form13.Show
End Sub
Private Sub t1_Click()
Form14.Show
Form14.Picture1.Visible = True
End Sub

Private Sub tjt_Click()
Form20.Show
Form20.Frame2.Visible = True
End Sub

Private Sub txjt_Click()
Form21.Show
Form21.Frame4.Visible = True
End Sub

Private Sub w1_Click()
Form15.Show
Form15.Picture2.Visible = True
End Sub
Private Sub wd_Click()
Form7.Show
Form7.Picture2.Visible = True
End Sub

Private Sub wdx2_Click()
Form4.Show
Form4.Frame2.Visible = True
Form4.Picture2.Visible = True
End Sub

Private Sub xs_Click()
Form1.Show
scxz.Enabled = True
End Sub

Private Sub tzx1_Click()
form2.Show
End Sub
Private Sub xzck_Click()
If xzck.Checked = True Then
Form1.Frame1.Visible = False
Else
Form1.Frame1.Visible = True
End If
xzck.Checked = Not xzck.Checked
End Sub

Private Sub xzjt_Click()
Form21.Show
Form21.Frame3.Visible = True
End Sub

Private Sub y_Click()
Form11.Show
End Sub
Private Sub ybd_Click()
Form3.Show
Form3.Frame2.Visible = True
Form3.Picture1.Visible = True
Form3.Picture2.Visible = False
End Sub

Private Sub yk_Click()
Form20.Show
Form20.Frame6.Visible = True
End Sub

Private Sub zjgj_Click()
Form21.Show
Form21.Frame5.Visible = True
End Sub

Private Sub zx_Click()
Form17.Show
End Sub