This repository has been archived by the owner on Dec 29, 2023. It is now read-only.
/
Default.aspx.vb
54 lines (49 loc) · 1.59 KB
/
Default.aspx.vb
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
Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.Configuration
Imports System.Collections
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports DevExpress.Web.ASPxTreeList
Imports DevExpress.Web.ASPxEditors
Namespace ImageForValue
Partial Public Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
LoadNodes()
End Sub
Private Sub LoadNodes()
Dim node As TreeListNode = ASPxTreeList1.AppendNode(1)
node.SetValue("Status", "new")
node.SetValue("Message", "Season greetings!")
node = ASPxTreeList1.AppendNode(2)
node.SetValue("Status", "saved")
node.SetValue("Message", "New Regulations")
node = ASPxTreeList1.AppendNode(3)
node.SetValue("Status", "deleted")
node.SetValue("Message", "Present for yoou")
End Sub
Protected Sub ASPxTreeList1_HtmlDataCellPrepared(ByVal sender As Object, ByVal e As TreeListHtmlDataCellEventArgs)
If e.Column.FieldName = "Status" Then
Dim fileName As String = String.Empty
Select Case CStr(e.CellValue)
Case "deleted"
fileName = "~/Images/deleted.png"
Case "saved"
fileName = "~/Images/saved.png"
End Select
Dim img As ASPxImage = CType(ASPxTreeList1.FindDataCellTemplateControl(e.NodeKey, e.Column, "ASPxImage1"), ASPxImage)
If fileName <> String.Empty Then
img.ImageUrl = fileName
Else
img.Visible = False
End If
End If
End Sub
End Class
End Namespace