Código:
FORM 1
Private Sub Buscar_Click()
On Error GoTo ErrorBuscar
CMDialog.Filter = "Formato de sonido MP3 (*.mp3)|*.mp3|Archivos de audio (*.wav)|*.wav|Formato de sonido MIDI (*.midi)|*.midi|Todos los Archivos (*.*)|*.*"
CMDialog.FilterIndex = 1
CMDialog.Action = 1
RutaText.Text = FRMConfiguracion.CMDialog.FileName
SalirBuscar:
Exit Sub
ErrorBuscar:
MsgBox Err.Description, 16, "ERROR"
Resume SalirBuscar
End Sub
Private Sub Salvar_Click()
RutaText = Sonido
Unload Me
End Sub
FORM 2
Private Sub Timer1_Timer()
HoraActual.Caption = Time$
If Hora.Text <= HoraActual And DespertadorSi = True Then
On Error Resume Next
Set Objeto = CreateObject("WScript.Shell")
Objeto.Run Sonido
Beep
End If
End Sub
MODULE 1
Global Sonido As Integer
Private Sub Buscar_Click()
On Error GoTo ErrorBuscar
CMDialog.Filter = "Formato de sonido MP3 (*.mp3)|*.mp3|Archivos de audio (*.wav)|*.wav|Formato de sonido MIDI (*.midi)|*.midi|Todos los Archivos (*.*)|*.*"
CMDialog.FilterIndex = 1
CMDialog.Action = 1
RutaText.Text = FRMConfiguracion.CMDialog.FileName
SalirBuscar:
Exit Sub
ErrorBuscar:
MsgBox Err.Description, 16, "ERROR"
Resume SalirBuscar
End Sub
Private Sub Salvar_Click()
RutaText = Sonido
Unload Me
End Sub
FORM 2
Private Sub Timer1_Timer()
HoraActual.Caption = Time$
If Hora.Text <= HoraActual And DespertadorSi = True Then
On Error Resume Next
Set Objeto = CreateObject("WScript.Shell")
Objeto.Run Sonido
Beep
End If
End Sub
MODULE 1
Global Sonido As Integer
que debo hacer?