Hallo Leute... ._.
Mir bleibt langsam der Athem weg und Google, Bücher oder andere Probleme haben mir nicht die lösung gebracht...
Ich habe das problem, dass ich (nach der Empfehlung in meinem Letzten post) die Option Strict funktion nun eingeschaltet habe.
Ich musste sehr viel Code ändern und wenn ich nun den Media Player aufrufen möchte, bekomme ich eine fehler meldung.
Ich hoffe das die paar Zeilen hier hilfreich sein könnten...
Code zum aufrufen der MediaPlayer Form:
Form_Load ereigniss in der MediaPlayer Form:
Ich hoffe das mir dabei jemand helfen kann... Wenn nötig kann ich auch den ganzen Code posten. Komisch ist nur dass ich die anderen forman abrufen kann...
Grüße
KenJy
Mir bleibt langsam der Athem weg und Google, Bücher oder andere Probleme haben mir nicht die lösung gebracht...
Ich habe das problem, dass ich (nach der Empfehlung in meinem Letzten post) die Option Strict funktion nun eingeschaltet habe.
Ich musste sehr viel Code ändern und wenn ich nun den Media Player aufrufen möchte, bekomme ich eine fehler meldung.
Ich hoffe das die paar Zeilen hier hilfreich sein könnten...
Code zum aufrufen der MediaPlayer Form:
VB.NET-Quellcode
- Imports System.IO
- Imports System.Threading
- Private Sub ptbMediaPlayer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ptbMediaPlayer.Click
- If DoesExistWMdll = 2 Then 'DoesExistWMdll ist eine Variable die auf 2 gesetzt wurde wenn beide nötigen .dll Datein vorhanden sind (ist True)
- 'Player.FromArg = False
- Player.Location = Me.Location
- Player.Show()
- Me.Hide()
- Else
- MsgBox("Es sind einige dll Dateien nicht vorhanden!" & vbCrLf & _
- "Bitte starten sie das Programm mit Administratorrechten," & vbCrLf & _
- "damit das Programm die benötigten dll Dateien downloaden kann.", MsgBoxStyle.Critical, "Error!")
- End If
- End Sub
Form_Load ereigniss in der MediaPlayer Form:
VB.NET-Quellcode
- Imports WMPLib
- Imports System.IO
- Imports System.Threading
- Private Sub Player_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- '_____________________Buttons Richtig Anzeigen______________________
- Me.btnPlay.Visible = True
- Me.btnPause.Visible = False
- Me.btnStop.Enabled = False
- Me.btnResume.Visible = False
- '_____________________Buttons Richtig Anzeigen______________________
- '________________Media Player Einstellungen Laden.._________________
- WMPlayer.settings.volume = My.Settings.WINMPVolume
- TrackBar1.Value = My.Settings.WINMPVolPegel
- '________________Media Player Einstellungen Laden.._________________
- '_________________Setzt den Title namen auf nichts__________________
- TitleName.Text = "Bitte einen Titel hinzufügen und auswählen"
- '_________________Setzt den Title namen auf nichts__________________
- '__________________________Position setzen__________________________
- Me.Location = Form1.Location
- '__________________________Position setzen__________________________
- End Sub
Ich hoffe das mir dabei jemand helfen kann... Wenn nötig kann ich auch den ganzen Code posten. Komisch ist nur dass ich die anderen forman abrufen kann...
Grüße
KenJy
Bellum et Pax.
Omne initium est difficile.
Omne initium est difficile.
-KenJy ;D
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „KenJy_L4F“ ()