voila j'explique, je viens de créer une base de données avec access, seulement il me manque juste une chose, que je n'arrive pas a faire, je souhaiterais qu'a l'ouverture de ma base, un message d'accueil du style "bienvenue" s'affiche pendant 10secondes pour laisser place au formulaire.
S'avez vous comment je peut faire?
Oui je sais. C'est idiot.. Mais tellement tentant.
Pour faire patienter l'usager généralement on fait un écran de démarrage (splash screen) durant quelques secondes tandis que "la machine" se met en place.
En effet, c'est à ce moment qu'il vaut mieux ouvrir en mode invisible quelques objets, l'utilisateur acceptant plus facilement un délai d'attente au début, ce qui ne sera pas le cas en cours de traitement. (Il suffira, au moment opportun de rendre visible les objets... En réseau on voit la différence)
Cet écran de démarrage est sans aucune source
(pas d'enregistrements-->recordset), d'ou chargement rapide.
Généralement on y insère une image, Les principales propriétés d'affichage du formulaire :
Affichage par défaut--->Mode simple
Affichage autorisé--->Formulaire
Menu Contextuel--->Non
Barres de défilement--->Aucune
Sélecteur d'enregistrement--->Non
Boutons de déplacement--->Non
Diviseurs d'enregistrements--->Non
Auto centrer--->Oui
Style bordure--->Aucun
Boite contrôle--->Non
Boutons MinMax--->Aucun
Bouton Fermer--->Non
Bouton Aide--->Non
Barre de menus--->=1
On va utiliser l'événement Sur minuterie avec la propriété Intervalle minuterie du formulaire pour le fermer après quelques secondes.
La valeur d' Intervalle minuterie est en millisecondes
1 seconde-->1000 millisecondes
Après avoir "peaufiné" notre formulaire; désirant le voir s'afficher pendant 10 secondes on inscrit dans intervalle minuterie--->10000; Et, toujours selon nos désirs voir s'ouvrir à sa fermeture notre formulaire répondant au doux nom de "frm_Suivant" nous inscrivons sur minuterie--> Procédure événementielle :
Private Sub Form_Timer()
DoCmd.Close
DoCmd.OpenForm "frm_Suivant"
End Sub
On va vouloir ouvrir ce formulaire au démarrage de l'application.
2 méthodes :
1-->menu Outils--> Démarrage. Définir la propriété Afficher Formulaire/Page.
2-->Créer une macro nommée--> AutoExec
Action-->OuvrirFormulaire
Nom Formulaire-->Notre formulaire de démarrage
Cordialement.
__________________________
Le peu que je sais, c'est à mon ignorance que je le dois. Sacha Guitry
Une nouvelle question = un nouveau Post
Ceci pour éviter la confusion. On essaye de traiter sujet par sujet.
Pour un son wav il faut créer un nouveau module-->bas_son et coller dedans :
Private Declare Function PlaySound& Lib "winmm.dll" _
(ByVal lpszName As String, ByVal hModule As Long, _
ByVal dwFlags As Long)
Public Sub SonMultimédia(Chemin As String)
PlaySound Chemin, 0&, Son_Async
End Sub
Dans un autre module-->bas_Fichier on colle :
Option Explicit
Dim I As Integer
Dim Réponse As String
Public Function Chercher(NomDuChemin As String, NomDuFichier As String, Sous_répertoires As Boolean) As String
On Error Resume Next
Réponse = ""
With FileSearch
.NewSearch
.LookIn = NomDuChemin
.FileName = NomDuFichier
.SearchSubFolders = Sous_répertoires
If .Execute() > 0 Then
For I = 1 To .FoundFiles.Count
Réponse = Réponse & .FoundFiles(I) & ";"
Next I
End If
End With
Chercher = Réponse
End Function
Et sur ce fameux formulaire de démarrage :
Private Sub Form_Close()
SonMultimédia "c:/WINDOWS/MEDIA/tada.wav"
End Sub
Private Sub Form_Open(Cancel As Integer)
SonMultimédia "C:\WINDOWS\Media\Windows XP Démarrage.wav"
End Sub
'(Ou alors le chemin de tes sons .wav)
Cordialement.
Si tu veux quelque chose d'un peu plus élaboré,
genre mp3-->Nouveau Post.
Cordialement.
__________________________
Le peu que je sais, c'est à mon ignorance que je le dois. Sacha Guitry