Oppure

Loading
10/12 0:22
nightwolf
Scusa, che vuol dire una copia, basta che faccio copia e incolla. In questo modo se pur è vero, qundo suono nel form "pleyer" non suona anche in contemporanea nel form "principale"?
aaa
10/12 15:18
Carlo
La copia di un oggetto si fa con il simbolo =
Quando si usa l'uguale gli oggetti sono identici in toto.

Nel tuo caso specifico non è necessario copiare l'AxWindowsMediaPlayer perché si può usare sempre lo stesso su entrambi i form ma non puoi vederli contemporaneamente.

se nel primo form dichiari come pubblico un player es: Public WithEvents AxWindowsMediaPlayer1 As AxWMPLib.AxWindowsMediaPlayer = New AxWMPLib.AxWindowsMediaPlayer()

poi lo puoi aggiungere al Form1 con le proprietà volute.
Se con un bottone passi al form2, nell'evento load di Form2 puoi aggiungere il lettore creato nel form1. Nel momento che form2 viene visualizzato e il lettore aggiunto, il controllo scomparirà da Form1, sarà tua cura reinserirlo quando si ripassa al Form1.

Con un esempio sarà tutto più chiaro. Codice da inserire nel Form1:
Public Class Form1
    ' lettore visibile su tutte le classi
    Public WithEvents AxWindowsMediaPlayer1 As AxWMPLib.AxWindowsMediaPlayer = New AxWMPLib.AxWindowsMediaPlayer()

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Controls.Add(AxWindowsMediaPlayer1) ' aggiunto in Form1
        AxWindowsMediaPlayer1.Location = New Point(50, 50)
        AxWindowsMediaPlayer1.Size = New Size(300, 300)
        AxWindowsMediaPlayer1.URL = "c:\TuoFile.mpg"
    End Sub

    Private Sub ButForm2_Click_1(sender As Object, e As EventArgs) Handles ButForm2.Click
        Dim form2 As New Form2() ' istanzia il Form2
        form2.Show() ' carica il form2
        Me.Hide() ' nasconde il Form1
    End Sub
End Class


codice nel Form2:
Public Class Form2
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Controls.Add(Form1.AxWindowsMediaPlayer1) ' sposta il lettore da Form1 a Form2
    End Sub

    Private Sub ButForm1_Click(sender As Object, e As EventArgs) Handles ButForm1.Click
        Form1.Controls.Add(Form1.AxWindowsMediaPlayer1) ' sposta il lettore dal Form2 al Form1
        Me.Close() ' chiude il Form2
        Form1.Show() ' mostra il Form1
    End Sub
End Class


Il file in esecuzione proseguirà ad avanzare senza nessuna interruzione sull'audio.
Ultima modifica effettuata da Carlo 10/12 15:20
in programmazione tutto è permesso
15/12 0:53
nightwolf
Grazie mille, tutto chiaro.
Domani provo e vi faccio sapere
Siete dei grandi
aaa