home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD14457232001.psc / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-01-04  |  1.6 KB  |  55 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   2190
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   2505
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   2190
  10.    ScaleWidth      =   2505
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton Command2 
  13.       Caption         =   "Stop"
  14.       Height          =   495
  15.       Left            =   443
  16.       TabIndex        =   1
  17.       Top             =   1058
  18.       Width           =   1455
  19.    End
  20.    Begin VB.CommandButton Command1 
  21.       Caption         =   "Play"
  22.       Height          =   495
  23.       Left            =   443
  24.       TabIndex        =   0
  25.       Top             =   218
  26.       Width           =   1455
  27.    End
  28.    Begin VB.OLE OLE1 
  29.       Class           =   "SoundRec"
  30.       Height          =   495
  31.       Left            =   1920
  32.       OleObjectBlob   =   "Form1.frx":0000
  33.       TabIndex        =   2
  34.       Top             =   1680
  35.       Visible         =   0   'False
  36.       Width           =   495
  37.    End
  38. Attribute VB_Name = "Form1"
  39. Attribute VB_GlobalNameSpace = False
  40. Attribute VB_Creatable = False
  41. Attribute VB_PredeclaredId = True
  42. Attribute VB_Exposed = False
  43. 'This program allows a user to send a wave file the is
  44. 'compiled into the form. just right click on the OLE and
  45. 'goto Wave Sound and then locate the file and click on
  46. 'exit in the sound recorder. But i think you have to goto
  47. 'Edit and insert file.
  48. Option Explicit
  49. Private Sub Command1_Click()
  50.     OLE1.Action = 7 'Start
  51. End Sub
  52. Private Sub Command2_Click()
  53.     OLE1.Action = 9 'Stop
  54. End Sub
  55.