frmCover.frm
上传用户:sdxhx123
上传日期:2022-08-06
资源大小:3453k
文件大小:4k
开发平台:

Visual Basic

  1. VERSION 5.00
  2. Begin VB.Form frmCover 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   5490
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   9135
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    Picture         =   "frmCover.frx":0000
  13.    ScaleHeight     =   5490
  14.    ScaleWidth      =   9135
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   1  '所有者中心
  17.    Begin VB.Timer Timer1 
  18.       Interval        =   5000
  19.       Left            =   8400
  20.       Top             =   600
  21.    End
  22.    Begin VB.Label Label3 
  23.       BackStyle       =   0  'Transparent
  24.       Caption         =   "※www.njupt.edu.cn※"
  25.       BeginProperty Font 
  26.          Name            =   "微软雅黑"
  27.          Size            =   9
  28.          Charset         =   134
  29.          Weight          =   400
  30.          Underline       =   0   'False
  31.          Italic          =   0   'False
  32.          Strikethrough   =   0   'False
  33.       EndProperty
  34.       Height          =   255
  35.       Left            =   3480
  36.       TabIndex        =   2
  37.       Top             =   3600
  38.       Width           =   1815
  39.    End
  40.    Begin VB.Line Line2 
  41.       X1              =   1320
  42.       X2              =   1320
  43.       Y1              =   480
  44.       Y2              =   4320
  45.    End
  46.    Begin VB.Line Line1 
  47.       X1              =   480
  48.       X2              =   8520
  49.       Y1              =   3000
  50.       Y2              =   3000
  51.    End
  52.    Begin VB.Label Label2 
  53.       BackStyle       =   0  'Transparent
  54.       Caption         =   "南京邮电大学毕业设计 于维川制作"
  55.       BeginProperty Font 
  56.          Name            =   "隶书"
  57.          Size            =   12
  58.          Charset         =   134
  59.          Weight          =   400
  60.          Underline       =   0   'False
  61.          Italic          =   0   'False
  62.          Strikethrough   =   0   'False
  63.       EndProperty
  64.       ForeColor       =   &H00FFFF00&
  65.       Height          =   255
  66.       Left            =   2400
  67.       TabIndex        =   1
  68.       Top             =   3240
  69.       Width           =   3735
  70.    End
  71.    Begin VB.Label Label1 
  72.       BackStyle       =   0  'Transparent
  73.       Caption         =   "回溯法实现背包问题    之动态演示教程"
  74.       BeginProperty Font 
  75.          Name            =   "楷体_GB2312"
  76.          Size            =   36
  77.          Charset         =   134
  78.          Weight          =   400
  79.          Underline       =   0   'False
  80.          Italic          =   0   'False
  81.          Strikethrough   =   0   'False
  82.       EndProperty
  83.       ForeColor       =   &H00FF0000&
  84.       Height          =   1455
  85.       Left            =   1680
  86.       TabIndex        =   0
  87.       Top             =   1200
  88.       Width           =   6855
  89.    End
  90. End
  91. Attribute VB_Name = "frmCover"
  92. Attribute VB_GlobalNameSpace = False
  93. Attribute VB_Creatable = False
  94. Attribute VB_PredeclaredId = True
  95. Attribute VB_Exposed = False
  96. '====================================
  97. '回溯法求解背包问题(2008.4.16)
  98. '南京邮电大学毕业设计
  99. 'www.njupt.edu.cn
  100. '模块名称:封面
  101. '====================================
  102. Option Explicit
  103. '点击封面直接进入主窗体
  104. Private Sub Form_Click()
  105.     Timer1.Enabled = False       '关闭定时器
  106.     Unload Me                    '卸载封面
  107.     Screen.MousePointer = 0      '鼠标恢复原样
  108.     MDIForm1.WindowState = 2     '启动时窗体最大化
  109.     MDIForm1.Show                '显示主窗体
  110. End Sub
  111. '显示封面
  112. Private Sub Form_Load()
  113.   Screen.MousePointer = 11       '鼠标呈沙漏状
  114.   frmCover.Show                  '显示封面
  115. End Sub
  116. '进入主窗体
  117. Private Sub Timer1_Timer()
  118.     Unload Me
  119.     Screen.MousePointer = 0      '鼠标恢复原样
  120.     MDIForm1.WindowState = 2     '启动时窗体最大化
  121.     MDIForm1.Show
  122. End Sub