Pas d'accès au bureau et aux applicatications

Question

Bonjour, 

j'ai concu une application qui renseigne notre base de données, mais on me demande de verouiller les postes de saisie de telle sorte que lorsqu'on demarre le systeme, l'application de saisie le lance automatiquement et ne permette de faire autre chose sur le poste que la saisie (Pas d'accès au bureau et aux autres applications de windows).
j'ai developpé l'application avec Visual BASIC 6.0 pro 

help me please 

Configuration: Windows 7 / Internet Explorer 8.0

lermite222 · Answer

Bonjour,
J'ai bien une solution mais je devrais savoir.. Tu emploi une MDIForm ? si non.. Tu appel plusieur form
A+

lermite222 · Answer

Avec VB6 pas moyen de mettre 2 MdiForm !!! alors.. c'est bien VB6
Pour répondre à ce que je connaîs, 
1°) Une seule feuille Mdi
Toutes les form MdiChild
Si condition remplie, bloquer la souris sur la surface de la mdiForm
Tu dis

lermite222 · Answer

Répondre aux question Svp : Toutes les form MdiChild ?

lermite222 · Answer

J'ai refais les tests avec...
La barre des râches de windows qui se cache, sinon faudra ajouter du code pour déterminer la hauteur de la barre des tâches et soustraire cette hauteur.
Je te conseil, avant de lancer le code de mettre une pictureBox dans la Mdi et un bouton pour ferme l'appli (provisoir) parceque tu ne sauras plus en sortir autrement.
Reste les raccourci Windows ainsi que Ctrl+Alt+Del, c'est la raison pour leque j'ai mis dans l'événement Deactivate <Fermer le PC> ce qui devra aussi être mis dans le Click du bouton.

Private Declare Function GetClipCursor Lib "user32" (lprc As RECT) As Long

Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Type RECT
      Left As Long
      Top As Long
      Right As Long
      Bottom As Long
End Type
Dim RectRemet As RECT
Const cTwipsToPixel = 0.066666

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub MDIForm_Deactivate()
    'Fermer le PC
End Sub

Private Sub MDIForm_Load()
Dim RectMDI As RECT
    Call GetClipCursor(RectRemet)
    Me.WindowState = 2
    RectMDI.Top = 20
    RectMDI.Left = 0
    RectMDI.Right = Me.Width
    RectMDI.Bottom = (Screen.Height * cTwipsToPixel) - 5
    Call ClipCursor(RectMDI)
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    Call ClipCursor(RectRemet)
End Sub
Fais gaffe, c'est assez pointu et risque de bloquer le PC si tu n'est pas prudent ou que tu ne fait pas ce que je t'ai suggéré plus haut.
Pour fermer Windows tu sais faire ?
Tu dis

lermite222 · Answer

Ah bon,
Les déclarations tu met ça tout en haut du module de la Mdi
le code tu met dans le MDIForm_Load
Private Sub MDIForm_Load()
Dim RectMDI As RECT
    Call GetClipCursor(RectRemet)
    Me.WindowState = 2
    RectMDI.Top = 20
    RectMDI.Left = 0
    RectMDI.Right = Me.Width
    RectMDI.Bottom = (Screen.Height * cTwipsToPixel) - 5
    Call ClipCursor(RectMDI)

    '.... Ensuite le code qui est déjà dans MDIForm_Load

lermite222 · Answer

Décidément... 
Si toutes les forms sont des MdiChild comme demander plus haut, c'est la MDI qui doit démarre en premier 
quitte dans le Mdi_Load à faire appel à cette feuille après. 
Mais au vu de tes réponses et questions je pense que tu n'est pas assez avancé en programmation pour implémenter la solution, aussi laisse tomber cette approche, cherche quelque chose de plus simple (je doute que ça existe) 

L'expérience instruit plus sûrement que le conseil. (André Gide)   
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

lermite222 · Answer

En voulant créer un projet démo je m'aperçoit que c'est plus complquer que prévu.
Ca focnctionne très bien sur la feuille MDi mais dés qu'ont ouvre une feuille fille windows remet la plage de l'écran complète.
Ca aussi j'ai résolu en remettant la restriction.
Mais dés que l'ont déplace la feuille fille c'est la même chose, windows remet la plage de l'écran et il n'y a pas d'événement pour connaître cette action.
J'ai encore une solution pour résoudre ce problème mais je pense que ça va devenir trop lourd à comprendre.
Il faut mettre des form sans barre de titre (BorderStyle = 0) et gérer les déplacement de la forme en interne.
Si tu y tient vraiment, tu dis et je verrais pour faire un projet qui fait ça

Pas d'accès au bureau et aux applicatications

7 réponses

Votre réponse

Discussions similaires

Newsletters