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

III.2.3.4.b) Légende

> Cette zone de Text vous permet d'entrer le nom de l'animal de votre recherche > Ce bouton de Commande valide l'action

> Cet objet List t'oriente à mener rapidement la recherche

> Ce RichTextBox affiche le détail de l'espèce trouvé.

> Dans cette rubrique (Picture) s'affiche l'illustration

III.2.3.4.c) codes

'Déclaration générale pour la recherche

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long

Const a = &H18F

'Declaration de variables pour la connexion à la base des données

Dim db As New ADODB.Connection

'Declaration pour les enregistrements

Dim tb As New ADODB.Recordset

Private Sub Cmd1_Click()

'Pour exécuter la recherche

Rtfdetvert.Visible = True

tb.ActiveConnection = db

tb.Source = "select * from T_animalvertebres where nomanimal = '" & List2.Text &

tb.Open

Rtfdetvert.Text = tb("detailanimal")

Picture1.Picture = LoadPicture(tb("Illustranimal"))

Picture1.Visible = True

Combo1.Text = List2.Text

tb.Close End Sub

Private Sub Combo1_Change()

'Activer la liste On Error Resume Next

If Combo1.Text <> "" Then List2.Visible = True

WindowsMediaPlayer1.Visible = False

WindowsMediaPlayer1.Close

lblcacher.Visible = False Else

List2.Visible = False Rtfdetvert.Visible = False

Picture1.Visible = False End If

List2.ListIndex = SendMessage(List2.hWnd, a, -1, ByVal CStr(Combo1.Text))

End Sub

Private Sub Command1_Click() Combo1.Text = ""

Picture1.Visible = False

List2.Visible = True

Combo1.Visible = True

Rtfdetvert.Visible = False

Cmd1.Enabled = True

End Sub

Private Sub Form_Load()

WindowsMediaPlayer1.Close

WindowsMediaPlayer1.Visible = False

'Pour Créer la connexion de la base de données

Dim a As String

Picture1.Visible = False

Rtfdetvert.Visible = False

db.Provider = "Microsoft.Jet.OLEDB.4.0"

db.ConnectionString = App.Path & "\essai.mdb"

db.Open With tb

.ActiveConnection = db

.CursorLocation = adUseClient

.CursorType = adOpenDynamic

.LockType = adLockOptimistic

.Open "select * from T_animalvertebres", db

Do Until tb.EOF = True

List2.AddItem tb("nomanimal")

tb.MoveNext

Loop

.Close

End With End Sub

Private Sub lblcacher_Click()

'Commande pour cacher le lecteur vidéo WindowsMediaPlayer1.Visible = False

WindowsMediaPlayer1.Close

lblcacher.Visible = False

End Sub

Private Sub List2_DblClick()

'Affichage de la liste des noms de la base de données

Rtfdetvert.Visible = True

tb.ActiveConnection = db

tb.Source = "select * from T_animalvertebres where nomanimal = '" & List2.Text & tb.Open

Rtfdetvert.Text = tb("detailanimal")

Picture1.Picture = LoadPicture(tb("Illustranimal"))

Picture1.Visible = True

Combo1.Text = List2.Text

tb.Close End Sub

Private Sub mnuCopier_Click()

'Pour copier le texte de la zone de detail

If Rtfdetvert.Visible = False Then

mnuCopier.Enabled = False ElseIf Rtfdetvert.SelLength > 0 Then

Clipboard.SetText Rtfdetvert.SelText End If

End Sub

Private Sub mnuImprimer_Click()

'Pour imprimer le detail d'une espece If Rtfdetvert.SelLength = False Then

r = MsgBox("Selectionner le texte qui sera imprimé", vbCritical + vbYesNo, "Encyclopedie") Else

r = vbYes

CommonDialogprinter.ShowPrinter End If

End Sub

Private Sub mnuQuitter_ClickO 'Pour quitter l'application

End

End Sub

Private Sub mnuretour_Click()

'Pour retour

Frmverte.Show

Me.Hide End Sub

Private Sub mnusuivre_ClickO 'Pour afficher la vidéo

lblcacher.Visible = True

WindowsMediaPlayer1.Visible = True Picture1.Visible = False

List2.Visible = False

Rtfdetvert.Visible = False

End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

'Pour envoyer l'image dans le press papier

Clipboard.Clear

If Button = vbRightButton Then

PopupMenu mnuEdition

Clipboard.SetData Picture1.Image

End If

End Sub

Private Sub Rtfdetvert_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

'Pour le menu contectuel

If Button = vbRightButton Then

PopupMenu mnuEdition

'Texte sélectionné vers le presse-papier

ElseIf Rtfdetvert.SelLength > 0 Then

Clipboard.SetText Rtfdetvert.SelText

End If

End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer)

'code pour la touche Entrée

If KeyAscii = 13 Then

Rtfdetvert.Visible = True

tb.ActiveConnection = db

tb.Source = "select * from T_animalvertebres where nomanimal = '" & List2.Text &

If tb.EOF Then

MsgBox "Mot introuvable, Nous somme à la fin du fichier", vbExclamation Else

Rtfdetvert.Text = tb("detailanimal")

Picture1.Picture = LoadPicture(tb("Illustranimal"))

Picture1.Visible = True

Combo1.Text = List2.Text

End If

tb.Close

End If

III.2.3.5 MENU AIDE

III.2.3.5.1 FORMULAIRE APROPOS DE L'ENCYCLOPEDIE (frmAbout.frm) a)Interface

b)Legende

1' Le bouton Ok nous permet de quitter A propos

1' La commande System info vous donne accès au système

1' L'outil Contributeur vous donnes les contributeurs et dirigeant du présent travail

C) Codes

Private Sub cmdSysInfo_Click()

Call StartSysInfo `Pour aller la système d'information End Sub