mmedia.frm

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

VERSION 5.00
Object = "*\A..\SOURCE\FAST2007.vbp"
Begin VB.Form frmMMedia 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Multimedia devices"
   ClientHeight    =   6435
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7410
   Icon            =   "MMedia.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6435
   ScaleWidth      =   7410
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdSystem 
      Caption         =   "Play system wave"
      Height          =   420
      Left            =   5580
      TabIndex        =   4
      Top             =   5895
      Width           =   1590
   End
   Begin VB.CommandButton cmdFile 
      Caption         =   "Play wave file"
      Height          =   420
      Left            =   3510
      TabIndex        =   3
      Top             =   5895
      Width           =   1590
   End
   Begin VB.TextBox txtWave 
      Height          =   330
      Left            =   90
      TabIndex        =   2
      Text            =   "c:\mywave.wav"
      Top             =   5985
      Width           =   3165
   End
   Begin VB.ListBox lstDevices 
      Height          =   5715
      Left            =   90
      TabIndex        =   0
      Top             =   135
      Width           =   3165
   End
   Begin FLWMMedia.FWMMedia objMMedia 
      Left            =   6495
      Top             =   135
      _ExtentX        =   820
      _ExtentY        =   820
   End
   Begin VB.Label lblInfo 
      AutoSize        =   -1  'True
      Caption         =   "xxx"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   3375
      TabIndex        =   1
      Top             =   135
      Width           =   315
   End
End
Attribute VB_Name = "frmMMedia"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub cmdFile_Click()
  Call objMMedia.PlayWaveFile(txtWave, False, False)
End Sub

Private Sub cmdSystem_Click()
  Call objMMedia.PlayWaveSystem(FLWMMedia.flwSystemExit, True, False)
End Sub

Private Sub Form_Load()
  Dim objMMediaDevice As FLWMMedia.IFWMMediaDevices
  
  Call objMMedia.Refresh
  For Each objMMediaDevice In objMMedia.MMediaDevices
    Call lstDevices.AddItem(objMMediaDevice.Name)
  Next
  If lstDevices.ListCount > 0 Then
    lstDevices.ListIndex = 0
  Else
    Call MsgBox("No devices found")
  End If
End Sub

Private Sub lstDevices_Click()
  Dim objDevice As FLWMMedia.IFWMMediaDevices
  
  Set objDevice = objMMedia.MMediaDevice(lstDevices.ListIndex + 1)
  With objDevice
    lblInfo = "Type                   " & .MMType & vbCrLf & _
              "Manufacturer ID        " & .Mid & vbCrLf & _
              "Product ID             " & .Pid & vbCrLf & _
              "Left Volume            " & .Left & vbCrLf & _
              "Right Volume           " & .Right & vbCrLf & _
              "Separate L-R Volume    " & .SeparateLRVolume & vbCrLf & _
              "Volume Control         " & .VolumeControl & vbCrLf & _
              "Channel Mask           " & .ChannelMask & vbCrLf & _
              "Device Number          " & .Device & vbCrLf & _
              "Driver Version         " & .DriverVersion & vbCrLf & _
              "Mapper Support         " & .Mapper & vbCrLf & _
              "Wave Type              " & .WaveType & vbCrLf & _
              "Midi Cache Support     " & .MidiCache & vbCrLf & _
              "Midi FM Synt           " & .MidiFMSynth & vbCrLf & _
              "Midi Generic Synth     " & .MidiGenericSynth & vbCrLf & _
              "Midi Square Wave Synth " & .MidiSquareWaveSynth & vbCrLf & _
              "Midi Out Port Support  " & .MidiOutPort & vbCrLf & _
              "Midi notes             " & .Notes & vbCrLf & _
              "Support CD Audio       " & .CDAudio & vbCrLf & _
              "Input Jacks Support    " & .InputJackAudio & vbCrLf & _
              "Pitch Support          " & .PitchSupport & vbCrLf & _
              "Play Back Rate Support " & .PlayBackRateSupport & vbCrLf & _
              "Sync Support           " & .SyncSupport & vbCrLf & _
              "Number of Voices       " & .Voices
  End With
  Set objDevice = Nothing
End Sub