onclick in .net (vb) is undefined in datalist

[Stanley J Mroczek]

When I click in a picture, I get a error the changePicture is undefined

<tr>
<td colSpan="2"><as p:datalist id="Picturelist " runat="server"
RepeatColumns=" 8">
<itemtemplate >
<img ID="Picture" height=100 width=100 onclick="change Picture"
runat="server" src='<%# DataBinder.Eval (Container.Data Item, "carPicture ") %>'
/>
</itemtemplate>
</asp:datalist></td>
</tr>

Public Sub changePicture(B yVal sender As System.Object, ByVal e As
System.EventArg s)

Dim item As DataListItem =
Picturelist.Ite ms(Picturelist. EditItemIndex)
If (Not item Is Nothing) Then
Dim ddl As DataList = CType(item.Find Control("Pictur e"), DataList)
Dim check As String = ddl.SelectedIte m.DataItem

Dim IDCar As Integer = CInt(Request.Pa rams("CarID"))
Dim Maintenance As MaintenanceDB = New MaintenanceDB

Dim myCarDetails As MaintenanceDeta ils =
Maintenance.Get ACar(IDCar)

Pictureheader.I mageUrl = myCarDetails.Ca rPictureHeader
End If
End Sub

[Cor Ligthert]

Stanley,

Did you know that there is as well an imagebutton which is in my opinion
very easy to use instead of the image for this..

In my opinion are better newsgroups for this kind of questions by the way
microsoft.publi c.dotnet.framew ork.aspnet
and
microsoft.publi c.dotnet.langua ges.vb

When you sent messages to both than that no problem when you do not know
what is better for your questions, you can send one message to both
newsgroups in one time (that is called crossposting). However do not send
two message to both one, that is hated by most people in newsgroups.

I hope this above helps anyway directly?

Cor

<tr>
<td colSpan="2"><as p:datalist id="Picturelist " runat="server"
RepeatColumns=" 8">
<itemtemplate >
<img ID="Picture" height=100 width=100 onclick="change Picture"
runat="server" src='<%# DataBinder.Eval (Container.Data Item, "carPicture ")
%>'
/>
</itemtemplate>
</asp:datalist></td>
</tr>

Public Sub changePicture(B yVal sender As System.Object, ByVal e As
System.EventArg s)

Dim item As DataListItem =
Picturelist.Ite ms(Picturelist. EditItemIndex)
If (Not item Is Nothing) Then
Dim ddl As DataList = CType(item.Find Control("Pictur e"),
DataList)
Dim check As String = ddl.SelectedIte m.DataItem

Dim IDCar As Integer = CInt(Request.Pa rams("CarID"))
Dim Maintenance As MaintenanceDB = New MaintenanceDB

Dim myCarDetails As MaintenanceDeta ils =
Maintenance.Get ACar(IDCar)

Pictureheader.I mageUrl = myCarDetails.Ca rPictureHeader
End If
End Sub

[Stanley J Mroczek]

Thanks i got it

<td colSpan="2"><as p:datalist id="Picturelist "
OnItemCommand=" Picturelist_Ite mCommand" runat="server" RepeatColumns=" 8">
<itemtemplate >
<asp:ImageButto n ID="Picture" height=100 width=100
CommandName="se lect" runat="server" ImageUrl='<%#
DataBinder.Eval (Container.Data Item, "carPicture ") %>' />
</itemtemplate>
</asp:datalist></td>

Sub Picturelist_Ite mCommand(ByVal source As Object, ByVal e As
System.Web.UI.W ebControls.Data ListCommandEven tArgs) Handles
Picturelist.Ite mCommand
If (e.CommandName = "select") Then
Dim Maintenance As MaintenanceDB = New MaintenanceDB
Dim IDCarPicture As Integer =
Picturelist.Dat aKeys(e.Item.It emIndex)
Dim myPictureDetail s As MaintenanceDeta ils =
Maintenance.Get ACarpictureUrl( IDCarPicture)
Dim test As String = myPictureDetail s.carPicturePat hUrl
Pictureheader.I mageUrl = myPictureDetail s.carPicturePat hUrl
End If
End Sub
"Stanley J Mroczek" wrote:

When I click in a picture, I get a error the changePicture is undefined

<tr>
<td colSpan="2"><as p:datalist id="Picturelist " runat="server"
RepeatColumns=" 8">
<itemtemplate >
<img ID="Picture" height=100 width=100 onclick="change Picture"
runat="server" src='<%# DataBinder.Eval (Container.Data Item, "carPicture ") %>'
/>
</itemtemplate>
</asp:datalist></td>
</tr>

Public Sub changePicture(B yVal sender As System.Object, ByVal e As
System.EventArg s)

Dim item As DataListItem =
Picturelist.Ite ms(Picturelist. EditItemIndex)
If (Not item Is Nothing) Then
Dim ddl As DataList = CType(item.Find Control("Pictur e"), DataList)
Dim check As String = ddl.SelectedIte m.DataItem

Dim IDCar As Integer = CInt(Request.Pa rams("CarID"))
Dim Maintenance As MaintenanceDB = New MaintenanceDB

Dim myCarDetails As MaintenanceDeta ils =
Maintenance.Get ACar(IDCar)

Pictureheader.I mageUrl = myCarDetails.Ca rPictureHeader
End If
End Sub