janvier
2010
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 […]
janvier
2010
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 […]
janvier
2010
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 […]