1 Imports System
  2 Imports System.IO
  3 Imports System.Web
  4 Imports System.Web.UI.WebControls
  5 Imports System.Drawing
  6 Imports System.Security
  7 Imports System.Security.Policy
  8 REM Описывает свойства дерева
  9 Public Class SMenuMaxTree
 10     Inherits Style
 11     REM Переменные уровня модуля
 12     Private _PicRootUrl As String
 13     Private _PicFolderUrl As String
 14     Private _PicFolderOpenedUrl As String
 15     Private _PicChosenUrl As String
 16     Private _PicFileUrl As String
 17     REM Путь к файлу картинки корневой папки
 18     Public Property PicRootUrl() As String
 19         Get
 20             Return _PicRootUrl
 21         End Get
 22         Set(ByVal Value As String)
 23             _PicRootUrl = Value
 24         End Set
 25     End Property
 26     REM Путь к файлу картинки обычной папки
 27     Public Property PicFolderUrl() As String
 28         Get
 29             Return _PicFolderUrl
 30         End Get
 31         Set(ByVal Value As String)
 32             _PicFolderUrl = Value
 33         End Set
 34     End Property
 35     REM Путь к файлу картинки открытой папки
 36     Public Property PicFolderOpenedUrl() As String
 37         Get
 38             Return _PicFolderOpenedUrl
 39         End Get
 40         Set(ByVal Value As String)
 41             _PicFolderOpenedUrl = Value
 42         End Set
 43     End Property
 44     REM Путь к файлу картинки избранного элемента
 45     Public Property PicChosenUrl() As String
 46         Get
 47             Return _PicChosenUrl
 48         End Get
 49         Set(ByVal Value As String)
 50             _PicChosenUrl = Value
 51         End Set
 52     End Property
 53     REM Путь к файлу картинки негруппового элемента
 54     Public Property PicFileUrl() As String
 55         Get
 56             Return _PicFileUrl
 57         End Get
 58         Set(ByVal Value As String)
 59             _PicFileUrl = Value
 60         End Set
 61     End Property
 62 End Class
 63