C# / VB.NET - info tecniche

Forum - C# / VB.NET - info tecniche - Pagina 3

Pagine: [ 1 2 3 ]

Carlo (Member)
Guru^2

Messaggi: 1422
Iscritto: 29/01/2018

Postato alle 16:18
Domenica, 10/12/2023

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 sorgente - presumibilmente VB.NET

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:

Codice sorgente - presumibilmente VB.NET

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 il 10/12/2023 alle 16:20

in programmazione tutto è permesso

nightwolf (Normal User)
Pro

Messaggi: 153
Iscritto: 14/09/2010

Postato alle 1:53
Venerdì, 15/12/2023

Grazie mille, tutto chiaro.
Domani provo e vi faccio sapere
Siete dei grandi

Pagine: [ 1 2 3 ]