Gestion de cybercafé ...

Question

bonjour à tous :)

Les clients de notre cyber accèdent à la navigation via notre interface VB6 qui est installé sous windows XP. selon leur besoin, ils peuvent cliquer sur command_click MSN, ou IRC, ou YAhoo messenger etc.. :)
Tout fonctionne merveilleusement bien, sauf, si les clients cliquent 2 fois sur le bouton internet, internet explorer s'ouvre et se calle dans la barre des tâches. Ne voyant pas d'internet explorer, le client se déco :(

voici le code qui est associé à un simple command_click

Private Sub internet_Click()
    
    ProcessID(1) = Shell("C:\program files\internet explorer\iexplore.exe", vbMaximizedFocus)
    Hprocess(1) = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessID(1))
    timerboutonstop.Enabled = True
    Text1.Visible = False
    Connexion
End Sub


A noter que cela fonctionne très bien sous windows 2000

si vous avez une idée nous sommes preneur ;)

merci pour votre aide et bonnes vacances à tous :)

Dolphin Boy · Answer

Salut
A priori, je n'ai peut-être pas tout compris, il s'agit d'empêcher le client de cliquer 2 fois sur un commandbutton ?
Dans ce cas insère : internet.Enabled = False en début du code de l'évènement click du bouton.

tof008 · Answer

Ou si ce que tu veux c'est eviter que ton processus se lance deux fois, verifie s'il est ouvert avant de le réouvrir.

(Si la réponse vous convient, appuyez sur réponse acceptée...)

Il y a plusieurs facon d'être con ,mais un con choisit toujours la pire<>

leden65 · Answer

oula j'aurais  pû faire plus simple : 

si le client double-clique sur le command_click() internet explorer est minimisé :(
Ce qui implique que le VBMaximizedFocus ne fonctionne pas.

je ne peux utiliser le command_dblclick.. car 70% des clients cliquent qu'une fois :p

Après tentative, vos réponses ne fonctionnent pas :( merci quand même :)

++

tof008 · Answer

Essaye en mettant le bouton en enable apres le click. Tu met un petit timer qui le remet en disable par la suite...

         (Si la réponse vous convient, appuyez sur réponse acceptée...).

                           Noubliez pas de lire le REGLEMENT

cs_lilalilalou · Answer

salut

cs_freevert · Answer

merci bien de votre aides

cs_freevert · Answer

merci bien de votre comprehension

Gestion de cybercafé ...

7 réponses

Votre réponse