none
convertion de code RRS feed

  • Question

  • Salut,

    en ce moment je suis entrain de suivre le coach WPF qui utilise c# mais moi je le fais en vb et dans le deuxieme atelier

    j'ai un code que je n'arrive pas à retranscrire en vb

    if (double.TryParse(this.tbTemp.Text, out value))

    {

        ThreadPool.QueueUserWorkItem(delegate

        {

            ConvertTemperatureSoapClientclient = newConvertTemperatureSoapClient();

            results = client.ConvertTemp(

                value,

                TemperatureUnit.degreeFahrenheit,

                TemperatureUnit.degreeCelsius);

     

            this.Dispatcher.BeginInvoke(DispatcherPriority.Normal, newAction(delegate

            {

                this.tbResults.Text = Convert.ToString(results);

            }));

        });

    }

    else

    {

        MessageBox.Show("Vous devez saisir une valeur de type 'double' dans la zone de saisie");

    }

    surtout la partir threadpool.QueueUserWorkItem

    merci d'avance


    la FOI déplace les montagnes et bien DOTNET les effaces complétement.

    dimanche 11 mars 2012 19:51

Réponses

  • Bonjour,

            If Double.TryParse(Me.tbTemp.Text, value) Then
                ThreadPool.QueueUserWorkItem(Sub()
                                                 Dim client As ConvertTemperatureSoapClient = New ConvertTemperatureSoapClient()
                                                 results = client.ConvertTemp(value, TemperatureUnit.degreeFahrenheit, TemperatureUnit.degreeCelsius)
                                                 Me.Dispatcher.BeginInvoke(DispatcherPriority.Normal, New Action(Sub()
                                                                                                                     Me.tbResults.Text = Convert.ToString(results)
                                                                                                                 End Sub))
                                             End Sub)
            Else
                MessageBox.Show("Vous devez saisir une valeur de type 'double' dans la zone de saisie")
            End If

    Cordialement


    Gilles TOURREAU - MVP C#
    Architecte logiciel/Consultant/Formateur Freelance
    Blog : http://gilles.tourreau.fr
    - MCPD : Enterprise Developper / Windows Developper 3.5 / ASP .NET 3.5/4.0
    - MCITP : SQL Server 2008 Developper
    - MCTS : ADO .NET 3.5 / SQL Server 2008 Developper / Windows Forms 3.5 / ASP .NET 3.5/4.0

    • Marqué comme réponse mmw01 lundi 12 mars 2012 10:03
    dimanche 11 mars 2012 21:12
    Modérateur

Toutes les réponses

  • Bonjour,

            If Double.TryParse(Me.tbTemp.Text, value) Then
                ThreadPool.QueueUserWorkItem(Sub()
                                                 Dim client As ConvertTemperatureSoapClient = New ConvertTemperatureSoapClient()
                                                 results = client.ConvertTemp(value, TemperatureUnit.degreeFahrenheit, TemperatureUnit.degreeCelsius)
                                                 Me.Dispatcher.BeginInvoke(DispatcherPriority.Normal, New Action(Sub()
                                                                                                                     Me.tbResults.Text = Convert.ToString(results)
                                                                                                                 End Sub))
                                             End Sub)
            Else
                MessageBox.Show("Vous devez saisir une valeur de type 'double' dans la zone de saisie")
            End If

    Cordialement


    Gilles TOURREAU - MVP C#
    Architecte logiciel/Consultant/Formateur Freelance
    Blog : http://gilles.tourreau.fr
    - MCPD : Enterprise Developper / Windows Developper 3.5 / ASP .NET 3.5/4.0
    - MCITP : SQL Server 2008 Developper
    - MCTS : ADO .NET 3.5 / SQL Server 2008 Developper / Windows Forms 3.5 / ASP .NET 3.5/4.0

    • Marqué comme réponse mmw01 lundi 12 mars 2012 10:03
    dimanche 11 mars 2012 21:12
    Modérateur
  • Merci Gilles

    la FOI déplace les montagnes et bien DOTNET les effaces complétement.

    lundi 12 mars 2012 10:04