frmCover.frm
资源名称:lx.rar [点击查看]
上传用户:sdxhx123
上传日期:2022-08-06
资源大小:3453k
文件大小:4k
源码类别:
数值算法/人工智能
开发平台:
Visual Basic
- VERSION 5.00
- Begin VB.Form frmCover
- BorderStyle = 0 'None
- Caption = "Form1"
- ClientHeight = 5490
- ClientLeft = 0
- ClientTop = 0
- ClientWidth = 9135
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- Picture = "frmCover.frx":0000
- ScaleHeight = 5490
- ScaleWidth = 9135
- ShowInTaskbar = 0 'False
- StartUpPosition = 1 '所有者中心
- Begin VB.Timer Timer1
- Interval = 5000
- Left = 8400
- Top = 600
- End
- Begin VB.Label Label3
- BackStyle = 0 'Transparent
- Caption = "※www.njupt.edu.cn※"
- BeginProperty Font
- Name = "微软雅黑"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 255
- Left = 3480
- TabIndex = 2
- Top = 3600
- Width = 1815
- End
- Begin VB.Line Line2
- X1 = 1320
- X2 = 1320
- Y1 = 480
- Y2 = 4320
- End
- Begin VB.Line Line1
- X1 = 480
- X2 = 8520
- Y1 = 3000
- Y2 = 3000
- End
- Begin VB.Label Label2
- BackStyle = 0 'Transparent
- Caption = "南京邮电大学毕业设计 于维川制作"
- BeginProperty Font
- Name = "隶书"
- Size = 12
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H00FFFF00&
- Height = 255
- Left = 2400
- TabIndex = 1
- Top = 3240
- Width = 3735
- End
- Begin VB.Label Label1
- BackStyle = 0 'Transparent
- Caption = "回溯法实现背包问题 之动态演示教程"
- BeginProperty Font
- Name = "楷体_GB2312"
- Size = 36
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H00FF0000&
- Height = 1455
- Left = 1680
- TabIndex = 0
- Top = 1200
- Width = 6855
- End
- End
- Attribute VB_Name = "frmCover"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- '====================================
- '回溯法求解背包问题(2008.4.16)
- '南京邮电大学毕业设计
- 'www.njupt.edu.cn
- '模块名称:封面
- '====================================
- Option Explicit
- '点击封面直接进入主窗体
- Private Sub Form_Click()
- Timer1.Enabled = False '关闭定时器
- Unload Me '卸载封面
- Screen.MousePointer = 0 '鼠标恢复原样
- MDIForm1.WindowState = 2 '启动时窗体最大化
- MDIForm1.Show '显示主窗体
- End Sub
- '显示封面
- Private Sub Form_Load()
- Screen.MousePointer = 11 '鼠标呈沙漏状
- frmCover.Show '显示封面
- End Sub
- '进入主窗体
- Private Sub Timer1_Timer()
- Unload Me
- Screen.MousePointer = 0 '鼠标恢复原样
- MDIForm1.WindowState = 2 '启动时窗体最大化
- MDIForm1.Show
- End Sub