frmmain.frm

来自「主要介绍的是程序综合,你们可以参考一下,用法比较简单.」· FRM 代码 · 共 53 行

VERSION 5.00
Begin VB.Form frmMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "程序主界面"
   ClientHeight    =   4200
   ClientLeft      =   150
   ClientTop       =   840
   ClientWidth     =   6390
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4200
   ScaleWidth      =   6390
   StartUpPosition =   2  '屏幕中心
   Begin VB.Menu mnuProgram 
      Caption         =   "程序"
      Begin VB.Menu mnuFcz 
         Caption         =   "求解二元一次方程组"
      End
      Begin VB.Menu mnuMax 
         Caption         =   "求最大值"
      End
   End
   Begin VB.Menu mnuSet 
      Caption         =   "设置"
      Begin VB.Menu mnuCheck 
         Caption         =   "查看数列内容"
      End
      Begin VB.Menu mnuModify 
         Caption         =   "修改数列值"
      End
   End
   Begin VB.Menu mnuControl 
      Caption         =   "控制"
      Begin VB.Menu mnuExit 
         Caption         =   "退出"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnuExit_Click()
    End
End Sub

Private Sub mnuFcz_Click()
    Shell App.Path & "\fcz.exe", vbNormalFocus
End Sub