testbeep.frm

英文版的 想要的话可以下载了 为大家服务

VERSION 2.00
Begin Form Form1 
   Caption         =   "Beeper Test"
   ClientHeight    =   1725
   ClientLeft      =   1275
   ClientTop       =   1860
   ClientWidth     =   3375
   Height          =   2100
   Left            =   1230
   LinkTopic       =   "Form1"
   ScaleHeight     =   1725
   ScaleWidth      =   3375
   Top             =   1530
   Width           =   3465
   Begin CommandButton GermanNames 
      Caption         =   "&German Names"
      Height          =   615
      Left            =   1800
      TabIndex        =   3
      Top             =   960
      Width           =   1455
   End
   Begin CommandButton BogusName 
      Caption         =   "Bogus &Name"
      Height          =   615
      Left            =   1800
      TabIndex        =   2
      Top             =   120
      Width           =   1455
   End
   Begin CommandButton Exception 
      Caption         =   "E&xception"
      Height          =   615
      Left            =   120
      TabIndex        =   1
      Top             =   960
      Width           =   1455
   End
   Begin CommandButton TestBeeps 
      Caption         =   "Test &Beeps"
      Height          =   615
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1455
   End
End

Sub BogusName_Click ()
    Dim Beeper As Object
    Set Beeper = CreateObject("Beeper.Object")

    Beeper.Foo = 5  'Invalid property
    
    Set Beeper = Nothing
End Sub

Sub Exception_Click ()
    Dim Beeper As Object
    Set Beeper = CreateObject("Beeper.Object")

    Beeper.Sound = 555  'Generate an exception
    
    Set Beeper = Nothing
End Sub

Sub GermanNames_Click ()
    Dim PlayedSound As Integer
    Dim Pieper As Object
    Set Pieper = CreateObject("Beeper.Object")

    Pieper.Ton = 0
    Pieper.Piep

    Pieper.Ton = 16   'MB_ICONHAND
    Ton = Pieper.Piep

    Pieper.Ton = 32   'MB_ICONEXCLAMATION
    Ton = Pieper.Piep

    Pieper.Ton = 48   'MB_ICONQUESTION
    Ton = Pieper.Piep

    Pieper.Ton = 64   'MB_ICONASTERISK
    Ton = Pieper.Piep

    Set Pieper = Nothing
End Sub

Sub TestBeeps_Click ()
    Dim PlayedSound As Integer
    Dim Beeper As Object
    Set Beeper = CreateObject("Beeper.Object")

    Beeper.Sound = 0
    Beeper.Beep

    Beeper.Sound = 16   'MB_ICONHAND
    Sound = Beeper.Beep

    Beeper.Sound = 32   'MB_ICONEXCLAMATION
    Sound = Beeper.Beep

    Beeper.Sound = 48   'MB_ICONQUESTION
    Sound = Beeper.Beep

    Beeper.Sound = 64   'MB_ICONASTERISK
    Sound = Beeper.Beep

    Set Beeper = Nothing
End Sub