Blog édité par Le_Phasme

[VB.NET] Utilisation du With … End With

le_phasme — Wed, 27 Jan 2010 17:12:28 +0000

Si vous avez dans votre code une suite d’instruction du style:

Form1.TextBox1.BackColor= Red
Form1.TextBox1.Text="BoBo"
Form1.TextBox1.Visible= True

Pensez à utiliser With … End With :

With Form1.TextBox1
.BackColor= Red
.Text="BoBo"
.Visible= True
End With

Ceci permettra de gagner en performance car l’objet n’est pas ré-évalué à chaque fois et votre code gagnera en clarté !

Par exemple, dans un cas comme celui ci :

Me.txtSqf.Text = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptSqf.ToString
Me.txtNbP.Text = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptNbpeopleMin.ToString
Me.txtNbPMax.Text = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptNbpeoplemax.ToString
Me.txtFloor.Text = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptFloor.ToString
Me.chkTV.Checked = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptTv
Me.chkCable.Checked = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptCable
Me.chkVCR.Checked = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptVcr
Me.chkDVD.Checked = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptDvd
Me.chkStereo.Checked = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptStereo
Me.chkPhone.Checked = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptPhone
Me.chkFax.Checked = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptFax
Me.chkADSL.Checked = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptAdsl
Me.chkAC.Checked = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptAircond
Me.chkFirePl.Checked = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptFireplace
Me.chkWash.Checked = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptWasher
Me.chkDryer.Checked = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptDryer
Me.chkDish.Checked = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptDishwasher
Me.chkPets.Checked = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptPets
Me.chkSmok.Checked = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptSmoking
Me.chkElev.Checked = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptElevator
Me.chkPark.Checked = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptParking
Me.chkTerr.Checked = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptTerrace
Me.chkBalc.Checked = oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt.AptBalcony

Cela s’optimise de la facon suivante :

With oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt
txtSqf.Text = .AptSqf.ToString
…
chkBalc.Checked = .AptBalcony
End With

« oDossierAptFormGeneral.DossierAptForm.DossierApt.CurrentApt » est évalué 1 fois au lieu de 22 fois rien que pour cette portion de code et le code devient nettement plus agréable à lire !

[VB.NET] Implémenter la méthode Dispose dans une classe

le_phasme — Thu, 21 Jan 2010 10:04:37 +0000

La libération mémoire d’une classe lors de sa destruction peut être rendue quasi immédiate en implémentant une méthode dispose à cette classe.
Pour cette exemple, nous allons implémenter cette méthode dans une classe nommé ClsDossierRequest

Public Class ClsDossierRequest
Implements IDisposable

'Propriétés exemples
Private oDossierSearchRequest As Object
Private OLstElem as generic.list(of String)

Sub Dispose() Implements System.IDisposable.Dispose
oDossierSearchRequest=nothing
OlstElem.clear
End Sub

End Class

Et voila comment libérer plus rapidement la mémoire de votre application :

Public Class MaClasseParente

Private oMonDossierRequest as clsDossierRequest

Sub New
'On construit l'objet
oMonDossierRequest =new clsdossierrequest
'On libere l'objet
oMonDossierRequest.dispose
End sub

end Class

[VB.NET] Allez à l’essentiel !

le_phasme — Fri, 22 Jan 2010 12:13:42 +0000

Exemples d’optimisations divers VB.NET

Exemple 1 :

Function getAgentSessionNameByID(ByVal iAgentID As Integer) As String
Dim rqSessionName = (From Agent In dtct.Agent _
Where Agent.AgentID = iAgentID _
Select Agent.AgentSession).Single
Return rqSessionName
End Function

La variable semble vraiment inutile

Function getAgentSessionNameByID(ByVal iAgentID As Integer) As String
return (From Agent In dtct.Agent _
Where Agent.AgentID = iAgentID _
Select Agent.AgentSession).Single
End Function

Exemple 2 :

Etat :

Dim Test(5) As String
Dim Result as String
Test(0) = "A"
Test(1) = "B"
Test(2) = "C"
Test(3) = "D"
Test(4) = "E"

Nous cherchons à concaténer les chaines, on voit régulièrement :

Result=Test(0)& "-"&Test(1)& "-"&Test(2)& "-"&Test(3)& "-"&Test(4)

ou encore

Result=""
For i=0 to 4
Result=Result & "-" & Test(i)
Next

Mais on doit normalement employer tout simplement :

Result = String.Join("-", Test)

Exemple 3 :

Très fréquemment, on voit également :

Si MaCondition est vrai alors
MonObjet=vrai
sinon
MonObjet=Faux
Fin Si

If oLstAssocRqInt.IndexOf(Assoc) = iIndexDefaultMail Then
FicheInterv.SelectedEmail1 = True
End If

devrait en fait devenir :

FicheInterv.SelectedEmail1=(oLstAssocRqInt.IndexOf(Assoc) = iIndexDefaultMail)

J’espère que ces quelques exemples vous seront utiles.