VB.NET blocco durante il beep

[DanieleGott]

Salve a tutti, sto realizzando un programma in vb.net 2005 dove vengono emessi lunghi beep di circa 10 secondi; però, durante i beep se clicco qualsiasi cosa nel form, va tutto in crash.
Il codice che ho usato è:

Public Class Form1

    Declare Function Beep Lib "kernel32.dll" (ByVal dwFreq As Integer, ByVal dwDuration As Integer) As Boolean
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Beep(294, 10000)
    End Sub
End Class

C'è un modo per evitare che il programma si blocchi?
Grazie in anticipo!

[oregon]

Perché parli di "crash"?

La API restituisce il controllo solo quando termina il suono.
Se vuoi, eseguila all'interno di un thread apposito o usa altri metodi per generare suoni.

[DanieleGott]

grazie per la risposta, ma dato che non sono un esperto, mi potresti dire cosa vuol dire eseguire un API in un altro thread e come si fa?

[oregon]

Significa che devi creare un nuovo thread utilizzando le classi dello spazio dei nomi

http://msdn.microsoft.com/it-it/libr...stem.threading(v=vs.100).aspx

e in particolare della classe Thread

http://msdn.microsoft.com/it-it/libr...ng.thread.aspx

in cui troverai degli esempi (da studiare ed applicare al tuo caso).

All'interno del thread chiamerai la tua API.

[DanieleGott]

scusa ma non ci capisco niente da quei link, potresti dirmi il codice?

[oregon]

Originariamente inviato da DanieleGott
scusa ma non ci capisco niente da quei link, potresti dirmi il codice?

Veramente in quei link ci sono degli esempi, come ti ho detto. Usali con un po' di impegno, non si fornisce la "pappa pronta".

[abellos]

Ciao un esempio che mi e' stato utile per capire il funzionamento dei thread e' questo, e' molto semplice da capire:

Option Explicit On
Option Strict On
Imports System.Threading

' **********************************************************************************************
' * Created In VS2005 *
' * Example of multi or worker threading in VB.Net with start & stop of the worker thread *
' * With invoking to update progress bar & textbox *
' * Create a form with 2x buttons and 1x textbox & 1 x progress bar *
' * Modified from the MicroSoft Help So it actually works!! *
' **********************************************************************************************

Public Class Form1
Dim WorkerThread As Thread 'Create the worker thread
Dim NewVal As Integer 'New Value of progress bar & textbox
Dim StopThread As Boolean = True 'Boolean Value used to halt the endless loop

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If StopThread = False Then
StopThread = True
Else
StopThread = False
WorkerThread = New Thread(AddressOf ThreadTask)
WorkerThread.IsBackground = True
WorkerThread.Start()
End If
End Sub

Private Sub ThreadTask()
Dim ProgBarStep As Integer
Dim RandomNo As New Random()
Do Until StopThread = True
ProgBarStep = ProgressBar1.Step * RandomNo.Next(-1, 2)
NewVal = ProgressBar1.Value + ProgBarStep
If NewVal > ProgressBar1.Maximum Then
NewVal = ProgressBar1.Maximum
ElseIf NewVal < ProgressBar1.Minimum Then
NewVal = ProgressBar1.Minimum
End If
Me.ProgressBar1.Invoke(New MethodInvoker(AddressOf InvokeProgBar1))
Me.ProgressBar1.Invoke(New MethodInvoker(AddressOf InvokeTextBox1))
Thread.Sleep(100)
Loop
End Sub

Private Sub InvokeProgBar1()
Me.ProgressBar1.Value = CInt(NewVal)
End Sub

Private Sub InvokeTextBox1()
Me.TextBox1.Text = CStr(NewVal)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show("This is the main thread")
End Sub
End Class