III.2.3.b) Legende
· Cliquez sur une de rubriques ou bien sur Pour
Plus d'information
· Choisissez un des menus pour suivre d'autres
recherches
· Aide vous donnes d'informations
III.2.3.c) codes
Private Sub MDIForm_Load()
'Pour le demarrage par defaut du frmchoix Frmchoix.Show
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
End
End Sub
Private Sub mnaide_Click()
'code pour acceder au formulaire aide Frmaide.Show
Me.Enabled = True
End Sub
Private Sub mnapro_Click() frmApropos.Show
End Sub
Private Sub
mnuinvert_Click()
Frminvert.Show
End Sub
Private Sub mnuQuitter_Click() 'Pour
quitter l'application
X = MsgBox("Etes vous sure de quitter l'application?",
vbCritical + vbYesNo + vbDefaultButton1, "Encyclopedie")
If X = vbYes Then
End
Else
End If
End Sub
Private Sub
mnuvert_Click()
Frmverte.Show
End Sub
Private Sub mnurenseignement_Click()
'Ouverture du formulaire choix dans le formulaire principal
Frmrenseignement.Show
Frmchoix.Hide
End Sub
III.2.3.3 FORMULAIRE RENSEIGNEMENT III.2.3.3.a)
Interface
3
1
2
III.2.3.3.b) Légende
· Cocher pour les informations des
vertébrés
· Cette rubrique permet de retrouver les informations
concernant les invertébrés
· Pour une notion d'élevage choisissez 3
III.2.3.c) les codes Private Sub
mnuprecedent_Click() Frmaccueil.Show
Me.Hide
End Sub
Private Sub mnupro_Click() frmApropos.Show
End Sub
Private Sub OptEleva_Click()
Frmelev.Show
Me.Hide End Sub
Private Sub OptInver_Click()
Frminvert.Show
Me.Hide End Sub
Private Sub OptVert_Click()
Frmverte.Show 'ouverture du formulaire
vertébré
Me.Hide 'masquage du formulaire renseignement
End Sub
III.2.3.4 FORMULAIRE VERTEBRE (frminvert)
3
1
III.2.3.4.a) Interface
2
5
4
| 
