-
Notifications
You must be signed in to change notification settings - Fork 3
/
Girabase.frm
776 lines (684 loc) · 24 KB
/
Girabase.frm
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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.MDIForm MDIGirabase
BackColor = &H8000000C&
Caption = "Girabase"
ClientHeight = 8310
ClientLeft = 165
ClientTop = -555
ClientWidth = 11400
Icon = "Girabase.frx":0000
LinkTopic = "MDIForm1"
StartUpPosition = 2 'CenterScreen
WindowState = 2 'Maximized
Begin MSComctlLib.ImageList ilsFile
Left = 240
Top = 2040
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 4
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Girabase.frx":030A
Key = "imgNew"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Girabase.frx":041C
Key = "imgOpen"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Girabase.frx":052E
Key = "imgSave"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Girabase.frx":0640
Key = "imgPrint"
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar tbrFile
Align = 1 'Align Top
Height = 420
Left = 0
TabIndex = 0
Top = 0
Width = 11400
_ExtentX = 20108
_ExtentY = 741
ButtonWidth = 609
ButtonHeight = 582
AllowCustomize = 0 'False
Appearance = 1
ImageList = "ilsFile"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 4
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "btnNew"
Object.ToolTipText = "Nouveau"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "btnOpen"
Object.ToolTipText = "Ouvrir"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "btnSave"
Object.ToolTipText = "Enregistrer"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "btnPrint"
Object.ToolTipText = "Imprimer"
ImageIndex = 4
EndProperty
EndProperty
End
Begin MSComDlg.CommonDialog dlgImprimer
Left = 240
Top = 1320
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
End
Begin MSComDlg.CommonDialog dlgFichier
Left = 240
Top = 600
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
DefaultExt = "Gbs"
Filter = "Giratoire(*.gbs)-*.gbs"
End
Begin VB.Menu mnuBarre
Caption = "&Fichier"
Index = 0
Begin VB.Menu mnuFichier
Caption = "&Nouveau giratoire"
Index = 0
Shortcut = ^N
End
Begin VB.Menu mnuFichier
Caption = "&Ouvrir un giratoire..."
Index = 1
Shortcut = ^O
End
Begin VB.Menu mnuFichier
Caption = "&Fermer"
Index = 2
End
Begin VB.Menu mnuFichier
Caption = "&Enregistrer"
Index = 3
Shortcut = ^S
End
Begin VB.Menu mnuFichier
Caption = "Enregistrer &sous..."
Index = 4
End
Begin VB.Menu mnuFichier
Caption = "-"
Index = 5
End
Begin VB.Menu mnuFichier
Caption = "Importer des &trafics..."
Index = 6
End
Begin VB.Menu mnuFichier
Caption = "-"
Index = 7
End
Begin VB.Menu mnuFichier
Caption = "&Configuration de l'impression ..."
Index = 8
End
Begin VB.Menu mnuFichier
Caption = "Im&primer ..."
Index = 9
Shortcut = ^P
End
Begin VB.Menu mnuFichier
Caption = "-"
Index = 10
End
Begin VB.Menu mnuSelect
Caption = ""
Index = 0
Visible = 0 'False
End
Begin VB.Menu mnuSelect
Caption = ""
Index = 1
Visible = 0 'False
End
Begin VB.Menu mnuSelect
Caption = ""
Index = 2
Visible = 0 'False
End
Begin VB.Menu mnuSelect
Caption = ""
Index = 3
Visible = 0 'False
End
Begin VB.Menu mnuSelect
Caption = "-"
Index = 4
Visible = 0 'False
End
Begin VB.Menu mnuQuit
Caption = "&Quitter"
End
End
Begin VB.Menu mnuBarre
Caption = "&Site"
Index = 1
Begin VB.Menu mnuSite
Caption = "&Décrire"
Index = 0
End
Begin VB.Menu mnuSite
Caption = "Di&mensionner"
Index = 1
End
Begin VB.Menu mnuSite
Caption = "&Editer une branche"
Index = 2
Begin VB.Menu mnuBranche
Caption = "&1"
Index = 0
End
Begin VB.Menu mnuBranche
Caption = "&2"
Index = 1
Visible = 0 'False
End
Begin VB.Menu mnuBranche
Caption = "&3"
Index = 2
Visible = 0 'False
End
Begin VB.Menu mnuBranche
Caption = "&4"
Index = 3
Visible = 0 'False
End
Begin VB.Menu mnuBranche
Caption = "&5"
Index = 4
Visible = 0 'False
End
Begin VB.Menu mnuBranche
Caption = "&6"
Index = 5
Visible = 0 'False
End
Begin VB.Menu mnuBranche
Caption = "&7"
Index = 6
Visible = 0 'False
End
Begin VB.Menu mnuBranche
Caption = "&8"
Index = 7
Visible = 0 'False
End
End
Begin VB.Menu mnuSite
Caption = "&Redessiner"
Index = 3
Shortcut = ^R
End
Begin VB.Menu mnuSite
Caption = "-"
Index = 4
End
Begin VB.Menu mnuSite
Caption = "Angles"
Index = 5
End
End
Begin VB.Menu mnuBarre
Caption = "&Trafics"
Index = 2
Begin VB.Menu mnuTrafic
Caption = "&Nouvelle période"
Index = 0
End
Begin VB.Menu mnuTrafic
Caption = "&Supprimer"
Index = 1
End
Begin VB.Menu mnuTrafic
Caption = "&Renommer"
Index = 2
End
Begin VB.Menu mnuTrafic
Caption = "&Editer"
Index = 3
End
Begin VB.Menu mnuTrafic
Caption = "-"
Index = 4
End
Begin VB.Menu mnuTrafic
Caption = "&Inverser les trafics"
Index = 5
End
Begin VB.Menu mnuTrafic
Caption = "&Multiplier les trafics"
Index = 6
End
Begin VB.Menu mnuTrafic
Caption = "-"
Index = 7
End
Begin VB.Menu mnuTrafic
Caption = "&Diagrammes de flux"
Index = 8
Shortcut = ^D
End
End
Begin VB.Menu mnuBarre
Caption = "&Capacité"
Index = 3
Begin VB.Menu mnuResult
Caption = "&Calculer"
Index = 0
Shortcut = {F5}
End
End
Begin VB.Menu mnuBarre
Caption = "Fe&nêtre"
Index = 4
WindowList = -1 'True
Begin VB.Menu mnuFenetre
Caption = "&Cascade"
Index = 0
End
Begin VB.Menu mnuFenetre
Caption = "Mosaïque &horizontale"
Index = 1
Visible = 0 'False
End
Begin VB.Menu mnuFenetre
Caption = "Mosaique &verticale"
Index = 2
Visible = 0 'False
End
End
Begin VB.Menu mnuBarre
Caption = "&?"
Index = 5
Begin VB.Menu mnuAide
Caption = "&Sommaire"
Index = 0
End
Begin VB.Menu mnuAide
Caption = "A&ide sur..."
Index = 1
Shortcut = {F1}
End
Begin VB.Menu mnuAide
Caption = "&Rechercher..."
Index = 2
End
Begin VB.Menu mnuAide
Caption = "-"
Index = 3
End
Begin VB.Menu mnuAide
Caption = "A &propos de "
Index = 4
End
Begin VB.Menu mnuHelpBar2
Caption = "-"
End
Begin VB.Menu mnuLicence
Caption = "&Licence"
End
End
End
Attribute VB_Name = "MDIGirabase"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'******************************************************************************
'*
'* Projet GIRABASE - CERTU - CETE de l'Ouest
'*
'* Module de feuille MDI : GIRABASE.FRM - MDIGirabase
'*
'* Feuille MDI de GIRABASE
'*
'* Menu de l'application
'*
'******************************************************************************
Option Explicit
'*** CONSTANTES DE CHAINE Susceptibles d'être traduites ********************
Const IDm_FichierManquant = "Fichier introuvable"
Const IDm_FichierEffacé = "Il doit avoir été effacé ou changé de dossier"
'Const IDm_MRUFichierDisparu = "Fichier introuvable" & vbCrLf & vbCrLf & "Il doit avoir été effacé ou changé de dossier"
'***************************************************************************
Public Cascade As Boolean
'*************************************************************************************
' Chargement de la feuille principale MDI
'*************************************************************************************
Private Sub MDIForm_Load()
On Error GoTo TraitementErreur
With Screen
Me.Move 0, 0, .Width, .Height - 100
End With
' Inactivation de la plupart des options du menu
GriserMenus False
Caption = App.Title
'mnuAide(3).Caption = mnuAide(3).Caption & App.Title & "..."
App.HelpFile = App.Path + "\" + HELPNAME
dlgFichier.Filter = IDl_Giratoire & " (*.gbs)|*.gbs"
dlgFichier.DefaultExt = ".gbs"
dlgFichier.HelpFile = App.HelpFile
mnuFichier(0).HelpContextID = IDhlp_Nouveau
mnuFichier(1).HelpContextID = IDhlp_Ouvrir
mnuFichier(6).HelpContextID = IDhlp_ImportMatrice
mnuFichier(8).HelpContextID = IDhlp_ConfigImprimante
mnuFichier(9).HelpContextID = IDhlp_Imprimer
mnuSite(0).HelpContextID = IDhlp_OngletSite
mnuSite(1).HelpContextID = IDhlp_OngletDimensionnement
mnuSite(2).HelpContextID = IDhlp_CarBranche
mnuSite(3).HelpContextID = IDhlp_Graphique
mnuTrafic(0).HelpContextID = IDhlp_NewPériode
mnuTrafic(1).HelpContextID = IDhlp_DelPériode
mnuTrafic(2).HelpContextID = IDhlp_RenamePériode
mnuTrafic(3).HelpContextID = IDhlp_OngletTrafic
mnuTrafic(5).HelpContextID = IDhlp_InversPériode
mnuTrafic(6).HelpContextID = IDhlp_MultPériode
mnuTrafic(8).HelpContextID = IDhlp_DiagramFlux
mnuResult(0).HelpContextID = IDhlp_Résultats
dlgImprimer.Orientation = Printer.Orientation
'Mise à jour de l'ihm du à QLM
Call InitQlm
Exit Sub
TraitementErreur:
ErreurFatale
End Sub
'*************************************************************************************
' Déchargement de la feuille principale MDI
'*************************************************************************************
Private Sub MDIForm_Unload(Cancel As Integer)
Dim i As Integer
Dim MySettings As Variant
On Error GoTo GestErr
If gbFichierJournal Then
Write #gbFichLog, "Fin de Girabase"
Close #gbFichLog
End If
For i = 0 To UBound(gbMRUFichiers)
SaveSetting Appname:=App.Title, Section:="Recent Files", _
Key:="File" & CStr(i + 1), Setting:=gbMRUFichiers(i)
Next
' Suppression dans la registry des fichiers effacés (à reprendre en même temps que MRUmenu)
MySettings = GetAllSettings(Appname:=App.Title, Section:="Recent Files")
If Not IsEmpty(MySettings) Then
For i = UBound(gbMRUFichiers) + 1 To UBound(MySettings, 1)
DeleteSetting App.Title, "Recent Files", MySettings(i, 0)
Next
End If
'Indispensable pour que la procédure Main s'arrête si erreur de protection
End
Exit Sub
GestErr:
If Err = 9 Then
' Ubound est en erreur, car on n'a pas encore initialisé le projet
Exit Sub
Else
ErreurFatale
End If
End Sub
'*************************************************************************************
'Menu Aide
'*************************************************************************************
Private Sub mnuAide_Click(Index As Integer)
Dim retour%
Dim objHelp As CHelp
Set objHelp = New CHelp
Select Case Index
Case 0 'Aide Sommaire
Call objHelp.Show(App.HelpFile, "Main")
Case 1 'Aide sur
'Modif fait par Frank Trifiletti on utilise le contextid de la fenêtre étude en cours
'qui est dans la globale monetude dont son helpcontextid est mis à jour dans la sub ChangerHelpId
'qui est appellé à chaque Form_Activate et dans le TabData_Click de frmDocument.frm
'car le contextid était toujours nulle avec showindex normal on ne le passe pas en argument.
If gbProjetActif Is Nothing Then
'Cas d'appel de F1 si aucun étude ouverte sinon plantage
'Onglet Index supprimé!!!
'Call objHelp.ShowIndex(App.HelpFile, "Main")
Call objHelp.Show(App.HelpFile, "Main")
Else
Call objHelp.Show(App.HelpFile, "Main", Me.HelpContextID)
End If
'Fin modif F.Trifiletti
Case 2 'Aide rechercher
Call objHelp.ShowSearch(App.HelpFile, "Main")
Case 4 'A propos de Girabase
frmApropos.Show 1
End Select
Set objHelp = Nothing
End Sub
Private Sub mnuBarre_Click(Index As Integer)
If gbGiratoires.count > 0 Then
gbProjetActif.Données.VerifieDonnée
Journal "Menu", mnuBarre(Index).Caption
End If
End Sub
'*************************************************************************************
'Menu Branche
'*************************************************************************************
Private Sub mnuBranche_Click(Index As Integer)
Journal "Menu", mnuBranche(Index).Caption
DessinGiratoire.SelectBranche Index + 1
frmCarBranche.Show vbModal
End Sub
'*************************************************************************************
'Menu Fenêtre
'*************************************************************************************
Private Sub mnuFenetre_Click(Index As Integer)
'Menu fenêtre
Dim Feuille As Form
Set Feuille = Screen.ActiveForm
Cascade = True
Arrange Index
DoEvents
Cascade = False
Feuille.Form_Activate
End Sub
'*************************************************************************************
'Menu Fichier : Nouveau - Ouvrir - Enregistrer - Imprimer
'*************************************************************************************
Private Sub mnuFichier_Click(Index As Integer)
Dim flag As Integer
Journal "Menu", mnuFichier(Index).Caption
On Error GoTo TraitementErreur
Select Case Index
Case 0 'Nouveau giratoire
frmParam.Show vbModal
Case 1 'Ouvrir un giratoire
Ouvrir PourImportMatrice:=False ' False : Ouverture normale d'un giratoire
Case 2 'Fermer (le giratoire courant)
Unload gbProjetActif.Données
Case 3 'Enregistrer le giratoire
'Enregistrer la date de modification
gbProjetActif.Enregistrer flag ' en retour, flag reçoit True si l'enregistrement est abandonné
Case 4 'Enregistrer le giratoire sous
gbProjetActif.EnregSous flag ' en retour, flag reçoit True si l'enregistrement est abandonné
Case 6 'Importer une matrice
Ouvrir PourImportMatrice:=True ' True : pour indiquer le simple import de matrice
Case 8 'Configuration de l'impression
ShowPrinter Me
' ConfigImprimante
Case 9 'Imprimer
frmImprimer.Show vbModal
End Select
Exit Sub
ErrImpr:
If Err = cdlCancel Then
' L'utilisateur a fait 'Annuler
Resume Next
Else
ErreurFatale
End If
Exit Sub
TraitementErreur:
ErreurFatale
End Sub
Private Sub mnuLicence_Click()
frmKey.Show 1
'Mise à jour de l'ihm
Call InitQlm
End Sub
'*************************************************************************************
'Menu Fichier : Quitter
'*************************************************************************************
Private Sub mnuQuit_Click()
'Quitte l'application
Unload Me
End Sub
Private Sub mnuResult_Click(Index As Integer)
Journal "Menu", mnuResult(Index).Caption
Select Case Index
Case 0 ' Calcul de capacité
'Déclenche l'affichage des résultats si les données sont valides
If gbProjetActif.Données.ValiderFeuilleDonnées Then
If gbProjetActif.CalculFait Then
gbProjetActif.Résultats.SetFocus
ElseIf gbProjetActif.colTrafics.Uncomplet Then
gbProjetActif.CalculCapacité
End If
End If
Case 1 ' Affichage de la fenêtre Résultats
gbProjetActif.Résultats.SetFocus
End Select
End Sub
'*************************************************************************************
'Menu Fichier : Choix dans la liste des derniers fichiers utilisés
'*************************************************************************************
Private Sub mnuSelect_Click(Index As Integer)
Dim NomFich As String
Journal "Menu", mnuSelect(Index).Caption
NomFich = gbMRUFichiers(Index)
If ExistFich(NomFich) Then
dlgFichier.FileName = NomFich
gbCreFille NomFich
Else ' En principe, çà ne devrait pas arriver, le controle d'existence étant fait au chargement de GIRABASE dans MRUMenu (GIRABASEMAIN.BAS)
MsgBox concatLignes(NomFich, IDm_FichierManquant, "", IDm_FichierEffacé), vbOKOnly + vbExclamation
End If
End Sub
Private Sub mnuSite_Click(Index As Integer)
Journal "Menu", mnuSite(Index).Caption
Select Case Index
Case 0 ' Onglet Site
gbProjetActif.Données.tabDonnées.Tab = 0
Case 1 ' Onglet Dimensionnement
gbProjetActif.Données.tabDonnées.Tab = 1
Case 3 ' Redessiner le giratoire
gbProjetActif.Données.Redess
Case 5 ' Changer d'unité d'angle
gbProjetActif.ChangeUnitéAngle
End Select
End Sub
Private Sub mnuTrafic_Click(Index As Integer)
Dim numPériode As Integer
Dim nomPériode As String
Dim wTrafic As TRAFIC
Journal "Menu", mnuTrafic(Index).Caption
With gbProjetActif
numPériode = .Données.cboPériode.ListIndex + 1
If numPériode > 0 Then Set wTrafic = .colTrafics.Item(numPériode)
End With
' Debug----> Ce test deviendra inutile (sera géré par GriserMenus)
If numPériode = 0 And Index <> 0 Then Exit Sub
Select Case Index
Case 0 ' Nouvelle période
gbProjetActif.newPériode DrapeauMenu:=True ' True Indique que l'appel vient du menu
Case 1 ' Supprimer période
gbProjetActif.delPériode wTrafic
Case 2 ' Renommer période
gbProjetActif.renamePériode wTrafic
Case 3 ' Editer période
gbProjetActif.Données.tabDonnées.Tab = 2
Case 5 ' Inverser la matrice
gbProjetActif.inversPériode wTrafic
Case 6 ' Multiplier la matrice
gbProjetActif.multPériode wTrafic
Case 8 ' Calcul du diagramme de flux
If mnuTrafic(Index).Checked Then
mnuTrafic(Index).Checked = False
gbProjetActif.Données.AfficheDiagramflux False
Else
mnuTrafic(Index).Checked = True
gbProjetActif.Données.AfficheDiagramflux True
wTrafic.CalculDiagramFlux
End If
End Select
End Sub
'*************************************************************************************
' Ouvrir un giratoire : cette procédure peut à la rigueur être mise dans GirabaseMain
'*************************************************************************************
Private Sub Ouvrir(ByVal PourImportMatrice As Boolean)
Dim Cancel As Boolean
On Error GoTo TraitementErreur
With dlgFichier
.InitDir = App.Path
.flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly Or cdlOFNNoChangeDir
.ShowOpen
If Not Cancel Then
If PourImportMatrice Then
ImportMatrice .FileName
Else
gbCreFille .FileName
End If
Else
Screen.ActiveForm.SetFocus
End If
End With
Exit Sub
TraitementErreur: ' L'utilisateur a fait 'Annuler
Cancel = True
Resume Next
End Sub
Private Sub tbrFile_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "btnNew"
mnuFichier_Click 0
Case "btnOpen"
mnuFichier_Click 1
Case "btnSave"
mnuFichier_Click 3
Case "btnPrint"
mnuFichier_Click 9
End Select
End Sub
'Code pour modifier l'ihm suite à l'implémentation de Qlm
Private Sub InitQlm()
'Initialisation des menus modifiés par QLM
'les variables globales sont maj par protection.bas
'ATTENTION : vérifier les noms des menus!!!
Me.mnuHelpBar2.Visible = GvisibiliteMnuBarre
Me.mnuLicence.Visible = GvisibiliteMnuLicence
'a adapter en fonction du clogiciel
Me.Caption = "Girabase v" + Format(App.Major) + "." + Format(App.Minor) + "." + Format(App.Revision) + GmodifTitreApplication
#If GIRAWAL Then
Me.Caption = Me.Caption + " - version Wallonne"
#End If
'fin initialisation qlm
End Sub