>il "non funziona" è troppo generico. Fai un po di debug e dai
>informazioni più dettagliate altrimenti non ne usciamo vivi.
Io ho avuto un problema simile con la classica form "Impostazioni" e ho risolto con degli usercontrol e una variabile Boolean nella form.
Esempio di una textbox:
Public Class miaTbox
Inherits TextBox
Dim testo As String
'la proprietà DEVE essere impostata in fase di carimento della form
Public Property imposta_testo As String
Get
Return testo
End Get
Set(value As String)
Me.Text = value
testo = value
End Set
End Property
'imposta la variabile boolean(modifica) della form1
'verificando se il testo digitato è uguale alla
'proprietà 'imposta_testo'
Private Sub controla_testo() Handles Me.TextChanged
If Me.Text = testo Then
Form1.modifica = False
Else
Form1.modifica = True
End If
End Sub
End Class
Nella Form1:
Public Class Form1
Friend modifica As Boolean
Private Sub Form1_Load() Handles MyBase.Load
'********************************
'caricamento dati nei controlli
MiaTbox1.imposta_testo = "ciao"
'********************************
End Sub
Private Sub Form1_FormClosing(sender As System.Object, _
e As System.Windows.Forms.FormClosingEventArgs) _
Handles MyBase.FormClosing
If modifica = True Then
If MessageBox.Show("Chiudere senza salvare?", _
"", MessageBoxButtons.OKCancel, _
MessageBoxIcon.Question) = DialogResult.Cancel Then
e.Cancel = True
End If
End If
End Sub
End Class
..."ciao"...