cdkeys.frm

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

VERSION 5.00
Begin VB.Form frmCDKeys 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Microsoft CD Keys"
   ClientHeight    =   1260
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3585
   Icon            =   "CDKeys.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1260
   ScaleWidth      =   3585
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdCheck 
      Caption         =   "Check"
      Default         =   -1  'True
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2475
      TabIndex        =   1
      Top             =   630
      Width           =   960
   End
   Begin VB.TextBox txtCDKey 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   675
      MaxLength       =   7
      TabIndex        =   0
      Top             =   630
      Width           =   1725
   End
   Begin VB.Label lblLabel 
      AutoSize        =   -1  'True
      Caption         =   "Enter the Microsoft CD Key (7 chars)"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   225
      TabIndex        =   3
      Top             =   270
      Width           =   3135
   End
   Begin VB.Label lblPrefix 
      AutoSize        =   -1  'True
      Caption         =   "XXX-"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   225
      TabIndex        =   2
      Top             =   675
      Width           =   435
   End
End
Attribute VB_Name = "frmCDKeys"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub cmdCheck_Click()
  Dim objCDKey As New FLWData.FWMicrosoftCDKey
  
  Select Case objCDKey.Create(txtCDKey)
    Case FLWData.flwCDKeyvalid
      Call MsgBox("CD Key is valid")
    Case FLWData.flwCDKeyNotValid
      Call MsgBox("CD Key is not valid")
    Case FLWData.flwCDKeyLenError
      Call MsgBox("Length error. Incorrect length")
    Case FLWData.flwCDKeyValueError
      Call MsgBox("Data type error. Incorrect value")
  End Select
  
End Sub