kostenloser Webspace werbefrei: lima-city

Öffnen und Abspielen per Drag & Drop

lima-city → Forum → Programmiersprachen → Basic

1. Autor dieses Themas

   bene1989

   

   bene1989 hat kostenlosen Webspace.

   19:59, 9.7.2006

   Ich programmiere einen MP3-Player f?r meinen PC. Bin auch schon soweit zufrieden. Allerdins funktioniert wenn ich eine MP3-Datei nehme und sie auf meine Verkn?pfung ziehe nicht das abspielen. Der Player wird zwar ge?ffnet, allerdings wird nicht abgespielt. Ich benutze zum Abspielen den WMP als Window Form. Ich habe VB.NET 2003.
   
   Ich m?chte das der Player gestartet wird und das Lied abgespielt wird.
   
   F?r eure Hilfe bin ich jetzt schon dankbar

2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

3. cbhp

   Co-Admin

   cbhp hat kostenlosen Webspace.

   15:09, 12.7.2006

   Diese Anleitung gilt nur f?r Visual Basic .Net 2003
   
   Durch das Ziehen einer Datei ?ber die Verkn?pfung wird deine Anwendung gestartet und die Datei als Parameter angegeben.
   Um die Datei also wiederzugeben, m?ssen die Parameter ausgelesen werden. Dazu muss als Startobjekt die untere "Sub Main" festgelegt werden mit genau dem unten stehenden Code.
   Die "Sub Main" liest den/die Parameter in das Array "args()". Falls keine Parameter ?bergeben worden sind, bleibt args() leer, d.h. Length < 1
   Um z.B. den 1. Parameter aus dem Array zu lesen, wird der Index (der bei Null anf?ngt) angegeben:
   z.B. MsgBox("Erster Parameter: " & args(0).ToString)
   Damit nun die Form angezeigt wird, in der der WindowsMediaPlayer (WMP) eingebaut ist, muss diese Form erst in der "Sub Main" definiert werden mit "Dim StartForm As New Form1" (Form1 gegebenenfalls durch den korrekten Namen ersetzen).
   Jetzt kann auf die Steuerelemente der Form zugegriffen werden und die Musikdatei dem WMP zugewiesen werden: "StartForm.AxWMP1.URL = args(0).ToString"
   Anschlie?end muss die Form nur noch angezeigt werden mit "Application.Run(StartForm)". Dieser Befehl beendet die "Sub Main" und springt ?ber in die Form.
   
   

   Sub Main(ByVal args() As String)
           Dim StartForm As New Form1
           If args.Length < 1 Then
               MsgBox("Es wurden keine Parameter angegeben.")
           Else
               MsgBox("Es wurden " & args.Length & " Parameter angegeben. Der 1. Parameter wird gestartet.")
               If IO.File.Exists(args(0).ToString) Then
                   StartForm.AxWMP1.URL = args(0).ToString
               Else
                   MsgBox("Ung?ltige Datei wurde angegeben.")
               End If
           End If
           Application.Run(StartForm)
       End Sub

   
   
   
   Viel Spa?. Wenn du's so machst wie beschrieben, funktionierts.
   
   
4. Autor dieses Themas

   bene1989

   

   bene1989 hat kostenlosen Webspace.

   20:01, 12.7.2006

   danke f?r dein Script und deine M?he. Allerdings komm ich wieder nicht weiter. Es liegt nicht an direkt an deinem Script sondern am
   
   Sub Main(ByVal args() As String)
   End Sub
   
   Er zeigt immer folgenden Fehler an: Es wurde keine zugreifbare "Main"-Methode mit entsprechender Signatur in "WindowsApplication1.Form1" gefunden.
   
   Wei?t du wieder rat?
   Ich danke dir schonmal im Voraus
5. Autor dieses Themas

   bene1989

   

   bene1989 hat kostenlosen Webspace.

   16:43, 13.7.2006

   Das Problem hab ich jetzt selbst l?sen k?nnen. Ich muss das Script in ein Modul kopieren und dann das Modul als Startobjekt einrichten.
   
   Das ist die L?sung.
   
   Beitrag ge?ndert am 13.07.2006 16:43 von bene1989

6. cbhp

   Co-Admin

   cbhp hat kostenlosen Webspace.

   13:23, 14.7.2006

   Ja genau. Die "Sub Main" muss in einem Modul gespeichert werden.
   Ich konnte nicht fr?her antworten, aber du hast es ja jetzt selber geschafft.

7. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?