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:
codice nel Form2:
Il file in esecuzione proseguirà ad avanzare senza nessuna interruzione sull'audio.
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
Domani provo e vi faccio sapere
Siete dei grandi
aaa