Как сохранять програму из кода и делать слайд-шоу...

[Technar]

Как сохранять програму из кода без вывода диалогова окна SaveAs?

[Williams]

Вопрос не совсем ясен. Что именно ты хочешь сохранить? Данные, текст? И в каком направлении

[Technar]

Вопрос не совсем ясен. Что именно ты хочешь сохранить? Данные, текст? И в каком направлении

Я хочю чтобы допустим человек выбрал изображение и оно потом показывалось по умолчанию и при этом можно было загружать другие
изображения!
и ещё можно ли делать чтобы человек выбрал изображение из какой-нибудь папки а потом нажал на кнопку слайд-шоу
и в AxImage1 по очереди шли изображения из папки которой открыл человек изображение?
если что не ясно постараюсь объяснить!

[Williams]

Я хочю чтобы допустим человек выбрал изображение и оно потом показывалось по умолчанию и при этом можно было загружать другие
изображения!
и ещё можно ли делать чтобы человек выбрал изображение из какой-нибудь папки а потом нажал на кнопку слайд-шоу
и в AxImage1 по очереди шли изображения из папки которой открыл человек изображение?
если что не ясно постараюсь объяснить!

Предоставляешь пользователю выбор директории через FolderBrowserDialog, получаешь список файлов при помощи IO.DirectoryInfo - YourDirectory.GetFiles(), затем крутишь их при помощи таймера

[Technar]

Я хочю чтобы допустим человек выбрал изображение и оно потом показывалось по умолчанию и при этом можно было загружать другие
изображения!
и ещё можно ли делать чтобы человек выбрал изображение из какой-нибудь папки а потом нажал на кнопку слайд-шоу
и в AxImage1 по очереди шли изображения из папки которой открыл человек изображение?
если что не ясно постараюсь объяснить!

Предоставляешь пользователю выбор директории через FolderBrowserDialog, получаешь список файлов при помощи IO.DirectoryInfo - YourDirectory.GetFiles(), затем крутишь их при помощи таймера

А как зделать так чтобы не включая FolderBrowserDialog получить список файлов?

[Williams]

А как зделать так чтобы не включая FolderBrowserDialog получить список файлов?

Если тебе надо из OpenFileDialog (предполагаю из предидущих твоих сообщений) то сначала выделить путь без имени файла, а затем

Dim DirInfo As New DirectoryInfo ("Путь к директории")

если же путь к папке известен, то только второй шаг.

[Technar]

А как зделать так чтобы не включая FolderBrowserDialog получить список файлов?

Если тебе надо из OpenFileDialog (предполагаю из предидущих твоих сообщений) то сначала выделить путь без имени файла, а затем

Dim DirInfo As New DirectoryInfo ("Путь к директории")

если же путь к папке известен, то только второй шаг.

А как выделить путь без имени файла?

[Williams]

А как выделить путь без имени файла?

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

     Dim FInfo As New IO.FileInfo("Путь, полученный из OpenFileDialog")
        Dim ParentDir As IO.DirectoryInfo = FInfo.Directory

        Dim files = ParentDir.GetFiles

        For Each file In files

            Console.WriteLine(file.FullName)

        Next

[Technar]

А как выделить путь без имени файла?

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

     Dim FInfo As New IO.FileInfo("Путь, полученный из OpenFileDialog")
        Dim ParentDir As IO.DirectoryInfo = FInfo.Directory

        Dim files = ParentDir.GetFiles

        For Each file In files

            Console.WriteLine(file.FullName)

        Next

Спасибо за код!
Я зделал так:

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

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim FInfo As New IO.FileInfo("OpenFileDialog1.FileName")
        Dim ParentDir As IO.DirectoryInfo = FInfo.Directory

        Dim files = ParentDir.GetFiles

        Dim DirInfo As New IO.DirectoryInfo("ParentDir.Directory")

        PictureBox5.Image = System.Drawing.Image.FromFile(ParentDir.FullName)

    End Sub


Но у меня выскакивает ошибка при включение таймера!
вот изображение ошибки:

[Williams]

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

[Technar]

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

А как тогда загрузить туда картинку вместо папки?

[Williams]

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

А как тогда загрузить туда картинку вместо папки?

Например так:

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

     If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

            Dim PicturesDir As New DirectoryInfo(IO.Path.GetDirectoryName(OpenFileDialog1.FileName))

            For Each pic In PicturesDir.GetFiles("*.jpg")

                Console.WriteLine(pic.FullName)

            Next

        End If

В данном примере в консоль выводится путь к файлам jpeg, лежащим рядом с тем файлом, который пользователь выбрал. Далее, чтобы загрузить картинку в PictureBox делай так:

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

PictureBox.Image = Image.FromFile("путь к картинке")

[Technar]

Когда я пишу вот так:

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

PictureBox5.Image = Image.FromFile(pic.FullName)

pic.FullName Подчеркивается синим цветом значит что-то не правильно?

[Williams]

Когда я пишу вот так:

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

PictureBox5.Image = Image.FromFile(pic.FullName)

pic.FullName Подчеркивается синим цветом значит что-то не правильно?

Импорты?
Вверху документа добавь Imports System.IO

А также измени For Each pic на For Each pic As FileInfo

[Technar]

Когда я пишу вот так:

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

PictureBox5.Image = Image.FromFile(pic.FullName)

pic.FullName Подчеркивается синим цветом значит что-то не правильно?

Импорты?
Вверху документа добавь Imports System.IO

А также измени For Each pic на For Each pic As FileInfo

Нет не импорты а pic.FullName в

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

PictureBox5.Image = Image.FromFile(pic.FullName)

[Razr]

А не легче ли получить список нужных файлов (например *.jpeg) и добавить его в Richtextbox. А потом загружать из него.

[Viper]

А не легче ли получить список нужных файлов (например *.jpeg) и добавить его в Richtextbox. А потом загружать из него.

Интересная логика. И чем загрузка списка файлов в RichTextBox облегчит задачу автора?

[Joo]

Да, дайте ему уже, что он просит.

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

Public Class FormTest
    Dim ImagesFolder As String = "\Images\"
    Dim ImagesMask As String = "*.jp*g"
    Dim AppFolder As String = IO.Path.GetDirectoryName(Application.ExecutablePath)

    Private Sub FormTest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If IO.Directory.Exists(AppFolder & ImagesFolder) Then
            Dim PathsOfImage() As String = IO.Directory.GetFiles(AppFolder & ImagesFolder, ImagesMask)
            Dim i As Integer
            For i = 0 To PathsOfImage.Length - 1
                lbImageNames.Items.Add(IO.Path.GetFileName(PathsOfImage(i)))
            Next
        End If
    End Sub

    Private Sub lbImageNames_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbImageNames.SelectedIndexChanged
        If IO.File.Exists(AppFolder & ImagesFolder & lbImageNames.SelectedItem) Then
            pbShowImage.Image = System.Drawing.Image.FromFile(AppFolder & ImagesFolder & lbImageNames.SelectedItem)
        End If
    End Sub

    Private Sub bStartShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bStartShow.Click
        tChangeImage.Start()
    End Sub

    Private Sub bStopShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bStopShow.Click
        tChangeImage.Stop()
    End Sub

    Private Sub tChangeImage_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tChangeImage.Tick
        Static ImageIndex As Integer = 0
        ImageIndex += 1
        If ImageIndex >= lbImageNames.Items.Count Then ImageIndex = 0
        lbImageNames.SelectedIndex = ImageIndex
    End Sub
End Class


[Razr]

Спасибо большое!