GFWaveViewer/Testfrm.frm

VERSION 5.00
Begin VB.Form Testfrm
   Caption         =   "Form1"
   ClientHeight    =   3075
   ClientLeft      =   60
   ClientTop       =   435
   ClientWidth     =   4695
   LinkTopic       =   "Form1"
   ScaleHeight     =   3075
   ScaleWidth      =   4695
   StartUpPosition =   3 'Windows‑Standard
End
Attribute VB_Name = "Testfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'(c)2003, 2004 by Louis. www.louis‑coder.com.

Private Sub Form_Load()
    'on error resume next
    Dim WaveName As String
    Dim WDA() As Integer
    Dim WDN As Long
    Dim X As New GFWaveReadWritecls
    Dim Y As New GFWaveReadWritecls
    Dim Z As New GFWaveReadWritecls
    'begin
    '
    GFWaveViewerfrm.Show
    GFWaveViewerfrm.Refresh
    '
    WaveName = App.Path
    If Not (Right$(WaveName, 1) = "\") Then WaveName = WaveName + "\"
    WaveName = WaveName + "squish.wav"
    Call X.GFWaveReadWrite_GetWaveDataArray(WDA(), WDN, WaveName)
    Call GFWaveViewerfrm.GFWV_ReceiveWaveDataArrayInt(1, WDN, WDA())
    '
    WaveName = App.Path
    If Not (Right$(WaveName, 1) = "\") Then WaveName = WaveName + "\"
    WaveName = WaveName + "move_all.wav"
    Call Y.GFWaveReadWrite_GetWaveDataArray(WDA(), WDN, WaveName)
    Call GFWaveViewerfrm.GFWV_ReceiveWaveDataArrayInt(2, WDN, WDA())
    '
    WaveName = App.Path
    If Not (Right$(WaveName, 1) = "\") Then WaveName = WaveName + "\"
    WaveName = WaveName + "pacman.wav"
    Call Z.GFWaveReadWrite_GetWaveDataArray(WDA(), WDN, WaveName)
    Call GFWaveViewerfrm.GFWV_ReceiveWaveDataArrayInt(3, WDN, WDA())
    '
    Call GFWaveViewerfrm.GFWV_Redraw
End Sub


[END OF FILE]