Discussion :

[asmar]

slt je vien de commencer la programation evenementille en vb 2008 et j'ai un tp et a chaque fois je rencontre la procedure ci-dessous mais je comprend pa a koi ça
sert s'il ya quelqun qui peut m'expliquer a koi ça sert je serai tres reconnaissante merci d'avance.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub

[Pol63]

dispose sert à libérer la mémoire prise par les objets non managés
un objet non managé est un objet qui n'appartient pas à .net

par exmple, une image est géré par l'OS, les controles ont aussi un handle géré par l'OS

les classes que tu écriras seront à priori forcément managés, donc tu n'as jamais besoin d'écrire de dispose, c'est justes certaines classes du framework qui en ont besoin

.net a un mécanisme de libération de la mémoire qui s'occupe de tout
appeler dispose sur une instance quand on ne s'en sert plus libère la mémoire plus vite, mais de toute facon ca sera libéré automatiquement à un moment ou à un autre

pour tout ce qui est managé, le fait ne n'avoir aucune référence sur une instance fait que la mémoire qu'il prend va être libérée (pas immédiatement mais automatiquement)

[asmar]

merci encore une fois pour ta reponse mais est ce ke tu peu m'expliquer une autre procedure ke je comprend pa
La liste des contrôles est la suivante :
n° type nom rôle
1 TextBox txtMultiLignes champ de saisie multilignes
2 TextBox txtAjout champ de saisie monoligne
3 Button btnAjouter Ajoute le contenu de 2 à 1
et deux procedure qui gerent ses controles
la premiere qui ajoute le contenu de txtAjout à celui de txtMultilignes
' évt btnAjouter_Click

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub btnAjouter_Click1(ByVal sender As Object, ByVal e As System.EventArgs) _ 
Handles btnAjouter.Click 
txtMultilignes.Text &= txtAjout.Text 
txtAjout.Text = "" 
End Sub

et la suivante ke je comprend pa :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub txtAjout_TextChanged1(ByVal sender As Object, ByVal e As System.EventArgs) _ 
Handles txtAjout.TextChanged 
btnAjouter.Enabled = txtAjout.Text.Trim() <> "" 
End Sub

[Pol63]

btnAjouter.Enabled est un booléen qui dit si le bouton est utilisable (grisé et non cliquable si False)
tout test avec opérateur produit un booléen
txtAjout.Text.Trim() <> "" retourne true si le texte n'est vide (contient des caractères)
(trim sert à retirer les espaces à gauche et à droite)

normalement on rajoute une parenthèse pour mieux voir l'effet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

btnAjouter.Enabled = (txtAjout.Text.Trim() <> "")