Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - [VB.NET] Salvare dei dati a seguito di un metodo add handler
Forum - C# / VB.NET - [VB.NET] Salvare dei dati a seguito di un metodo add handler

Avatar
eternauta (Normal User)
Newbie


Messaggi: 5
Iscritto: 07/06/2011

Segnala al moderatore
Postato alle 16:46
Martedì, 10/01/2012
Ciao,

Sto impazzendo dietro alla gestione delle variabili di vb (vengo dall'antico pascal che le gestive in maniera diversa)..

Allora, ho un'arraylist 'casette' di classi 'casa'. Casa ha due proprietà, nome e indirizzo via. Queste informazioni si ottengono popolando due text box presenti in un form figlio. Voglio semplicemente salvare le due info a seguito della pressione di un pulsante che è in fondo allo stesso form. Ho capito che mi serve creare una nuova variabile di tipo casa ad ogni nuovo inserimento.. ma come faccio a trovare le info che mi servono se voglio salvare solo a seguito sdella pressione del tasto salva?

visto che non mi capisco neanche io, vi giro il code che è meglio:


  
Codice sorgente - presumibilmente VB.NET

  1. Private Sub inscasa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles inscasa.Click
  2.         Dim form_casa As New Form
  3.         Dim labnome As New Label
  4.         Dim textnome As New TextBox
  5.         Dim labind As New Label
  6.         Dim textind As New TextBox
  7.         Dim pulse As New Button
  8.  
  9.  
  10.  
  11.  
  12.         form_casa.Text = "  INSERIMENTO NUOVE CASE"
  13.         form_casa.Width = 600
  14.         form_casa.Show()
  15.  
  16.         labnome.Text = "NOME DELLA CASA"
  17.         labnome.Width = 150
  18.         labnome.Height = 30
  19.         labnome.BackColor = Color.Azure
  20.         labnome.Top = 20
  21.         labnome.Left = 20
  22.         labnome.BorderStyle = BorderStyle.FixedSingle
  23.         form_casa.Controls.Add(labnome)
  24.         textnome.Top = 20
  25.         textnome.Left = 190
  26.         textnome.Width = 400
  27.         textnome.Height = 70
  28.         form_casa.Controls.Add(textnome)
  29.         AddHandler textnome.TextChanged, AddressOf nomecasa_change
  30.  
  31.         labind.Text = "INDIRIZZO"
  32.         labind.Width = 150
  33.         labind.Height = 30
  34.         labind.BackColor = Color.Azure
  35.         labind.Top = 80
  36.         labind.Left = 20
  37.         labind.BorderStyle = BorderStyle.FixedSingle
  38.         form_casa.Controls.Add(labind)
  39.         textind.Top = 80
  40.         textind.Left = 190
  41.         textind.Width = 400
  42.         textind.Height = 70
  43.         form_casa.Controls.Add(textind)
  44.         AddHandler textind.TextChanged, AddressOf nomevia_change
  45.  
  46.         pulse.Text = "SALVA"
  47.         pulse.Top = 200
  48.         pulse.Left = 500
  49.         form_casa.Controls.Add(pulse)
  50.         AddHandler pulse.Click, AddressOf salvacase_clik
  51.  
  52.  
  53.     End Sub
  54.  
  55.     Private Sub salvacase_clik(ByVal sender As Object, ByVal e As EventArgs)
  56.         Dim formatter As New BinaryFormatter
  57.         Dim file_casette As New FileStream("casette.dat", IO.FileMode.Create)
  58.         Dim a As New casa
  59.  
  60.         If casette IsNot Nothing Then
  61.             Try
  62.                 formatter.Serialize(file_casette, casette)
  63.                 'a.nome=textnome.text  queste sono le righe che non riesco a mettere concettualmente  
  64.                 'a.indirizzo=textind.text
  65.                 'casette.add(a)
  66.                 MsgBox("Casa Aggiunta con successo.. bravo continuate cosi!!")
  67.  
  68.             Catch ex As Exception
  69.                 MsgBox("C'è un proble.. chiamate Fabio.. saprà risolverlo! Comunicate il codice errore: " & ex.Message)
  70.                 Throw
  71.             Finally
  72.                 file_casette.Close()
  73.  
  74.             End Try
  75.         Else
  76.             MsgBox("inserire un nome")
  77.         End If
  78.  
  79.     End Sub



ringrazio a tutti per l'eventuale interessamento.

Buona Giornata

Ultima modifica effettuata da Il Totem il 10/01/2012 alle 18:32
PM
Avatar
Qwertj (Dev Team)
Guru


Messaggi: 678
Iscritto: 30/05/2011

Up
1
Down
V
Segnala al moderatore
Postato alle 16:54
Martedì, 10/01/2012
Scusa ma usa l'editor visuale per farti la finestra, non c'è bisogno che scrivi tutto il codice di disegno dei controlli te :nono:

Poi basta che al click del bottone tu recuperi le due stringhe dalle textbox, crei la nuova istanza di casa, l'aggiungi l'Arraylist, azzeri le textbox e fine

grazie mi hai aperto un mondo... - eternauta - 24/01/12 17:57


Blog:
<coming soon>
Appalo:
http://www.appalo.it/
PM