Conception et mise en place d'une encyclopédie de zoologie en deuxième secondaire

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

¹

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