roller.frm

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

VERSION 5.00
Object = "{75D4F4A8-8785-11D3-93AD-0000832EF44D}#3.0#0"; "FAST2007.ocx"
Begin VB.Form frmRoller 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00008000&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "FWRoller"
   ClientHeight    =   2175
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3585
   ControlBox      =   0   'False
   Icon            =   "Roller.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   145
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   239
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin FLWMMedia.FWRoller objRoller 
      Height          =   600
      Left            =   2640
      TabIndex        =   3
      Top             =   540
      Width           =   600
      _ExtentX        =   1058
      _ExtentY        =   1058
   End
   Begin VB.CommandButton cmdExit 
      Cancel          =   -1  'True
      Caption         =   "&Exit"
      Height          =   405
      Left            =   1920
      TabIndex        =   2
      Top             =   1560
      Width           =   1395
   End
   Begin VB.CommandButton cmdRolle 
      Caption         =   "Roll dice"
      Default         =   -1  'True
      Height          =   405
      Left            =   330
      TabIndex        =   1
      Top             =   1560
      Width           =   1395
   End
   Begin VB.Label lblLabel 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "The number is:"
      ForeColor       =   &H8000000E&
      Height          =   195
      Left            =   540
      TabIndex        =   0
      Top             =   720
      Width           =   1050
   End
End
Attribute VB_Name = "frmRoller"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdExit_Click()
  Unload Me
End Sub

Private Sub cmdRolle_Click()
  objRoller.Value = Rnd * 5 + 1
  Call objRoller.Draw
  
  lblLabel.Caption = "The number is " & objRoller.Value
End Sub