main.frm

不错的一个VB菜单设计 界面和功能都不错

VERSION 5.00
Object = "{75D4F767-8785-11D3-93AD-0000832EF44D}#2.8#0"; "FAST2001.ocx"
Object = "{75D4F148-8785-11D3-93AD-0000832EF44D}#3.3#0"; "FAST2003.ocx"
Begin VB.Form frmMain 
   AutoRedraw      =   -1  'True
   BorderStyle     =   1  'Fixed Single
   Caption         =   "FAST.lib 2000 demo program"
   ClientHeight    =   4230
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7800
   ControlBox      =   0   'False
   Icon            =   "Main.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4230
   ScaleWidth      =   7800
   StartUpPosition =   2  'CenterScreen
   Begin FLWCtrls.FWRealButton cmdLaunch 
      Height          =   600
      Left            =   3510
      TabIndex        =   4
      Top             =   1890
      Width           =   1320
      _ExtentX        =   2328
      _ExtentY        =   1058
      Caption         =   "Launch"
      BackColor       =   -2147483635
      ForeColor       =   16777215
      FontBold        =   -1  'True
      FontSize        =   9.75
      Regions         =   20
   End
   Begin VB.ListBox lstExamples 
      Height          =   3180
      Left            =   90
      TabIndex        =   1
      Top             =   945
      Width           =   3300
   End
   Begin FLWCtrls.FWRealButton cmdExit 
      Height          =   555
      Left            =   3465
      TabIndex        =   5
      Top             =   3600
      Width           =   780
      _ExtentX        =   1376
      _ExtentY        =   979
      Caption         =   "Exit"
      BackColor       =   8421504
      ForeColor       =   -2147483630
      FontBold        =   -1  'True
      FontSize        =   9.75
      Regions         =   20
   End
   Begin FLWCtrls.FWHyperLink FWHyperLink1 
      Height          =   240
      Left            =   5310
      TabIndex        =   6
      Top             =   45
      Width           =   2490
      _ExtentX        =   4392
      _ExtentY        =   423
      Text            =   "http://welcome.to/fastlib"
      FontBold        =   -1  'True
      FontSize        =   9.75
      FontUnderline   =   -1  'True
   End
   Begin FLWSystem.FWShell objShell 
      Left            =   6525
      Top             =   3645
      _ExtentX        =   820
      _ExtentY        =   820
   End
   Begin FLWSystem.FWSysInfo objSysInfo 
      Left            =   7110
      Top             =   3630
      _ExtentX        =   820
      _ExtentY        =   820
   End
   Begin VB.Label lblText 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "