Помогите с Image...

[Technar]

Помогите пожалуйста как зделать так чтобы когда человек выбрал в OpenFileDialog любое изображение и это изображение
после нажатия на кнопку Открыть показывалось в AxImage1 я знаю как это делать только c FileDialog а в OpenFileDialogнезнаю!
как включается OpenFileDialog я знаю а это нет!
наверно должно начинатся так:

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

AxImage1.Picture = ...

я незнаю что надо написать после Picture!

[Williams]

Если я тебя правильно понял, то надо
= Image.FromFile(OpenFileDialog1.FileName)

[Technar]

Если я тебя правильно понял, то надо
= Image.FromFile(OpenFileDialog1.FileName)

Спасибо большое!
Но у меня почему то только 1 раз можно загрузить изображение а когда 2 раз хочешь другое изображение загрузить ни чего ни происходить а остаётся изображение которое человек загрузил до этого!
кстати а как закрыть форму?

[Williams]

Если я тебя правильно понял, то надо
= Image.FromFile(OpenFileDialog1.FileName)

Спасибо большое!
Но у меня почему то только 1 раз можно загрузить изображение а когда 2 раз хочешь другое изображение загрузить ни чего ни происходить а остаётся изображение которое человек загрузил до этого!
кстати а как закрыть форму?

Может быть перед загрузкой нового изображения нужно ощищать существующее или обновлять. Посмотри методы и свойства этого контрола в ObjectBrowser'е

Смотря какую форму. Стандартно - Form.Close (если код в ней, то Me.Close)

[Technar]

Если я тебя правильно понял, то надо
= Image.FromFile(OpenFileDialog1.FileName)

Спасибо большое!
Но у меня почему то только 1 раз можно загрузить изображение а когда 2 раз хочешь другое изображение загрузить ни чего ни происходить а остаётся изображение которое человек загрузил до этого!
кстати а как закрыть форму?

Может быть перед загрузкой нового изображения нужно ощищать существующее или обновлять. Посмотри методы и свойства этого контрола в ObjectBrowser'е

Смотря какую форму. Стандартно - Form.Close (если код в ней, то Me.Close)

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

[dr.MIG]

Для начала открой ObjectBrowser, найди в списке AxImage, выбери его, справа отобразится список свойств и методов этого класса. Просмотри и подумай, исходя из их названия и описания, какой из методов может очистить или обновить твой AxImage. Затем проверь свою догадку, вставив вызов этого метода перед загрузкой изображения.

[Technar]

Для начала открой ObjectBrowser, найди в списке AxImage, выбери его, справа отобразится список свойств и методов этого класса. Просмотри и подумай, исходя из их названия и описания, какой из методов может очистить или обновить твой AxImage. Затем проверь свою догадку, вставив вызов этого метода перед загрузкой изображения.

Нашел!
да кстати у меня почему то в OpenFileDialog1 не показываются изображения формата jpeg хотя я зделал фильтор!
вот код фильтра:

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

OpenFileDialog1.Filter = ("Изображения gif|*.gif|Изображения jpeg|*.jpeg")

[Nord777]

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

"Изображения gif|*.gif|Изображения jpeg|*.jpg;*.jpeg"

[Technar]

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

"Изображения gif|*.gif|Изображения jpeg|*.jpg;*.jpeg"

Спасибо большое!
а как узнать ширину и высоту изображения!

[Williams]

Спасибо большое!
а как узнать ширину и высоту изображения!

Image.PhysicalDimension или Image.Height/Width

[Technar]

Спасибо большое!
а как узнать ширину и высоту изображения!

Image.PhysicalDimension или Image.Height/Width

А как надо написать:
что если ширина и высота больше чем ...ширина и высота... то надо уменьшить размер изображения!
Я знаю что надо использовать if но я не знаю как все надо написать!

[Williams]

Спасибо большое!
а как узнать ширину и высоту изображения!

Image.PhysicalDimension или Image.Height/Width

А как надо написать:
что если ширина и высота больше чем ...ширина и высота... то надо уменьшить размер изображения!
Я знаю что надо использовать if но я не знаю как все надо написать!

Здесь много примеров

А по логике так:

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

      If img.Width > myWidth AndAlso img.Height > myHeight Then

            '//Resize Image here

        End If

[Technar]

Здесь много примеров

А по логике так:

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

      If img.Width > myWidth AndAlso img.Height > myHeight Then

            '//Resize Image here

        End If

Чего то я не могу разобратся!

[Viper]

Здесь много примеров

А по логике так:

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

      If img.Width > myWidth AndAlso img.Height > myHeight Then

            '//Resize Image here

        End If

Чего то я не могу разобратся!

С чем?

[Sebas]

Чего то я не могу разобратся!

Молодой человек, включите голову. Ещё НИ В ОДНОМ ВАШЕ ПОСТЕ не было намёка на ВАШИ ЛИЧНЫЕ ИССЛЕДОВАНИЯ.
Перестаньте ТУПО КОПИРОВАТЬ КОД ИЗ ФОРУМА В ВАШИ ПРОЕКТЫ.

[Razr]

Люди... хи хи.. по поводу размеров высоты и ширины больше/меньше. Есть такая штука как BackgroundImageLayout - поставь zoom и наслаждайся! только код открытия будет немного другим:

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

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If (OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK) Then
            PictureBox1.BackgroundImage = Image.FromFile(OpenFileDialog1.FileName)
            BackgroundImageLayout = ImageLayout.Zoom 'Выбери по усмотрению
        End If
    End Sub

[Technar]

Люди... хи хи.. по поводу размеров высоты и ширины больше/меньше. Есть такая штука как BackgroundImageLayout - поставь zoom и наслаждайся! только код открытия будет немного другим:

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

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If (OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK) Then
            PictureBox1.BackgroundImage = Image.FromFile(OpenFileDialog1.FileName)
            BackgroundImageLayout = ImageLayout.Zoom 'Выбери по усмотрению
        End If
    End Sub

Спасибо за код!
но мне нужно написать:
что если ширина и высота больше чем ...ширина и высота... то надо уменьшить размер изображения!

[Razr]

Чувак не волнуйся:-) Я сейчас напишу и выложу проект сегодня или завтра.

[Razr]

Попробуй это:

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

Public Class Form1
    Dim height_his, width_his As Integer ' Стандартная высота и ширина
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        height_his = 300
        width_his = 300
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            PictureBox1.BackgroundImage = Image.FromFile(OpenFileDialog1.FileName)
            PictureBox1.BackgroundImageLayout = ImageLayout.Stretch
            If (Str(Val(PictureBox1.Height.ToString)) > height_his) Or (Str(Val(PictureBox1.Width.ToString)) > width_his) Then
                PictureBox1.Height = height_his
                PictureBox1.Width = width_his
            Else
            End If
        End If
    End Sub
End Class

У меня все работает на ура:-)

[Nord777]

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

If (Str(Val(PictureBox1.Height.ToString)) > height_his) Or (Str(Val(PictureBox1.Width.ToString)) > width_his) Then

Сильно

[Razr]

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

If (Str(Val(PictureBox1.Height.ToString)) > height_his) Or (Str(Val(PictureBox1.Width.ToString)) > width_his) Then

Сильно

Зато работает:-). Но это все же пример, а не исходник программы

[Razr]

Здесь много примеров

А по логике так:

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

      If img.Width > myWidth AndAlso img.Height > myHeight Then

            '//Resize Image here

        End If

Чего то я не могу разобратся!

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

Dim mywidth As Integer = 300
    Dim myheight As Integer = 300
    Dim newheight As Integer = 100
    Dim newwidth As Integer = 100
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            PictureBox1.BackgroundImage = Image.FromFile(OpenFileDialog1.FileName)
            PictureBox1.BackgroundImageLayout = ImageLayout.Stretch
            If (PictureBox1.Width > mywidth) Or (PictureBox1.Height > myheight) Then
                PictureBox1.Width = PictureBox1.Width - newwidth
                PictureBox1.Height = PictureBox1.Height - newheight
            End If
        End If
    End Sub

Именно для твоего случая.

[Viper]

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

If (Str(Val(PictureBox1.Height.ToString)) > height_his) Or (Str(Val(PictureBox1.Width.ToString)) > width_his) Then

Сильно

Зато работает:-). Но это все же пример, а не исходник программы

Фтопку такие примеры.

[Joo]

Попробуй это:

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

If (Str(Val(PictureBox1.Height.ToString)) > height_his) Or (Str(Val(PictureBox1.Width.ToString)) > width_his) Then...


ппц код. Перевести число в строку, потом в число, потом в строку и сравнить с числом

[Razr]

Я теперь понял... извиняюсь... затупил