Version imprimable
Eh oui c'est encore moiiiii
Alors voila à quoi ressemble mon .hta
Pièce jointe 180734
Croyez vous qu'il soit possible d'ajouter à droite de chaque bouton quelque chose (comme un voyant vert pour OK et rouge pour NOK ou ca Pièce jointe 180744 qui m'indique que l'execution de la commande s'est bien déroulé ?
Je vous remercie d'avance !!!!!
David
Un CheckBox (case à cocher) peut faire l'affaire : Si le test est OK, la case est cochée et non sinon
Salut et merci de ta réponse
Tu proposes de passer par cette commande ?
Mais est-ce qu'elle valide le résultat de la commande ou juste le fait que le bouton ait été cliqué ?Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Si elle valide bien le bon déroulement de la commande, dois refaire juste l'inbut pour chacun de mes boutons ou je dois mettre à chaque fois l'ensemble input + sub ?
Merci d'avance
Le code que tu présentes est un extrait de celui de notre cher ami ProgElecT(:rose2:).
Mais à vrai dire, je n'en vois pas le contexte ni les variables utilisées.
Une suggestion est de créer dans OK_OnClick() une variable booléenne qui prendra la valeur True si le résultat est bon et False dans le cas contraire.
Suite à la valeur de cette variable, on coche ou décoche le CheckBox correspondant.
Salut
(Le retour :aie:)
Il y a la possibilité de visualiser le résultat par le biais d'images (3)
Un simple cadre http://contrib-vb.developpez.com/Pro...ussions/TR.gif Opération réussiehttp://contrib-vb.developpez.com/Pro...ussions/OK.gif Opération échouéehttp://contrib-vb.developpez.com/Pro...ussions/KO.gif
Ces images Gif ont pour couleur transparente ce qui apparait en blanc, donc le fond du HTA sera visible.
Pour le telechargemlent -> Pièce jointe 180897
Attention, les images doivent être dans le dossier du .HTA
En partant duJ'ai modifié/nettoyé/simplifié la fonction ExecuterCode:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Fonctionnement de la sub OK_OnClick():
Si CP.value n'est pas un nombre, affiche l'image TR.gif.
La fonction Executer, après exécution renvoie 0 si elle a réussi, donc If Executer("echo.Creation migration_H" & cp.value & " & md c:\temp\migration_H" & cp.value & "",1) = 0 Then affiche l'image Ok.gif.
Dans le cas ou la fonction a échoué elle renvoie un chiffre différent de 0, donc affiche l'image KO.gif
Pour des essais, j'ai mis en commentaire la ligne 47, la ligne 48 (0=0) permet de simuler la réussite de la fonction Executer, en transforment en (0=1) on simule l’échec de la fonction Executer.
Si tu entres autre chose qu'un code postal valide (nombre) l'indicateur sera un simple cadre.
Merci a tous les 2 je vais regarder ça, je reviens vers vous tout vite :)
ProgElecT, ce que tu me proposes est super, maintenant la question est dans la mesure ou j'ai 25 boutons avec 25 commandes différentes, je dois copier 25 fois cette section ??
Dsl si mes questions sont betes mais c mon premier script et c'est pas vraiment mon univers le developpement
Non, la preuve avec ceCitation:
Envoyé par goro_830
Il reste a modifier aussi If Executer("echo.Creation migration_H" & cp.value & " & md c:\temp\migration_H" & cp.value & "",1) = 0 Then en fonction de l'action à executer suivant QuelText.Id et/ou QuelBouton.Id passeé à la Sub ClickOK(QuelText, QuelBouton, QuelImg).Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
On verra demain pour la suite :mrgreen:
Vite fait, modifies la fin du code du message précédant depuis la ligne 43Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Coucou,
Merci de ta réponse, je regarde ca au plus vite :)
Coucou,
Ca faisait longtemps :p
Alors voila j'ai fait ton code comme tu me l'as conseillé :
Au passage tu avais oublié une ligne sur le bouton Autre chose mais c'est corrigéCode:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
Ensuite comme tu le vois j'ai remis à 0 les lignes simulation pour debug, je pense que c'est ce qu'il faut .....non ?
Et pour finir, aucune des commandes ne se lance alors dis moi si j'ai oublié quelque chose . J'ai bien pensé à dé-commenter la ligne Retour=Executer.... mais ca change rien, j'ai retiré la variable "" & cp.value & "" pour tester mais tjs rien ....
Merci d'avance
Bonjour,
Alors voila après 1 semaine de recherches infructueuses je me suis rabattu sur ce bout de code qui me permet de charger mon fichier de log dans une zone de texte et qui la rafraîchit toutes les 5 secondes
Si vous avez mieux je suis preneur ....
En attendant je clos
Je laisse le code si ca peut servir a quelqu'un ...Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36<html> <head> <title>TEST</title> <hta:application scroll="no" windowState="normal"> </head> <script language="VBScript"> '***************************************************************************** Sub window_onload() iTimerID = window.setInterval("Display", 500) End Sub '***************************************************************************** Dim strPath Dim wshShell Dim iTimerID strPath = "C:\Users\David\Desktop\hta\" Set wshShell = CreateObject( "WScript.Shell" ) '***************************************************************************** Sub Display Dim objFSO Dim objFile Dim strCharacters Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(StrPath & "log.txt", 1) Do Until objFile.AtEndOfStream strCharacters = objFile.ReadAll Loop objFile.Close DisplayBox.Value = strCharacters DisplayBox.ScrollTop = DisplayBox.ScrollHeight End Sub '***************************************************************************** </script> <body> <textarea name="DisplayBox" position="right" rows="20" cols="36" wrap="hard" readonly="readonly"></textarea> </body> </html>
Goro
