1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
Module fonction
'--------- B D D ----------------
'renvoie l'emplacement où se trouve la BD
Public Function createChemin() As String
Dim chemin As String
Dim dbname As String = "Data_base"
Dim cheminApp As String = Application.StartupPath
cheminApp &= "\"
chemin = cheminApp & dbname & ".accdb"
'MessageBox.Show(chemin)
Return chemin
End Function
'Test si un fichier existe
' dans ce cas-là, test si la base existe à l'aide de son chemin
Public Function ExistBase() As Boolean
Return System.IO.File.Exists(createChemin())
End Function
'--------- FORMULAIRE -----------
'Message personnalisé de chaque form
Public Function Fermeture(ByVal fr As Form)
Return Not (MessageBox.Show("Voulez-vous quitter " & fr.Name, ".:: DEMANDE", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes)
End Function
'Affichage en fonction du formulaire
Public Sub Affichage(ByVal fr As Form, ByVal gb As GroupBox)
Select Case fr.Name
Case "connection"
AffichageConnection(gb)
End Select
End Sub
'Affiche ou pas les ctrl de la page Connection
Private Sub AffichageConnection(ByVal gb As GroupBox)
For Each ctrl In gb.Controls
ctrl.Enabled = False
If ctrl.Name = "Linscription" Then
ctrl.Enabled = True
End If
Next
End Sub
'vérifie si TextBox vide
Private Function TBvide(ByVal tb As TextBox) As Boolean
'return true si vide
Return tb.Text = ""
End Function
'vérifie si ComboBox vide
Private Function CBvide(ByVal cb As ComboBox) As Boolean
'return true si vide
Return cb.SelectedText = ""
End Function
'Parcours controls dans un GroupBox
Public Sub Verif_Ctrl(ByVal gb As GroupBox, ByRef ep As ErrorProvider)
'Pour chaque CTRL dans le GroupBox
For Each ctrl In gb.Controls
'Si le type est TextBox
If TypeOf ctrl Is TextBox Then
'Si fonction TBvide = true
If TBvide(ctrl) Then
ep.SetError(ctrl, "Champ " & ctrl.name & " vide !")
End If
'Si le type est ComboBox
ElseIf TypeOf ctrl Is ComboBox Then
'Si fonction TBvide = true
If CBvide(ctrl) Then
ep.SetError(ctrl, "Sélection " & ctrl.name & " vide !")
End If
End If
Next
End Sub
End Module |
