sorry dat ik alles post maar ik kan het anders niet duidelijk uitleggen ben ik bang....
code:
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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
| <%@ Control Language="vb" Debug="True" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="microsoft.Data.Odbc" %>
<%@ Register TagPrefix="dropdown" Namespace="aspnetian" Assembly="styleddropdown" %>
<script runat="server">
'dbconneCtie
dim objConn as new ODBCConnection ("XXXXX")
'globale variabelen
'MenuCount wordt gebruikt in check in Showmenu
dim menuCount as Integer
dim parent as Integer = 0
dim menu_array() As menu_items
'PageLoad
Sub Page_Load(Sender As Object, E As EventArgs)
'Eenmalig uit te voeren
if not page.IsPostback() then
'Laad de taal in de taal pulldown, getoond in het overzicht van de menu items.
Dim query_get_taal as string = "Select * from taal"
Dim taal_reader as OdbcDataReader
Dim obj_taal as neW OdbcCommand ( query_get_taal, objConn)
objConn.Open()
taal_reader = obj_taal.ExecuteReader()
dim z as integer = 0
while taal_reader.read()
dim li = new ListItem(""& taal_reader.item("taal_naam") &"",""& taal_reader.item("taal_id") &"")
li.Attributes.Add( "style","color:red" )
taal.Items.Insert( z, li )
z+=1
end while
objConn.Close()
end if
'Haal de gekozen taal op uit het taal pulldownmenu (gebruik straks in query)
dim taal_select as Integer
if taal.selecteditem.value <> "" then
taal_select = taal.SelectedItem.Value
else
taal_select = 1
end if
'query menu items
dim query_menu_items as String
query_menu_items = "select menu_id, menu_naam, menu_parent, menu_toon from menu where taal_id="& taal_select &" order by menu_sortering"
'array indexer
dim i as Integer = 0
ReDim Preserve menu_array(0)
'Open DB connectie en voer query uit
objConn.open()
Dim result_menu_items as new OdbcCommand ( query_menu_items, objConn)
dim reader_menu_items as OdbcDataReader = result_menu_items.ExecuteReader()
while reader_menu_items.Read()
'maak nieuw array item aan
ReDim Preserve menu_array(i)
menu_array(i) = New menu_items()
menu_array(i).menu_id = reader_menu_items.item("menu_id")
menu_array(i).menu_naam = reader_menu_items.item("menu_naam")
menu_array(i).menu_parent = reader_menu_items.item("menu_parent")
menu_array(i).menu_toon = reader_menu_items.item("menu_toon")
'array indexer ophogen
i += 1
end while
objConn.close()
if i > 0 then
menuCount = ubound(menu_array)
else
menuCount = -1
end if
' en toon menu
ShowMenu( 0, 0, 1 )
end sub
'functies + klasse
public class menu_items
public menu_id as Integer
public menu_naam as String
public menu_parent as Integer
public menu_soorteer as Integer
public menu_toon as Integer
end class
Sub ShowMenu(parent, level, visible)
Dim i, j
'als er items zijn
if menuCount > -1 then
' ga alle items af in array
For i = 0 To menuCount
' is de parent van dit item opgegeven item, dan op scherm zetten
' en deze als parent gaan doorlopen
If menu_array(i).menu_parent = parent then
' spaties of whatever om niveau aan te geven
if level >= 1 then
For j = 0 to level
'menu_overzicht = overzicht van de menu items
menu_overzicht.Controls.add(ParseControl(" "))
Next
end if
' zet naam van item op scherm
if level >= 1 and level mod 2 = 0 then
Dim ctl_LinkButton As New LinkButton()
ctl_LinkButton.ID = menu_array(i).menu_id
'CommandArgument = menu_naam (abuse)
ctl_LinkButton.CommandArgument = menu_array(i).menu_naam
ctl_LinkButton.Text = menu_array(i).menu_naam &"<br>"
'bepaal kleur
if menu_array(i).menu_toon = 1 and visible = 1 then
menu_overzicht.Controls.add(ParseControl(" - "))
ctl_LinkButton.CssClass = "menu_item"
else
menu_overzicht.Controls.add(ParseControl("<font color=""gray""> - </font>"))
ctl_LinkButton.CssClass = "menu_item_hidden"
end if
AddHandler ctl_LinkButton.Click, AddressOf item_select_click
menu_overzicht.Controls.Add(ctl_LinkButton)
elseif level >= 1 and level mod 2 = 1 then
Dim ctl_LinkButton As New LinkButton()
ctl_LinkButton.ID = menu_array(i).menu_id
'CommandArgument = menu_naam (abuse)
ctl_LinkButton.CommandArgument = menu_array(i).menu_naam
ctl_LinkButton.Text = menu_array(i).menu_naam &"<br>"
'bepaal kleur
if menu_array(i).menu_toon = 1 and visible = 1 then
menu_overzicht.Controls.add(ParseControl(" * "))
ctl_LinkButton.CssClass = "menu_item"
else
menu_overzicht.Controls.add(ParseControl("<font color=""gray""> * </font>"))
ctl_LinkButton.CssClass = "menu_item_hidden"
end if
AddHandler ctl_LinkButton.Click, AddressOf item_select_click
menu_overzicht.Controls.Add(ctl_LinkButton)
else
Dim ctl_LinkButton As New LinkButton()
ctl_LinkButton.ID = menu_array(i).menu_id
'CommandArgument = menu_naam (abuse)
ctl_LinkButton.CommandArgument = menu_array(i).menu_naam
ctl_LinkButton.Text = menu_array(i).menu_naam &"<br>"
'bepaal kleur
if menu_array(i).menu_toon = 1 and visible = 1 then
ctl_LinkButton.CssClass = "menu_item"
else
ctl_LinkButton.CssClass = "menu_item_hidden"
end if
AddHandler ctl_LinkButton.Click, AddressOf item_select_click
menu_overzicht.Controls.Add(ctl_LinkButton)
end if
' ga verder met dit item als parent (en verhoog level)
if menu_array(i).menu_toon = 1 AND visible = 1 then
ShowMenu( menu_array(i).menu_id, level + 1, 1 )
else
ShowMenu( menu_array(i).menu_id, level + 1, 0 )
end if
end If
Next
end if
End Sub
'Knop afhandelingen
sub item_select_click(sender As Object, e As EventArgs)
response.write( "nou nou was dat nou zo moeilijk?" )
end sub
</script>
<table height="100%" cellspacing="0" cellpadding="0" width="100%" border="0">
<tr>
<td class="test" valign="top" width="100%" bgcolor="#ffffff" height="100%">
<table cellspacing="0" cellpadding="0" width="100%" border="0">
<tr>
<td width="5">[img]"images/site/dummy.gif"[/img]</td>
<td width="100%">
<!-- Pagina Content -->
<table cellspacing="0" cellpadding="0" width="100%" border="0">
<!-- Pagina titel -->
<tr>
<td height="29" class="main_title">Menu items Overzicht</td>
</tr>
<tr>
<td width="100%" height="6" valign="top">[img]"images/site/main_lijn_465x1.gif"[/img]</td>
</tr>
<!-- END: Pagina titel -->
<tr>
<form runat="server">
<td width="100%" height="100%" id="td_overzicht" runat="server" visible="true">
Via deze module kunt u zeer eenvoudig de menu structuur bekijken en wanneer gewenst een element wijzigen.
<P>
Selecteer de taal waarvan u de menu structuur wilt bekijken:<br>
<font size=-2>( Let op, grijze items worden niet getoond op de website dit zijn verborgen items! )</font>
<P>
<dropdown:StyledDropDownList id="taal" runat="server" AUTOPOSTBACK="True" /><br>
[img]"images/site/main_lijn_465x1.gif"[/img]
<p>
<asp:PlaceHolder id="menu_overzicht" runat="server" />
</td>
</form>
</tr>
</table>
<!-- END: Pagina Content -->
</td>
</tr>
</table>
</td>
</tr>
</table> |
dit is de code (gestript) die ik gebruik om een menu item te wijzigen.
De situatie is als volgt:
De gebruiker kiest een taal, aan de hand van die taal wordt de placeholder menu_overzicht geladen via de showmenu functie. Er worden dus een heel rijtje linkbuttons als een boomstructuur neergezet.
Als er op een linkbutton wordt geklikt wordt de item_select_click aangeroepen welke in de niet gestripte versie de details van het item toont. In dit geval toont hij alleen nou nou was dat nou zo moeilijk.
Voor Nederlandse items (taal_id =1 ) werkt dit perfect, maar bij een andere taal springt hij gewoon terug naar het nederlandse overzicht zonder ook maar de item_select_click uit te voeren
Ik snap er echt geen moer van, want als ik in de code de taal hard op 2 (engels) zet werkt het wel.
De "vaagheid" wordt voor mij compleet op het moment dat ik de <dropdown:StyledDropDownList id="taal" runat="server" AUTOPOSTBACK="True" /> vervang door <asp:DropDownList id="taal" runat="server" AUTOPOSTBACK="True" />, want dan werkt de code perfect
Wat is er nou wezenlijk anders aan de styleddropdownlist tegenover de gewone asp:dropdownlist?
maar ik snap er verder weinig van./u/56680/gurgi.png?f=community)
, en ga weer verder waar ik gebleven was.
gorgi_19