[VB.NET] Event e passaggio variabili

[ferrate]

Ciao a tutti...
mi devo cimentare su un campo dove sono poco pratico...
Il mio applicativo al form_load controlla in una cartella predefinita se esiste
un file.xml che contiene un valore = s...
se non esiste, con un gestore catch, genero un errore.
Nel Try invece genera, per ora una message box che mi mostra il valore s.
Questo valore s, ora deve essere passato ad una classe... ovviamente dell'applicativo,
che utilizzerà appunto il valore s per fare una determinata procedura.
Ho visto, che per questo tipo di "azioni" vengono utilizzati gli Eventi...
c'è il generatore dell'evento che in questo caso è il mio form_load...
e l'ascoltatore che è appunto la mia classe.

come potrei passare dalla teoria alla pratica??
posso tranquillamente passare il valore s alla classe?
devo sapere qualcos' altro in più??

un saluto e grazie

[ferrate]

vi posto come l' ho pensata...

form 1 frmDati : EVENTO GENERATORE

Public Class FrmMain
Public Event odbc(ByVal s As String)
....

Private Sub FrmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

' il file xml dsn viene salvato nella path dir installazione SW
Dim defaultpath As String = My.Application.Info.DirectoryPath

'all' apertura del form verifico che il file dsn contenente la stringa odbc
'esista nella path dir dove è stata salvato
With opnPath
.InitialDirectory = defaultpath
End With

'prova ad aprire il file xml
Try
Dim s As String = String.Empty
Dim xtr As New Xml.XmlTextReader("dsn.xml")

Do While xtr.Read
s &= xtr.ReadOuterXml
Loop
xtr.Close()

'fammi vedere il risultato
If s <> String.Empty Then
MessageBox.Show(s)
'visto che il file esiste...disabilita gli strumenti
StrumentiToolStripMenuItem.Enabled = False

RaiseEvent odbc(s)

End If

'altrimenti se nn esiste inviami errore e apri il tool che mi permette di
'creare il file.xml
Catch ex As Exception
MessageBox.Show("errore")

Dim F As New SelectDatabase

F.ShowDialog()

End Try

End Sub
-------------------------------------------------------------------------------
CLASSE ASCOLTATORE
Conn.Vb Classe Connessione Database

Public Class Conn

Dim WithEvents obj As New FrmMain
.....

Public Sub PreparaConnessione(ByVal s As String) Handles obj.odbc
Try
connessione = New OdbcConnection
connessione.ConnectionString = s

Catch ex As Exception

MessageBox.Show(" Errore di connessione al Database. Controllare ODBC ", "Error Database Comunication", MessageBoxButtons.OK, MessageBoxIcon.Warning)

End Try

End Sub

[ferrate]

Problema :

quando nelle altre form richiamo la Sub PreparaConnessione()
mi viene generato l'errore...
sul richiamo della Sub...

[ferrate]

nessuno riesce ad aiutarmi?

[alka]

Tra file XML, errori, eventi, passaggi "dalla teoria alla pratica", io non ho capito nulla. :master:

[ferrate]

:quote:
devo passare dal form1 alla classe una variabile contenente un dato...

breve riassunto.. un saluto alka