home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / TrueWavAna52857242002.psc / Main.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-02-02  |  2.1 KB  |  70 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Begin VB.MDIForm MDIMain 
  4.    BackColor       =   &H8000000C&
  5.    Caption         =   "VB Wav Analyzer by Paul Bryan in 2002"
  6.    ClientHeight    =   3195
  7.    ClientLeft      =   165
  8.    ClientTop       =   735
  9.    ClientWidth     =   5745
  10.    Icon            =   "Main.frx":0000
  11.    LinkTopic       =   "MDIForm1"
  12.    StartUpPosition =   3  'Windows Default
  13.    WindowState     =   2  'Maximized
  14.    Begin MSComDlg.CommonDialog CommonDialog1 
  15.       Left            =   360
  16.       Top             =   2160
  17.       _ExtentX        =   847
  18.       _ExtentY        =   847
  19.       _Version        =   393216
  20.    End
  21.    Begin VB.Menu mnuFile 
  22.       Caption         =   "&File"
  23.       Begin VB.Menu mnuOpenItem 
  24.          Caption         =   "&Open (*.wav file)"
  25.          Shortcut        =   ^O
  26.       End
  27.       Begin VB.Menu mnuSepr 
  28.          Caption         =   "-"
  29.       End
  30.       Begin VB.Menu mnuExitItem 
  31.          Caption         =   "E&xit"
  32.          Shortcut        =   ^X
  33.       End
  34.    End
  35.    Begin VB.Menu mnuAbout 
  36.       Caption         =   "&About"
  37.    End
  38. Attribute VB_Name = "MDIMain"
  39. Attribute VB_GlobalNameSpace = False
  40. Attribute VB_Creatable = False
  41. Attribute VB_PredeclaredId = True
  42. Attribute VB_Exposed = False
  43. 'TrueWavAnalyzer
  44. 'by: Paul Bryan in 2002
  45. 'Allows for graphical isolation of sample ranges
  46. 'will analyze by frequency and decibal for up
  47. 'to 32768 samples (VB Single Precision Demension Max)
  48. 'Uses the FFT alogorythm
  49. ' I hope this helps, feel free to re-use this code.
  50. Private Sub mnuAbout_Click()
  51.     frmAbout.Show , Me
  52. End Sub
  53. Private Sub mnuOpenItem_Click()
  54.     CommonDialog1.Filter = "Wave Files (*.wav)|*.wav"
  55.     CommonDialog1.CancelError = True
  56.     On Error GoTo Errhandler
  57.     CommonDialog1.ShowOpen
  58.     If CommonDialog1.FileName <> "" Then
  59.         MousePointer = 11 'hourglass
  60.         LoadNewFile (CommonDialog1.FileName)
  61.         MousePointer = 0
  62.         Exit Sub
  63.     End If
  64. Errhandler:
  65.     Exit Sub
  66. End Sub
  67. Private Sub mnuExitItem_Click()
  68.     End
  69. End Sub
  70.