[VB.NET] Problema con proprietà

[Marco.Maffei-12]

Ciao a tutti,
sto sviluppando un programma in visual basic che visualizza dei dati in label da un database e poi li invia, con un click sul button, in appositi elementi di un sito internet tramite webBrowser. I dati da inviare e il webBrowser sono in due window distinte perciò creo delle proprietà che prendono il valore delle label che poi devono essere richiamate dalla classe del webBrowser. Le proprietà sono dichiarate pubbliche e accessibili da altre classi. Il problema è che le proprietà richiamate dalla classe del webBrowser (tramite dichiarazione di nuova istanza e nuove variabili che dovrebbero prendere il valore delle rispettive proprietà) perdono il loro valore e nei campi vuoti del sito (visualizzato nel webBrowser) viene scritto "undefined" senza generare eccezioni. Qualcuno sa dirmi dove è il problema? Grazie

ps L'applicazione è sviluppata in progetto WPF

[oregon]

Posta il codice delle classi ...

P.S. Dai un'occhiata al regolamento su come impostare il titolo delle discussioni e *dove* postarle dato che esiste una sezione per il VB.NET ...

[Marco.Maffei-12]

Dove lo trovo il regolamento?

Il primo codice è quello presente nella classe VisualizzaInvia. Riguarda il button per l'invio. Sto provando ad inviare un solo dato, quello NomeScuola

     Dim _NomeScuola As String
    Private Sub ButtonInvia_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles ButtonInvia.Click
'eccezione in caso di selezione errata nella combobox
        Try
            If IndirizzoComboBox.SelectedIndex = -1 Then
                Throw New IndexOutOfRangeException
            End If
        Catch ex As IndexOutOfRangeException
            MsgBox("Recordo non trovato")
            Exit Sub
        End Try
'variabile di ritorno della proprietà
        _NomeScuola = NomeScuolaLabel.Content
'Naviga nella window WebBrowserClass dove è situato il webBrowser
        Dim Navigation As New WebBrowserClass
        Navigation.ShowDialog()
    End Sub

'Proprietà NomeScuola che viene richiamata dalla classe WebBrowser
    Public Property NomeScuola() As String
        Get
            Return _NomeScuola
        End Get

        Set(ByVal value As String)
            _NomeScuola = value
        End Set
    End Property 
End Class

La proprietà assume il giusto valore nella classe VisualizzaInvia perché ho provato a leggerlo con un MsgBox. Perde il suo valore nella classe WebBrowserClass

 Class WebBrowserClass

    Dim Instance As New VisualizzaInviaClass
    Dim NomeScuolaVar As String

    Private Sub WebBrowser_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        InitializeComponent()
        WebBrowser1.Navigate("http://www.informaticascuole.it/joomla/index.php?option=com_chronoforms&chronoform=RapportinoLavoro")
    End Sub

    Private Sub WebBrowser1_LoadCompleted(ByVal sender As Object, ByVal e As System.Windows.Navigation.NavigationEventArgs) Handles WebBrowser1.LoadCompleted
        NomeScuolaVar = Instance.NomeScuola
        Dim doc As Object = WebBrowser1.Document
        Dim element As Object = doc.GetElementById("nscuola").SetAttribute("value", NomeScuolaVar)
    End Sub
End Class

Se c'è bisogno di altre info ditemi...

[oregon]

Originariamente inviato da Marco.Maffei-12
Dove lo trovo il regolamento?

Beh ... proprio sopra il tuo post ... meno male che c'è scritto "In rilievo" ...

Per il codice ... è molto confuso ... hai modo di zippare il progetto e inviarlo? (Però in modo celere perché non starò tutta la notte qui ...)

[Marco.Maffei-12]

L'ho letto. Non sono pratico di forum perciò faccio ancora confusione. Pensavo di aver messo il post nella sezione VB...

[oregon]

La discussione te la sposterà il moderatore ... rileggi la mia ultima risposta.

[Marco.Maffei-12]

Ho zippato il progetto in formato RAR che non è supportato dal forum. come posso inviartelo?

[oregon]

Mettilo in un sito da cui si possono scaricare gratuitamente file e metti il link qui

[Marco.Maffei-12]

http://it.swoopshare.com/file/4958ed...s=IDAT&lang=it

L'ho uppato qui. Per uppare non serve registrazione ma per scaricare non so se ce n'è bisogno. Io lo scarico tranquillamente. Il progetto contiene un dataset che prende i dati da un dbo. il dbo non è incluso nel file rar. Se si può risolvere dammi istruzioni. è la mia prima applicazione. Grazie

[oregon]

L'interazione tra le classi non è corretta ...

Nella WebBrowserClass prevedi la proprietà NomeScuola e nella LoadCompleted non istanzi nulla ma semplicemente utilizzi il valore attuale della proprietà

Class WebBrowserClass

    Private NomeScuolaVar As String

    Public Property NomeScuola() As String
        Get
            Return NomeScuolaVar
        End Get

        Set(ByVal value As String)
            NomeScuolaVar = value
        End Set
    End Property

    Private Sub WebBrowser_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        InitializeComponent()
        WebBrowser1.Navigate("http://www.informaticascuole.it/joomla/index.php?option=com_chronoforms&chronoform=RapportinoLavoro")
    End Sub

    Private Sub WebBrowser1_LoadCompleted(ByVal sender As Object, ByVal e As System.Windows.Navigation.NavigationEventArgs) Handles WebBrowser1.LoadCompleted
        Dim doc As Object = WebBrowser1.Document
        Dim element As Object = doc.GetElementById("nscuola").SetAttribute("value", NomeScuolaVar.ToString())
    End Sub
End Class

Nella classe VisualizzaInviaClass invece, devi prevedere

   Dim Navigation As New WebBrowserClass
   Navigation.NomeScuola = "Valore da impostare"  ' o dalla label che vuoi 
   Navigation.ShowDialog()