Как сделать файл...

[Algol]

Как сделать файл в виде проекта(туда кидаешь нужные адреса), а потом загружаешь и смотришь как бы... слайд-шоу (если это адреса картинок) - это все в VB делается конечно .Можно так сделать или нет?

[Unstat]

Не понятен вопрос можно ли изложиться точнее

[Algol]

А я не знаю как лучше сформулировать? Свои формулировки присылайте на ЛС. А кто понял ответьте пожалуйста.

[EvilCoder]

<DELETE>

[Kostyan]

Мне так показалось человек хочет что-то типа m3u листов в винампе, где хранятся только пути к файлам. Для этого подойдет простой текстовый файл, в котором в каждой строке будет записан путь файла. Затем считываешь этот файл построчно и открываешь рисунки поочередно.

[Algol]

Ну в общем примерно то. Только как это сделать?

[Kostyan]

Я-ж тебе написал, что пути к файлам сохраняешь в текстовике и потом считываешь построчно, если не можешь сам, вот тебе код:

Код: Выделить всё

Private Sub Command1_Click()
Open "C:\Список.txt" For Input As #1
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Dim s As String
Open "C:\Список.txt" For Output As #1
s = Dir$("C:\Мои документы\Фотки\*.jpg")
Do While s <> ""
  Print #1, "C:\Мои документы\Фотки\" & s
  s = Dir$
Loop
Close (1)
End Sub

Private Sub Timer1_Timer()
Dim s As String
If Not EOF(1) Then
  Line Input #1, s
  Picture1.Picture = LoadPicture(s)
Else
  Close (1)
  Timer1.Enabled = False
End If
End Sub


На форме должны быть 2 кнопки (1-я для запуска слайд-шоу, 2-я для создания списка), 1 таймер (вначале свойство Enabled=False, интервал поставь какой тебе нужно), и один Picturebox.
Просто переделай его под себя, поменяй пути к рисункам.

[Algol]

Че то не получается, в блокнот ниче не пишет и с таймером проблема.

[Urvin]

Это можно только уметь....

[Algol]

А как адреса в блокнот кидать?

[Kostyan]

Код: Выделить всё

Private Sub Command2_Click()
Dim s As String
Open "C:\Список.txt" For Output As #1
s = Dir$("C:\Мои документы\Фотки\*.jpg")
Do While s <> ""
  Print #1, "C:\Мои документы\Фотки" & s
  s = Dir$
Loop
Close (1)
End Sub


Вот в этом месте ты написал путь к своей папке с рисунками или нет? Еси написал, то убедись что правильно! (Вместо моего C:\Мои документы\Фотки\ напиши свой путь), если они не jpg а другие, то пиши не *.jpg а нужное расширение.
И чего у тебя там с таймером? Я смотрю ты совсем не умеешь работать в VB, подробнее объясни в чем проблема.

[Algol]

Я хочу кидать адреса в блокнот из разных папок а не из одной (так че мне в коде много папок что ли писать)?

[Kostyan]

Да, для каждой папки нужно писать. А по-другому никак.
Один раз открыл файл, прошелся по всем нужным папкам, собрал из них пути и закрыл файл.

[Algol]

Ну адреса у меня есть допустим, остается только кинуть их в блокнот , а потом читать адреса из блокнота и выводить картинки на экран. Как мне это сделать?

[Kostyan]

Ты издеваешься что-ли или просто невъезжаешь??? Я же тебе написал программу которая и заносит адреса в текстовый файл (ты почему-то его называешь блокнотом ), читает их оттуда и выводит рисунки в пикчебокс с интервалом. Блин, мозгами пошевели чуть-чуть...

[Algol]

Private Sub Command1_Click()
Open "C:\Список.txt" For Input As #1
Timer1.Enabled = True
End Sub

Вот это вот не идет - пишет какую-то ошибку.(55):cry:
Презентация не показывается(хотя, если нажать на Command2 все адреса пишутся).
А ты сам этот код пробовал?
Ну если честно я не въезжаю. Вообще первый раз с этим сталкиваюсь(работа с файлами).

[Amed]

"Какая-то ошибка" - ошибка #55 (File already open), т.е. файл №1 уже открыт. Перед 'Open "C:\Список.txt"' надо написать 'Close #1'.

[Kostyan]

Конечно пробовал. Ты не забыл в command2 в конце поставить Close (1)? Ошибка может быть только в этом, потому что в момент нажатия на кнопку 1 никаких файлов не должно быть открыто!!! Проверь это условие.

[Algol]

If Not EOF(0) Then

Объясни пожалуйста это условие.

[Cyrax]

это проверка конца файла, т.е. когда EOF(0) = True файл закончился

--------------------
p.s. ну когда же они научатся книжки читать?

[Algol]

Я даже не знаю что делать - все вроде бы правильно а не идет.

[Algol]

Kostyan ты же у себя проверял - идет. Тогда дай мне ссылку на скачивание того че ты написал. OK

[Kostyan]

Держи

[Algol]

А можно сделать вот как:
У меня есть кнопка, когда нажимаешь на нее в переменную S записывается адрес. Как этот адрес записать в файл. А то я пробую а адреса все равно не записываются. И еще проблема у меня в проге уже есть 3 Timera. Когда я заменяю номер в таймере с 3 на 1 в коде данном мне Kostyan`ом то ничего ни делается. Помогите кто может.

[Algol]

Вот смотрите есть кнопка, когда я ее нажимаю в переменную s записывается адрес рисунка, а потом:

Код: Выделить всё

Private Sub Command1_Click()
Open "C:\Список.txt" For Input As #1
Timer3.Enabled = True
End Sub

Private Sub Command2_Click()
Dim s As String
Open "C:\Список.txt" For Output As #1
  Print #1,  s
Close (1)
End Sub

Private Sub Timer3_Timer()
If not EOF(1) then
  Line Input #1, s
  Picture1.Picture = LoadPicture(s)
Else
  Close (1)
Timer3.Enabled = False
End If
End Sub


Может кто-нибудь скажет что тут неправильно?

[A.A.Z.]

Код: Выделить всё

Private Sub Command1_Click()
Open "C:\Список.txt" For Input As #1
Timer3.Enabled = True
End Sub

Private Sub Command2_Click()
Dim s As String
Open "C:\Список.txt" For Output As #1
  Print #1,  s
Close (1)
End Sub

Private Sub Timer3_Timer()
If not EOF(1) then
  Line Input #1, s
  Picture1.Picture = LoadPicture(s)
Else
  Close #1
  Timer3.Enabled = False
End If
End Sub

[Algol]

Тобишь это все правильно. В блокнот-то адреса не пишутся, а размер увеличивается.

[A.A.Z.]

А в Command2_Click() s-то чему равен?

[Algol]

Ага все понял - ошибка в типах переменных. Теперь все получается А как перескакивать на другую строчку, а то теперь 1 строчка записывается на другую. Подскажи A.A.Z. please.

[A.A.Z.]

Код: Выделить всё

Open "C:\Список.txt" For Append As #1 'Append дописывает строки в КОНЕЦ файла
Print #1, s
Close #1