|
boîtes de message sont principalement utilisés dans les programmes VB6 pour indiquer à l' utilisateur que quelque chose nécessite leur attention. Une boîte de dialogue peut afficher un message d'erreur ou il pourrait être demandé à l'utilisateur une question , en fournissant un «oui» et un bouton «Non» sur le formulaire. La boîte de message peut également être informant l'utilisateur que quelque chose va se passer dans le programme , leur demandant s'ils aimeraient poursuivre. Il pourrait bénéficier à l'utilisateur de laisser ce message s'affiche pendant cinq secondes, puis il suffit de déplacer automatiquement à l'activité suivante dans le programme. Ce réglage peut être effectué en seulement quelques étapes. Instructions
1 Ouvrez un nouveau projet Visual Basic EXE standard . Un formulaire nommé « Form1 » sera créé par défaut. Ajoutez un nouveau module au projet en faisant un clic droit sur le nom du projet et cliquez sur " Ajouter" puis " module. " Le nom par défaut pour le nouveau module sera " Module1 ".
2 Renommer la forme et le module comme quelque chose de significatif comme " frmMain " pour la forme et " modTimer " pour le module. Dans le champ " (Général) ( Déclarations ) « zone de " modTimer " , déclarent les fonctions suivantes de Windows : KillTimer , FindWindow , SetForegroundWindow . Chacune de ces fonctions est référencé dans la bibliothèque de Windows " user32 " .
Private Declare Function KillTimer Lib " user32 " ( ByVal hWnd As Long , ByVal nIDEvent As Long ) As Long
Private Declare Function FindWindow Lib " user32 " Alias " FindWindowA " ( lpClassName ByVal As String , ByVal lpWindowName As String) As long
Private Declare Function SetForegroundWindow Lib " user32 " ( ByVal hWnd As Long ) As Long
Hôtels 3 déclarer une constante qui sera reçu pour fermer la boîte de message. La déclaration constante est " NV_CLOSEMSGBOX de Public Const As Long = & H5000 & . " Définissez également un sous-programme appelé " timersub " dans " modTimer . " La déclaration de " timersub " ressemble :
Public Sub timersub ( ByVal hWnd As Long , ByVal uMsg As Long , ByVal IdEvent As Long , ByVal dwTime As Long )
4 Tuez toute autre minuterie d'abord dans " timersub " pour s'assurer que la nouvelle minuterie est le seul actif . La fonction est « KillTimer . " Ensuite, vérifiez la valeur de " IdEvent " pour voir si il est égal à " NV_CLOSEMSGBOX . " Si c'est le cas , trouver la boîte de message avec " FindWindow " et envoyez la touche "Entrée" de la boîte de message en utilisant " SendKeys ". Cela va forcer le bouton par défaut cliquez pour exécuter et donc fermer la boîte de message.
5 Test de la fonctionnalité définie dans " timersub " en ajoutant un bouton pour " frmMain . " Dans le clic sur le bouton code d'événement , régler la minuterie :
SetTimer hWnd , NV_CLOSEMSGBOX , 5000, AddressOf TimerProc
Cela va forcer la boîte de message pour fermer à 5000 millisecondes ou 5 secondes . Sélectionnez " Run" et "Start" dans le menu de VB pour exécuter le programme .
|
