Bonjour
Il y a il une solution pour faire uun ComboBox (liste déroulante) en vbs?
Merci d'avance
Bonjour
Il y a il une solution pour faire uun ComboBox (liste déroulante) en vbs?
Merci d'avance
Peut-être que oui Testez ce code
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
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 'http://www.ericphelps.com/scripting/samples/Reference/ChooseOne.txt Call ChooseOne("Mon 1er Choix/2eme Choix/3eme Choix/4eme Choix/5eme Choix/6eme Choix/7eme choix/8eme choix/9 eme Choix/10 eme Choix") Function ChooseOne(strTabDelimitedChoices) 'Returns one of several string choices. 'Returns empty string if there is a problem. Dim fs, web, doc Dim strFile, strChoice Dim intChars Dim dtTime On Error Resume Next Set web = CreateObject("InternetExplorer.Application") If web Is Nothing Then ChooseOne = "" Exit Function End If 'Increase displayed width to accomodate longest string choice intChars = 0 For Each strChoice In Split(strTabDelimitedChoices,"/") If Len(strChoice) > intChars Then intChars = Len(strChoice) Next If intChars > 20 Then web.Width = 250 + 6 * (intChars - 20) Else web.Width = 250 End If web.Height = 200 web.Offline = True web.AddressBar = False web.MenuBar = False web.StatusBar = False web.Silent = True web.ToolBar = False web.Navigate "about:blank" 'Wait for the browser to navigate to nowhere dtTime = Now Do While web.Busy 'Don't wait more than 5 seconds Wscript.Sleep 100 If (dtTime + 5/24/60/60) < Now Then ChooseOne = "" web.Quit Exit Function End If Loop 'Wait for a good reference to the browser document Set doc = Nothing dtTime = Now Do Until Not doc Is Nothing Wscript.Sleep 100 Set doc = web.Document 'Don't wait more than 5 seconds If (dtTime + 5/24/60/60) < Now Then ChooseOne = "" web.Quit Exit Function End If Loop 'Write the HTML form doc.Write "<html><head><title>Choose</title></head>" doc.Write "<body><b>Choose One:</b><br><form><select name=""choice"">" For Each strChoice In Split(strTabDelimitedChoices,"/") doc.Write "<option value=""" & strChoice & """>" & strChoice Next doc.Write "</select>" doc.Write "<br><br><input type=button " doc.Write "name=submit " doc.Write "value=""OK"" onclick='javascript:submit.value=""Done""'>" doc.Write "</form></body></html>" 'Show the form web.Visible = True 'Wait for the user to choose, but fail gracefully if a popup killer. Err.Clear Do Until doc.Forms(0).elements("submit").Value <> "OK" Wscript.Sleep 100 If doc Is Nothing Then ChooseOne = "" web.Quit Exit Function End If If Err.Number <> 0 Then ChooseOne = "" web.Quit Exit Function End If Loop 'Retrieve the chosen value ChooseOne = doc.Forms(0).elements("choice").Value web.Quit End Function
merci ,c'est une belle combinaison de html et vbs
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager