Umsetzung - Windows Forms-Anwendung in Windows Phone Slverlight

  • WP8

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von kersten83.

    Umsetzung - Windows Forms-Anwendung in Windows Phone Slverlight

    Software: Microsoft Visual Studio Community 2015


    Hallo Alle,

    ich bin neu hier.

    Ich möchte eine Musik abspielen und versuche die Windows Forms-Anwendung in Windows Phone Slverlight umzusetzen. Dabei erhalte ich folgende Fehlermeldung:

    ,,Load“, „My.Computer“, ,, Label1.Text“ und ,, AudioPlayMode“

    Im Toolbox für Windows Phone Silverlight habe ich ,,label.text“ nicht gefunden und von daher „textbox.text“ hinzugefügt.

    Was mache ich da falsch?

    Gruß Kersten


    Windows Forms-Anwendung:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim cod As Integer
    5. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    6. cod = 0
    8. Label1.Text = "Eins"
    9. End Sub
    10. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    11. cod = 1
    12. My.Computer.Audio.Play("c:\music.wav", AudioPlayMode.WaitToComplete)
    13. End Sub
    15. Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
    16. If cod = 1 Then
    17. Label1.Text = "Music läuft"
    18. End If
    19. End Sub
    20. End Class


    Leere App (Windows Phone Silverlight)

    VB.NET-Quellcode

    1. '[MainPage.xaml.vb]
    3. Imports System
    4. Imports System.Threading
    5. Imports System.Windows.Controls
    6. Imports Microsoft.Phone.Controls
    7. Imports Microsoft.Phone.Shell
    9. Partial Public Class MainPage
    10. Inherits PhoneApplicationPage
    11. Dim cod As Integer
    13. ' Konstruktor
    14. Public Sub New()
    15. InitializeComponent()
    16. SupportedOrientations = SupportedPageOrientation.Portrait Or SupportedPageOrientation.Landscape
    17. End Sub
    19. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    20. cod = 0
    21. textBox.Text = "Eins"
    22. End Sub
    24. Private Sub button_Click(sender As Object, e As RoutedEventArgs) Handles button.Click
    25. cod = 1
    26. My.Computer.Audio.Play("c:\music.wav", AudioPlayMode.WaitToComplete)
    28. End Sub
    30. Private Sub textBox_TextChanged(sender As Object, e As TextChangedEventArgs) Handles textBox.TextChanged
    31. If cod = 1 Then
    32. textBox.Text = "Music läuft"
    33. End If
    35. End Sub
    36. End Class
    38. '[/MainPage.xaml.vb]

    Hi,

    so geht das alles nicht. Windows (Phone) Apps werden ganz anders programmiert als Windows Forms-Anwendungen. Die Technologie ist noch ziemlich neu, während WinForms über 10 Jahre alt ist. ;)
    Nun gibt es viel dynamischere, hardwarebeschleunigte User Interfaces, Patterns für die Datentrennung (siehe MVVM etc.) und vor allem sind die ganzen Namespaces, Klassen und somit auch Funktionen ganz anders und weitläufiger.

    Mit dem My-Namespace geht da nichts. ;)
    Die schlechte Nachricht ist also: Du wirst nicht weit kommen, wenn Du diesen Ansatz verfolgst. Du musst Dich in die Technologie komplett einarbeiten und dann kannst Du Apps für alle Plattformen universell entwickeln.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Hi,

    Danke für die Rückmeldung.
    Ich habe womöglich ausgedrückt meine Frage falsch formuliert.
    Ich möchte einfach wissen, wie die Umsetzung aussehen soll. Klar, muss ich mich in die Technologie einarbeiten und neu lernen.
    Ich habe im Internet erst einmal die Informationen gesammelt und gelesen.
    Bei PhoneApp werden die Code XAML und VB.NET kombiniert, so dass ich darauf achten muss, dass alles übereinstimmt.

    Nun brauche ich Deine Hilfe:

    Wo füge ich „cod=0“ und „media.[Stop]()“ in die Start-Initialisierung ein?
    Kannst Du bitte die beiden dem Code zuordnen bzw. ergänzen

    Gruß
    Kersten

    VB.NET-Quellcode

    1. Public NotInheritable Class MainPage
    2. Inherits Page
    3. Protected Overrides Sub OnNavigatedTo(e As Navigation.NavigationEventArgs)
    5. End Sub
    6. Dim cod As Integer
    7. 'cod = 0
    8. 'media.[Stop]()
    10. Private Sub Start(sender As Object, e As RoutedEventArgs)
    11. cod = 1
    13. If cod = 1 Then
    14. media.Play()
    15. End If
    17. End Sub
    19. Private Sub textlabel(sender As Object, e As RoutedEventArgs)
    20. If cod = 1 Then
    21. txtlabel.Content = "Music läuft"
    22. End If
    23. End Sub
    25. End Class

    Hallo Alle,

    ich bin ein Stück weiter gekommen.
    Den Code habe ich innerhalb der Klasse „New“ anstatt „MainPage“ergänzt, obwohl im XAML „App2.MainPage“ klassifiziert ist (?).
    In der im Start-Klasse für das Abspielen würde „media.source“ hinzugefügt. Hat funktioniert!


    VB.NET-Quellcode

    1. Public Sub New()
    2. 'Public Sub MainPage() ' funktiniert nicht!
    3. InitializeComponent()
    4. cod = 0
    5. media.[Stop]()
    7. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „kersten83“ ()

Facebook
Telefonspende