[Мессир]

Ещё небольшой вопрос не по теме : как можно создавать (!) (в одной файле, несколько иконок разного качества)? Рисовать то мы их умеем, осталось только их как-то в один ico-файл упаковать. »

Я для этого юзаю прогу IconUtils. там можно чё угодно с иконами делать.

Мессир, чтобы сохранить файл можно воспользоваться этим кодом, »

Спасибо. попробую.

а вот как изменить размеры сохраняемого файла, это мне тоже интерестно »

Надеюсь если узнаеш напишеш ;-)

[Uzvern]

Я для этого юзаю прогу IconUtils. там можно чё угодно с иконами делать. »

Да я уже через Visual Studio понял как сделать.

Надеюсь если узнаеш напишеш ;-) »

Думаю, что тебе адмирал быстрее ответит

[Uzvern]

Изменяем размеры изображения

Код:

    Dim OFD As New OpenFileDialog
    Dim SFD As New SaveFileDialog

    Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
        OFD.Filter = "All Files|*.*"
        SFD.Filter = "JPG|*.jpg|GIF|*.gif|PNG|*.png"

        AddHandler OFD.FileOk, AddressOf OFD_FO
        AddHandler SFD.FileOk, AddressOf SFD_FO

        OFD.ShowDialog()
        End
    End Sub

    Private Sub OFD_FO()
        If IO.File.Exists(OFD.FileName) Then
            If OFD.FileName.EndsWith(".jpg") Or OFD.FileName.EndsWith(".gif") Or OFD.FileName.EndsWith(".png") Then
                SFD.ShowDialog()
            Else
                MsgBox("Вы указали неверный файл.", MsgBoxStyle.Critical, "Ошибка")
            End If
        End If
    End Sub

    Private Sub SFD_FO()
        Dim Size As Size = New Size(150, 110)

        Dim b As New Bitmap(Bitmap.FromFile(OFD.FileName), Size)
        For Each SFDFE In SFD.Filter
            Select Case SFDFE
                Case "JPG"
                    b.Save(SFD.FileName, Imaging.ImageFormat.Jpeg)
                    End
                Case "GIF"
                    b.Save(SFD.FileName, Imaging.ImageFormat.Gif)
                    End
                Case "PNG"
                    b.Save(SFD.FileName, Imaging.ImageFormat.Png)
                    End
            End Select
        Next
    End Sub

Result (1*600 x 1*200) (150 x 110)

Before :
After :

стырил отсюда

как в (Save/Open)FileDialog можно указать несколько расширений?

Код:

All Files|*.*

это все файлы, а мне нужно указать например

Код:

My Prog Files|*.aaa,*.aab,.*abc

что-то типо этого


Admiral, Я нашел как добавить свое поле в выпадающее меню.
152

[Uzvern]

Где можно просмотреть или как-то вывести "windows.h" header file?

Код:

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Const ID_Load As Integer = &H1
        If m.Msg = ID_Load Then
            MsgBox("Форма удачно загружена")
        End If
        MyBase.WndProc(m)
    End Sub

Например тут &H1 отвечает за загрузку формы, &H2 за её закрытие. Дак вот мне бы хотелос узнать, где я могу получить список действий.

[Delirium]

Вам нужно именно содержимое windows.h ? В Visual Studio это просто - щелчком на этом файле - View Source. Ну или просто поиском найти его на винте

[Uzvern]

Delirium, чет я тебя не совсем понял!
вообщем не нужен спиок данный дейтсвий (&H1, &H2 и т.д.) + description

[Delirium]

Вопрос звучал как:

Где можно просмотреть или как-то вывести "windows.h" header file? »

отсюда и ответ был.
С вашего кода абсолютно не понятно, что это за &H1 , у вас просто константе присваивается значение некоего &H - откуда это взято?

[Uzvern]

&H1 отвечает за загрузку формы »

&H2 за её закрытие »

откуда это взято »

Ну как бы из интернета.

Прсто я подумал, что "windows.h" - это именно действия, похоже я ошибся и задал вопрос не совсем корректно...

[Delirium]

Ну так вы бы писали, что вам необходимы коды &H203 и им подобные Это похоже на #define в заголовочных файлах. Ищите windows.h как я писал, и будет счастье Ну, если есть время, подождите, поищу.

Подсказка: копать примерно отсюда

[Uzvern]

спасибо!