ik wil imagebuttons plaatsen via vb-code op een aspx-pagina. Ik krijg geen foutmeldingen, maar de imagebuttons komen niet. ik denk dat de fout ligt bij het effectief plaatsen van de imagebutton.
dit is de code:
Protected Overrides Sub CreateChildControls()
Dim wf1 As WebForm1
wf1 = New WebForm1()
'creatie nieuwe dataset
Dim myDataSet As DataSet = New DataSet()
'xml document in dynaset plaatsen
Dim xmldoc As XmlDataDocument = New XmlDataDocument(myDataSet)
'nieuwe node definiëren
Dim xmlnode As XmlNode
Dim xmlLightNode As XmlNode
Dim xmlElements As XmlElement
'xml laden
xmldoc.Load("c:\myxml.xml")
xmlnode = xmldoc.ChildNodes(2)
xmlLightNode = xmlnode.ChildNodes(0) 'node 1
i = 0
aantal = xmlnode.ChildNodes.Count
Dim imageButton As ImageButton '(aantal)
While i <= aantal - 1
xmlLightNode = xmlnode.ChildNodes(i)
imageButton = New ImageButton()
xpos = Integer.Parse(xmlLightNode.Item("xpos").InnerText)
ypos = Integer.Parse(xmlLightNode.Item("ypos").InnerText)
image_on = xmlLightNode.Item("image").InnerText
premise_obj = xmlLightNode.Item("object_id").InnerText
imageButton.ImageUrl = image_on
imageButton.Style.Item("TOP") = ypos
imageButton.Style.Item("LEFT") = xpos
imageButton.Style.Item("POSITION") = "absolute"
' deze regel dient om later na te gaan bij welk object de knop hoort
imageButton.ID = premise_obj
wf1.Controls.Add(imageButton)
i = i + 1
End While
End Sub
via debugge zie ik dat alle variabelen de juist waarde hebben en dat er dus ook effectief een image word meegegeven.
dit is de code:
Protected Overrides Sub CreateChildControls()
Dim wf1 As WebForm1
wf1 = New WebForm1()
'creatie nieuwe dataset
Dim myDataSet As DataSet = New DataSet()
'xml document in dynaset plaatsen
Dim xmldoc As XmlDataDocument = New XmlDataDocument(myDataSet)
'nieuwe node definiëren
Dim xmlnode As XmlNode
Dim xmlLightNode As XmlNode
Dim xmlElements As XmlElement
'xml laden
xmldoc.Load("c:\myxml.xml")
xmlnode = xmldoc.ChildNodes(2)
xmlLightNode = xmlnode.ChildNodes(0) 'node 1
i = 0
aantal = xmlnode.ChildNodes.Count
Dim imageButton As ImageButton '(aantal)
While i <= aantal - 1
xmlLightNode = xmlnode.ChildNodes(i)
imageButton = New ImageButton()
xpos = Integer.Parse(xmlLightNode.Item("xpos").InnerText)
ypos = Integer.Parse(xmlLightNode.Item("ypos").InnerText)
image_on = xmlLightNode.Item("image").InnerText
premise_obj = xmlLightNode.Item("object_id").InnerText
imageButton.ImageUrl = image_on
imageButton.Style.Item("TOP") = ypos
imageButton.Style.Item("LEFT") = xpos
imageButton.Style.Item("POSITION") = "absolute"
' deze regel dient om later na te gaan bij welk object de knop hoort
imageButton.ID = premise_obj
wf1.Controls.Add(imageButton)
i = i + 1
End While
End Sub
via debugge zie ik dat alle variabelen de juist waarde hebben en dat er dus ook effectief een image word meegegeven.