home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4609 / wavplus / wavname.frm < prev    next >
Text File  |  1994-06-28  |  3KB  |  123 lines
  1. VERSION 2.00
  2. Begin Form WavName 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "New Wav File Name"
  6.    ClientHeight    =   1560
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   4140
  10.    ControlBox      =   0   'False
  11.    Height          =   1965
  12.    Left            =   1035
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   1560
  17.    ScaleWidth      =   4140
  18.    Top             =   1140
  19.    Width           =   4260
  20.    Begin CommandButton CmdOkay 
  21.       BackColor       =   &H00C0C0C0&
  22.       Caption         =   "O &K A Y"
  23.       Default         =   -1  'True
  24.       Height          =   375
  25.       Left            =   2040
  26.       TabIndex        =   2
  27.       Top             =   960
  28.       Width           =   1815
  29.    End
  30.    Begin CommandButton CmdCancel 
  31.       BackColor       =   &H00C0C0C0&
  32.       Cancel          =   -1  'True
  33.       Caption         =   "&Cancel"
  34.       Height          =   375
  35.       Left            =   240
  36.       TabIndex        =   1
  37.       Top             =   960
  38.       Width           =   1815
  39.    End
  40.    Begin TextBox Text1 
  41.       BackColor       =   &H00FFFF00&
  42.       ForeColor       =   &H00000000&
  43.       Height          =   285
  44.       Left            =   240
  45.       MaxLength       =   11
  46.       TabIndex        =   0
  47.       Text            =   "Text1"
  48.       Top             =   480
  49.       Width           =   3615
  50.    End
  51.    Begin Label Label1 
  52.       Alignment       =   2  'Center
  53.       BackStyle       =   0  'Transparent
  54.       Caption         =   "Enter a name for the new Wav file:"
  55.       ForeColor       =   &H00800000&
  56.       Height          =   200
  57.       Left            =   240
  58.       TabIndex        =   3
  59.       Top             =   240
  60.       Width           =   3615
  61.    End
  62. End
  63. Sub CmdCancel_Click ()
  64.     FormPassString2 = ""
  65.     Unload Me
  66. End Sub
  67.  
  68. Sub CmdOkay_Click ()
  69.     TheText$ = Text1.Text
  70.     pos% = InStr(TheText$, ".")
  71.     If pos% <> 0 Then
  72.         FormPassString2 = TheText$
  73.         Else
  74.         If Len(TheText$) > 8 Then
  75.             TheText$ = Left$(TheText$, 8)
  76.             End If
  77.         TheText$ = TheText$ + ".WAV"
  78.         FormPassString2 = TheText$
  79.         End If
  80.     ThePath$ = WavPlay.Dir1.Path
  81.     ThePath$ = AddSeparator(ThePath$)
  82.     ThePath$ = LCase$(ThePath$ + FormPassString2)
  83.     If Dir$(ThePath$) = "" Then
  84.         FormPassString2 = ThePath$
  85.         Unload Me
  86.         Exit Sub
  87.         Else
  88.         msg$ = ThePath$ + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10)
  89.         msg$ = msg$ + "This file already exists!"
  90.         MsgBox msg$, 16, "File Error"
  91.         Text1.SetFocus
  92.         End If
  93. End Sub
  94.  
  95. Sub Form_Load ()
  96.     FormCenterForm Me, MCIwav
  97.     Text1.Text = ""
  98.     Screen.MousePointer = 0
  99. End Sub
  100.  
  101. Sub Form_Paint ()
  102.     DoForm3D Me, sunken, 1, 5
  103.     DoControl3D Text1, raised, 2
  104. End Sub
  105.  
  106. Sub Text1_GotFocus ()
  107.     Text1.SelStart = 0
  108.     Text1.SelLength = Len(Text1.Text)
  109. End Sub
  110.  
  111. Sub Text1_KeyPress (KeyAscii As Integer)
  112.     Char = Chr(KeyAscii)
  113.     KeyAscii = Asc(UCase(Char))
  114.     If Char = Chr$(8) Then Exit Sub
  115.     If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then Exit Sub
  116.     If KeyAscii = Asc(".") Then Exit Sub
  117.     If KeyAscii < Asc("A") Or KeyAscii > Asc("Z") Then
  118.         KeyAscii = 0
  119.         Exit Sub
  120.         End If
  121. End Sub
  122.  
  123.