Discussion :

[Aurélien VH.]

Bonjour,

Je develloppe actuellement un addons de logiciel de supervision en VB6.0.

Je souhaite réaliser la fonction suivante à l'utilisateur:

L'avertir d'une popup indiquant un message, et geler en quelque sorte l'accès aux fonctions du logiciel de supervision.

J'ai utilisé l'appel suivant pour ma form:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Alarm.show vbmodal,Me

Malheureusement l'avant plan est mal géré et une partie de la form se trouve en arrière, de plus l'utilisateur peut cliquer en dehors de la popup et ainsi complètement l'inhibé.

L'appel de la fonction .showdialog m'a été impossible, je n'ai pas réussit à la mettre en pratique malgrès la lecture de msdn et des forums.

Si une bonne ame avait une astuce pour un developpeur que je qualifierais de rappatrié

Edit:
Pour contourner le problème sinon ce que je pourrais réaliser serait les fonctions suivantes
Etre absolument sur du premier plan de ma fenetre.
Précision: Non non je suis à peine débutant ^^
Et activer une zone de clic variable uniquement sur ma fenetre.
Cordialement,

Balises Code ajoutées par zazaraignée

[zazaraignée]

Salut

De deux choses l'une

Soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Alarm.Show vbModal  ' sans le dernier paramètre

Soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox "Le message", vbOkOnly + vbInformation, "Le titre"

[Aurélien VH.]

Merci pour la remise en forme tout d'abord

Les deux suggestions ne me solutionnait toutefois pas mon problème.

Cette manière là fonctionne très bien pour la mise en forme au premier plan:

Il faut utiliser l'API SetWindowsPos. Voici le code d'une fonction permettant d'activer ou de désactiver l'affichage au premier plan d'une fenêtre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const Flags = SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
 
Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
 
Private Function SetTopMostWindow(Window As Form, Topmost As Boolean) As Long
 
    If Topmost = True Then
        SetTopMostWindow = SetWindowPos(Window.hwnd, HWND_TOPMOST, 0, 0, 0, 0, Flags)
    Else
        SetTopMostWindow = SetWindowPos(Window.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, Flags)
    End If
 
End Function
 
Private Sub Form_Load()
 
    'Exemples d'utilisations de la fonction :
    SetTopMostWindow Me, True 'Active l'affichage au premier plan
    SetTopMostWindow Me, False 'Désactive l'affichage au premier plan

Concernant l'inhibation du logiciel de supervision, ce qui est prépondéral pour le fonctionnement de mon add-on, est il réalisable de délimiter une fênetre de l'écran représentant le seul espace de clic de souris valide.

Edit:
J'ai réussit à trouver ma solution pour inhiber le logiciel de supervision en limitant l'espace accessible à ma souris à l'aide des librairies API.