开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数值算法/人工智能 > 查看源码
MDIForm1.frm
资源名称：lx.rar　[点击查看]
上传用户：sdxhx123
上传日期：2022-08-06
资源大小：3453k
文件大小：6k
源码类别：

数值算法/人工智能

开发平台：

Visual Basic

MDIForm1.frm：源码内容
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.MDIForm MDIForm1 
  4.    BackColor       =   &H8000000C&
  5.    Caption         =   "回溯法实现背包问题之动态教程"
  6.    ClientHeight    =   8760
  7.    ClientLeft      =   60
  8.    ClientTop       =   450
  9.    ClientWidth     =   13395
  10.    Icon            =   "MDIForm1.frx":0000
  11.    LinkTopic       =   "MDIForm1"
  12.    Picture         =   "MDIForm1.frx":030A
  13.    StartUpPosition =   2  '屏幕中心
  14.    Begin MSComctlLib.ImageList ImageList1 
  15.       Left            =   5160
  16.       Top             =   0
  17.       _ExtentX        =   1005
  18.       _ExtentY        =   1005
  19.       BackColor       =   -2147483643
  20.       ImageWidth      =   16
  21.       ImageHeight     =   16
  22.       MaskColor       =   12632256
  23.       _Version        =   393216
  24.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  25.          NumListImages   =   7
  26.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  27.             Picture         =   "MDIForm1.frx":11926
  28.             Key             =   "intro"
  29.          EndProperty
  30.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  31.             Picture         =   "MDIForm1.frx":11C40
  32.             Key             =   "casus"
  33.          EndProperty
  34.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  35.             Picture         =   "MDIForm1.frx":11E9F
  36.             Key             =   "app"
  37.          EndProperty
  38.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  39.             Picture         =   "MDIForm1.frx":12122
  40.             Key             =   "help"
  41.          EndProperty
  42.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  43.             Picture         =   "MDIForm1.frx":123E4
  44.             Key             =   "info"
  45.          EndProperty
  46.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  47.             Picture         =   "MDIForm1.frx":124EA
  48.             Key             =   "exit"
  49.          EndProperty
  50.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  51.             Picture         =   "MDIForm1.frx":12786
  52.             Key             =   "flash"
  53.          EndProperty
  54.       EndProperty
  55.    End
  56.    Begin MSComctlLib.Toolbar Toolbar1 
  57.       Align           =   1  'Align Top
  58.       Height          =   555
  59.       Left            =   0
  60.       TabIndex        =   0
  61.       Top             =   0
  62.       Width           =   13395
  63.       _ExtentX        =   23627
  64.       _ExtentY        =   979
  65.       ButtonWidth     =   979
  66.       ButtonHeight    =   926
  67.       Appearance      =   1
  68.       Style           =   1
  69.       ImageList       =   "ImageList1"
  70.       _Version        =   393216
  71.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  72.          NumButtons      =   9
  73.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  74.             Caption         =   " 介绍"
  75.             Key             =   "intro"
  76.             Object.ToolTipText     =   "对命题的一般性介绍"
  77.             ImageKey        =   "intro"
  78.          EndProperty
  79.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  80.             Caption         =   "示例"
  81.             Key             =   "casus"
  82.             Object.ToolTipText     =   "命题实现的动态演示"
  83.             ImageKey        =   "casus"
  84.          EndProperty
  85.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  86.             Caption         =   "应用"
  87.             Key             =   "app"
  88.             Object.ToolTipText     =   "命题在实际生活中的应用"
  89.             ImageKey        =   "app"
  90.          EndProperty
  91.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  92.             Style           =   3
  93.          EndProperty
  94.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  95.             Object.Visible         =   0   'False
  96.             Caption         =   "帮助"
  97.             Key             =   "help"
  98.             Object.ToolTipText     =   "关于本教程的使用帮助"
  99.             ImageKey        =   "help"
  100.          EndProperty
  101.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  102.             Caption         =   "关于"
  103.             Key             =   "about"
  104.             Object.ToolTipText     =   "显示关于该软件的相关信息"
  105.             ImageKey        =   "info"
  106.          EndProperty
  107.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  108.             Style           =   3
  109.          EndProperty
  110.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  111.             Caption         =   "退出"
  112.             Key             =   "exit"
  113.             Object.ToolTipText     =   "退出软件"
  114.             ImageKey        =   "exit"
  115.          EndProperty
  116.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  117.             Object.Visible         =   0   'False
  118.             Caption         =   "刷新"
  119.             Key             =   "flash"
  120.             Object.ToolTipText     =   "关闭MDI窗体中所有的子窗体"
  121.             ImageKey        =   "flash"
  122.          EndProperty
  123.       EndProperty
  124.    End
  125.    Begin VB.Menu mnuPopup 
  126.       Caption         =   "Popup"
  127.       Visible         =   0   'False
  128.       Begin VB.Menu mnuOpenWin 
  129.          Caption         =   "打开窗口"
  130.       End
  131.       Begin VB.Menu mnuHide 
  132.          Caption         =   "隐藏窗口"
  133.       End
  134.       Begin VB.Menu mnuLine 
  135.          Caption         =   "-"
  136.       End
  137.       Begin VB.Menu mnuAbout 
  138.          Caption         =   "关于"
  139.       End
  140.       Begin VB.Menu mnuExit 
  141.          Caption         =   "退出"
  142.       End
  143.    End
  144. End
  145. Attribute VB_Name = "MDIForm1"
  146. Attribute VB_GlobalNameSpace = False
  147. Attribute VB_Creatable = False
  148. Attribute VB_PredeclaredId = True
  149. Attribute VB_Exposed = False
  150. Option Explicit
  152. Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  153.     Select Case Button.Key
  154.         Case "casus"
  155.             frmPak.Show
  156.         Case "app"
  157.             frmCar.Show
  158.         Case "intro"
  159.             FrmTeach.Show
  160.         Case "about"
  161.             frmAbout.Show
  162.         Case "exit"
  163.             End      '退出应用程序
  164.         Case "flash"
  165.             '关闭MDI窗体中所有的子窗体
  166.             Screen.MousePointer = vbHourglass
  167.             Do While Not (Me.ActiveForm Is Nothing)
  168.             Unload Me.ActiveForm
  169.             Loop
  170.             Screen.MousePointer = vbDefault
  171.     End Select
  172. End Sub