|
|
|
 |
 |
Исходник |
 |
|
 |
 |
|
Автор:
|
|
|
Название:
|
Фотоальбом он-лайн |
|
Дата:
|
24 August 2006 |
|
Описание: |
Фотоальбом для вебсайтов. Минимум функций (собсвенно их практические нет), но... Автоматически считывает новые диретории (папки с фотографиями) и соотвественно автоматические отобрахжает новые фото.
В действии можно посмотреть здесь http://www.domvtae.com/album/pictures.aspx
Какие классы нужно импортировать думаю сами знаете, если нет - подскажу. |
| |
Разместить ссылку на этот исходник в форуме вы можете вставив в текст сообщения
следующую строку:
[CODEPOST ID=194]Фотоальбом он-лайн[/CODEPOST] |
| Оценка: |
Проголосовало 10 посетителей, средняя оценка 1.70 |
| Оценить: |
|
1 Dim found As New NameValueCollection
2
3 Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
4 'Reading directories
5 Dim directoryList As String()
6 directoryList = Directory.GetDirectories(Server.MapPath(".") & "\images\")
7 'Finding names of the folders
8 Dim myFolders As String
9 Dim folderName As String
10 For Each myFolders In directoryList
11 folderName = myFolders.Substring(myFolders.LastIndexOf("\") + 1)
12 found.Add(folderName, "1") 'Adding folders names to Collection
13 Next
14 'Binding names of the folders to DDL
15 If Not Page.IsPostBack Then
16 DropDownList1.DataSource = found
17 DropDownList1.DataBind()
18 End If
19 Label1.Text = "Выберите категорию для просмотра фотографий"
20 End Sub
21
22 Private Sub DropDownList1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
23 Label2.Text = "Фотографии " & DropDownList1.SelectedItem.Value
24 'Looking for the files in the directory that is Value of DropDownList
25 Dim imageRoot As String()
26 imageRoot = Directory.GetFiles(Server.MapPath(".") & "\images\" & DropDownList1.SelectedItem.Value & "\")
27 'Creating pictures
28 Dim picName As String
29 Dim myFolders As String
30 For Each myFolders In imageRoot
31 picName = myFolders.Substring(myFolders.LastIndexOf("\") + 1)
32 Response.Output.WriteLine("<html>")
33 Response.Output.WriteLine("<img hspace='100' vspace='10'")
34 Response.Output.WriteLine(" src='http://www.domvtae.com/album/images/")
35 Response.Output.WriteLine(DropDownList1.SelectedItem.Value & "/")
36 Response.Output.WriteLine(picName)
37 Response.Output.WriteLine("'></html>")
38 Next
39 'Counting pictures
40 Dim i As Integer
41 Dim output As String
42 For i = 0 To imageRoot.GetUpperBound(0)
43 output = imageRoot.GetLength(0)
44 Next
45 Label1.Text = "В категории " & output & " фотографий."
46 End Sub |
| Вернуться к списку исходников в категории Стандартные элементы управления |
|
|
|
 |
 |
 |
|
|