contrôles Microsoft Visual Basic vous permet d'afficher les messages des programmes dans une boîte de dialogue de formulaire utilisateur. Vous utilisez les boîtes de message quand vous voulez demander à l'utilisateur une question ou d'afficher un message d'erreur et d'informer l'utilisateur sur les solutions possibles du problème . Les paramètres de coordonnées d'un formulaire, vous donnent la possibilité de déterminer sa position dans la fenêtre ouverte . En plaçant une boîte de message dans le centre d' un formulaire Visual Basic, vous pouvez rendre le texte plus visible pour l'utilisateur . Instructions
1
Cliquez sur Démarrer dans Windows , puis cliquez sur « Microsoft Visual Studio ».
2
Cliquez sur «Fichier» puis cliquez sur «Nouveau» pour créer la valeur par défaut " Form1 . " forme
3
Ajoutez le code suivant dans la fenêtre ouverte :
type RECT
Gauche As Long
Top Comme long
Right As long
Bottom As Long
Fin Type
public Declare Function SetWindowPos Lib " user32 " ()
publique Declare Function GetWindowRect Lib " user32 " ( ByVal hwnd _En long, lpRect Comme RECT ) As Long
Fonction WinProc2 ( lMsg ByVal As Long , ByVal wParam As Long , lParam _ByVal As Long ) As Long
< p > Dim rectForm Comme RECT , rectMsg Comme RECT
Dim x As Long , y As long
'On HCBT_ACTIVATE , montrer le MsgBox centrée sur Form1
Si lMsg = HCBT_ACTIVATE ensuite Photos
' obtenir les coordonnées de la forme et de la boîte de message
' pour déterminer le centre de la forme Situation
GetWindowRect Form1.hwnd , rectForm
GetWindowRect wParam , rectMsg
x = ( rectForm.Left + ( rectForm.Right - rectForm.Left ) /2) - _
( ( rectMsg.Right - rectMsg.Left ) /2) Photos
y = ( rectForm.Top + ( rectForm.Bottom - rectForm.Top ) /2) - _
( ( rectMsg.Bottom - rectMsg.Top ) /2)
< p> 'Position de la msgbox
SetWindowPos wParam , 0, x , y, 0, 0, _
SWP_NOSIZE Ou SWP_NOZORDER Ou SWP_NOACTIVATE
Fin de Fonction:
Private Sub Command2_Click ()
hInst As long
discussion As long
' afficher le message box
' MsgBox " Cette boîte de message est positionnée au point ( 0,0). touche "
End Sub
4
Appuyez sur la touche" F5 " pour exécuter le programme .
5
Cliquez sur l' bouton " Command2 » sur le formulaire pour afficher le message au centre de la forme . Cliquez sur " OK " pour fermer la boîte de message.
