1. Imports System.Windows.Forms
2. Imports System.Drawing
3.  
4. 'Module ModUtilitaires
5. 'Ce module contient des operations générales
6. '------------------------------------------------------
7.  
8. Public Module ModUtilitaires
9.  
10.     Public Sub SetModified(ByRef ioFrmnName As Form, ByVal iValue As Boolean)
11.         'Cette fonction permet d'initiliaser la valeur indiquant si
12.         'un text box a été modifié ou nom
13.         '           -- iValue   Vrai ou Faux
14.         '-----------------------------------------------------------
15.  
16.         'Parcourir la liste des controls
17.         For Each ctrl In ioFrmnName.Controls
18.             CheckValueModified(ioFrmnName, iValue)
19.         Next
20.     End Sub
21.  
22.     Private Sub CheckValueModified(ByRef ctrlParent As Control, ByVal iValue As Boolean)
23.         'Si le control contient d'autres controls
24.         If ctrlParent.Controls.Count > 0 Then
25.             'Appel récursif sur chaque control
26.             For Each ctrlChild In ctrlParent.Controls
27.                 CheckValueModified(ctrlChild, iValue)
28.             Next
29.         End If
30.         'Si le control est un text box alors initialiser la valeur
31.         If TypeOf ctrlParent Is TextBox Then
32.             CType(ctrlParent, TextBox).Modified = iValue
33.         End If
34.         'Si le control est un text box alors initialiser la valeur
35.         If TypeOf ctrlParent Is RichTextBox Then
36.             CType(ctrlParent, RichTextBox).Modified = iValue
37.         End If
38.     End Sub
39.  
40.     ''' <summary>
41.     ''' Cette fonction permet de vider les zones de saisie de texte d'une form
42.     ''' </summary>
43.     ''' <param name="ioFrmName">form contenant les contrôles</param>
44.     ''' <remarks></remarks>
45.     Public Sub ClearFields(ByRef ioFrmName As Form)
46.         'Parcourir la liste des controls
47.         For Each ctrl In ioFrmName.Controls
48.             ClearTextBox(ctrl)
49.         Next
50.     End Sub
51.  
52.     Private Sub ClearTextBox(ByVal ctrlParent As Control)
53.         'Si le control contient d'autres controls
54.         If ctrlParent.Controls.Count > 0 Then
55.             'Appel récursif sur chaque control
56.             For Each ctrlChild In ctrlParent.Controls
57.                 ClearTextBox(ctrlChild)
58.             Next
59.         End If
60.         'Si le control est un text box alors le vider
61.         If TypeOf ctrlParent Is TextBox Or _
62.                   TypeOf ctrlParent Is RichTextBox Then
63.             ctrlParent.Text = ""
64.         End If
65.     End Sub
66.  
67.     ''' <summary>
68.     ''' Cette fonction permet d'associer des évènements sur les text box
69.     ''' de la form quand ceux ci ont ou non le focus
70.     ''' </summary>
71.     ''' <param name="ioFrmName">la form</param>
72.     ''' <remarks></remarks>
73.     Public Sub BackgroundSelection(ByRef ioFrmName As Form)
74.         'Parcourir la liste des controls
75.         For Each ctrl In ioFrmName.Controls
76.             AssignEvent(ctrl)
77.         Next
78.     End Sub
79.  
80.     ''' <summary>
81.     ''' Fonction permettant d'assigner les évènements GotFocus et LostFocus aux text box
82.     ''' d'une forme.
83.     ''' La couleur de fond devient jaune sur le focus et blanche sans le focus
84.     ''' </summary>
85.     ''' <param name="ctrlParent"> Control à vérifier pour l'assignation des évènements</param>
86.     ''' <remarks>
87.     ''' C'est une fonction récursive car le ctrlParent peut lui aussi contenir d'autres controls
88.     ''' Comme dans le cas d'un panneau qui contient plusieurs controls
89.     ''' </remarks>
90.     Private Sub AssignEvent(ByRef ctrlParent As Control)
91.         'Si le control contient d'autres controls
92.         If ctrlParent.Controls.Count > 0 Then
93.             'Appel récursif sur chaque control
94.             For Each ctrlChild In ctrlParent.Controls
95.                 AssignEvent(ctrlChild)
96.             Next
97.         End If
98.  
99.         'Si le control est un text box alors assigner les événements GotFocus et LostFocus
100.         If TypeOf ctrlParent Is TextBox Then
101.             AddHandler CType(ctrlParent, TextBox).GotFocus, AddressOf GotFocus
102.             AddHandler CType(ctrlParent, TextBox).LostFocus, AddressOf LostFocus
103.         End If
104.     End Sub
105.  
106.     ''' <summary>
107.     ''' Évenement associé à un text box lorsque celui ci a le focus
108.     ''' La couleur de fond devient jaune
109.     ''' </summary>
110.     ''' <param name="sender"></param>
111.     ''' <param name="e"></param>
112.     ''' <remarks></remarks>
113.     Private Sub GotFocus(ByVal sender As Object, ByVal e As System.EventArgs)
114.         If CType(sender, TextBox).ReadOnly = False Then
115.             sender.BackColor = Color.Yellow
116.             CType(sender, TextBox).SelectAll()
117.         End If
118.     End Sub
119.  
120.     ''' <summary>
121.     ''' Évenement associé à un text box lorsque celui ci n'a pas le focus
122.     ''' La couleur de fond devient blanche
123.     ''' </summary>
124.     ''' <param name="sender"></param>
125.     ''' <param name="e"></param>
126.     ''' <remarks></remarks>
127.     Private Sub LostFocus(ByVal sender As Object, ByVal e As System.EventArgs)
128.         sender.BackColor = Color.White
129.     End Sub
130.  
131.     ''' <summary>
132.     ''' Cette fonction permet de rendre éditable un control
133.     ''' </summary>
134.     ''' <param name="ioFrmName">form contenant les contrôles</param>
135.     ''' <param name="iException">liste des noms de contrôles à ne pas tenir compte</param>
136.     ''' <param name="iEnabled">valeur indiquant l'état du contrôle</param>
137.     ''' <remarks></remarks>
138.     Public Sub EnableControls(ByRef ioFrmName As Form, _
139.                               ByVal iException As ArrayList, _
140.                               ByVal iEnabled As Boolean)
141.         'Parcourir la liste des controls
142.         For Each ctrl In ioFrmName.Controls
143.             'obtenir le nom du contrôle
144.             Dim sCtrlName As String
145.             sCtrlName = ctrl.Name
146.  
147.             Enabled(ctrl, iException, iEnabled)
148.         Next
149.  
150.     End Sub
151.  
152.     Private Sub Enabled(ByRef ctrlParent As Control, _
153.                               ByVal iException As ArrayList, _
154.                               ByVal iEnabled As Boolean)
155.  
156.         If iException.Contains(ctrlParent.Name) Then
157.             Return
158.         End If
159.  
160.         'Si le control contient d'autres controls
161.         If ctrlParent.Controls.Count > 0 Then
162.             'Appel récursif sur chaque control
163.             For Each ctrlChild In ctrlParent.Controls
164.                 Enabled(ctrlChild, iException, iEnabled)
165.             Next
166.         End If
167.  
168.            'Rendre éditable ou non un contrôle
169.         If TypeOf ctrlParent Is TextBox Then
170.             CType(ctrlParent, TextBox).ReadOnly = Not iEnabled
171.         End If
172.  
173.         If TypeOf ctrlParent Is RichTextBox Then
174.             CType(ctrlParent, RichTextBox).ReadOnly = Not iEnabled
175.         End If
176.  
177.         If TypeOf ctrlParent Is ComboBox Then
178.             ctrlParent.Enabled = iEnabled
179.         End If
180.  
181.         If TypeOf ctrlParent Is UIComboBox Then
182.             CType(ctrlParent, UIComboBox).ReadOnly = Not iEnabled
183.         End If
184.  
185.         If TypeOf ctrlParent Is CalendarCombo Then
186.             CType(ctrlParent, CalendarCombo).ReadOnly = Not iEnabled
187.         End If
188.     End Sub
189.  
190.     ''' <summary>
191.     ''' Fonction permettant de vérifier si une valeur est nulle
192.     ''' </summary>
193.     ''' <param name="obj"></param>
194.     ''' <param name="ObjectType"></param>
195.     ''' <returns></returns>
196.     ''' <remarks></remarks>
197.     Public Function CheckDBNull(ByVal obj As Object, _
198.                                Optional ByVal ObjectType As enumObjectType = enumObjectType.StrType) _
199.                                As Object
200.         Dim objReturn As Object
201.         objReturn = obj
202.  
203.         If IsDBNull(obj) Then
204.             Select Case ObjectType
205.                 Case enumObjectType.StrType
206.                     objReturn = ""
207.                 Case enumObjectType.IntType
208.                     objReturn = 0
209.                 Case enumObjectType.DblType
210.                     objReturn = 0.0
211.                 Case enumObjectType.DateType
212.                     objReturn = Nothing
213.             End Select
214.         End If
215.        
216.         Return objReturn
217.     End Function
218.  
219.     Public Function AfficherMessage(ByVal iTypeMessage As MessageType, _
220.                                     Optional ByVal iMessage As String = "") As Boolean
221.  
222.         Select Case iTypeMessage
223.             Case MessageType.Sauvegarde
224.                 Return MessageBox.Show("Vous avez effectué des modifications. Voulez-vous les enregistrer avant de continuer ?", _
225.                            "Sauvegarde des données", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = kOui
226.  
227.             Case MessageType.Suppression
228.                 Return MessageBox.Show(kSuppression.Replace("{replace}", iMessage), _
229.                             "Confirmation de suppression", _
230.                             MessageBoxButtons.YesNo) = kOui
231.  
232.             Case MessageType.PerteModifications
233.                 Return MessageBox.Show("Vous allez perdre vos modifications. Voulez vous continuer ? ", _
234.                             "Sauvegarde des données", _
235.                             MessageBoxButtons.YesNo) = kOui
236.  
237.             Case MessageType.Inexistant
238.                 Return True
239.  
240.             Case MessageType.EcritureConcurrente
241.                 MessageBox.Show("L'enregistrement a été modifié par un autre utilisateur. Vos  modifications seront perdues.", _
242.                            "Sauvegarde des données", MessageBoxButtons.OK, MessageBoxIcon.Warning)
243.                 Return True
244.         End Select
245.     End Function
246.  
247.     Public Sub TotalSelection(ByRef ioFrmName As Form)
248.         'Cette fonction permet de sélectionner tout le texte sur l'évènement de la souri
249.         'Paramètres :
250.         '           -- ioFrmnName   la forme
251.         '-----------------------------------------------------------
252.  
253.         'Parcourir la liste des controls
254.         For Each ctrl In ioFrmName.Controls
255.             'Si le control est un text box alors le vider
256.             If TypeOf ctrl Is TextBox Then
257.                 AddHandler CType(ctrl, TextBox).MouseDown, AddressOf GotFocus
258.             End If
259.         Next
260.     End Sub
261.  
262.     Public Function GetDate(ByVal iDate As Date, _
263.                             Optional ByVal iFormat As Microsoft.VisualBasic.DateFormat = Microsoft.VisualBasic.DateFormat.ShortDate) As Object
264.         Dim dateValue As New Object
265.  
266.         If iDate = Nothing Then
267.             Return ""
268.         End If
269.  
270.         Select Case iFormat
271.             Case Microsoft.VisualBasic.DateFormat.GeneralDate
272.                 dateValue = iDate.ToString
273.             Case Microsoft.VisualBasic.DateFormat.ShortDate
274.                 dateValue = iDate.ToShortDateString
275.             Case Microsoft.VisualBasic.DateFormat.ShortTime
276.                 dateValue = iDate.ToShortTimeString
277.             Case Microsoft.VisualBasic.DateFormat.LongDate
278.                 dateValue = iDate.ToLongDateString
279.             Case Microsoft.VisualBasic.DateFormat.LongTime
280.                 dateValue = iDate.ToLongTimeString
281.         End Select
282.  
283.         Return dateValue
284.     End Function
285.  
286.     Public Function GetBooleanFromValue(ByVal iValue As Integer) As Boolean
287.         If iValue = 1 Then
288.             Return True
289.         End If
290.  
291.         Return False
292.     End Function
293.     Public Function GetValueFromBoolean(ByVal iValue As Boolean) As Integer
294.         If iValue Then
295.             Return 1
296.         End If
297.  
298.         Return 0
299.     End Function
300.     Public Function SetDate(ByVal iDate As Object) As Object
301.         Dim value As Object
302.  
303.         value = IIf(iDate = Nothing OrElse iDate.ToString = "", Nothing, iDate)
304.         Return value
305.     End Function
306.  
307.     Public Function WriteNullValue(ByVal iDate As Object) As Object
308.         Dim value As Object
309.  
310.         value = IIf(iDate = Nothing OrElse iDate.ToString = "", DBNull.Value, iDate)
311.         Return value
312.  
313.     End Function
314. End Module