[alexa___]

Uzvern,
В том то и дело, что все рисунки (изображения) могут не вместится в область формы, надо чтобы они позиционировались на этом "поле".

Неужели нет решения? Я уверен что дожно быть. Программисты, отзовитесь!!!

[Delirium]

alexa___, ты можешь в конце концов указать язык, на котором пишешь? в .NET Framework 2.0 есть контейнер ToolStripContainer, как уже сказал Uzvern:

ToolStripContainer Class
Provides panels on each side of the form and a central panel that can hold one or more controls.

Visual Basic (Declaration)
<ComVisibleAttribute(True)> _
<ClassInterfaceAttribute(ClassInterfaceType.AutoDispatch)> _
Public Class ToolStripContainer _
Inherits ContainerControl

Visual Basic (Usage)
Dim instance As ToolStripContainer

В этом контейнере уже можешь делать что душе угодно.

ссылка с MSDN:
ms-help://MS.MSDNQTR.v90.en/fxref_system.windows.forms/html/1a9341d0-58da-0c16-762d-a9ec150ae790.htm

[alexa___]

Delirium, ты мне коды пишешь, а мне нужен компонет, который можно выбрать на панели инструментов и положить его на форму. (.NET Framework 3.5) - может 2.0 выбрать?

[Uzvern]

alexa___, если бы такое компонет существовал, то тебе бы тогда уже давно написали как его вызвать и кинуть на форму. Мое мнение таково : этот компонент не нужен, т.к. есть V(H)ScrollBar с сочетанием других компонентов.

Вот код :

Код:

    Private Sub VSB_Scroll(ByVal e As System.Windows.Forms.ScrollEventArgs, ByVal ParamArray Components() As Object)
        For Each EC As Object In Components
            If e.OldValue > e.NewValue Then
                EC.Location = New Point(EC.Location.X, EC.Location.Y + e.NewValue + e.OldValue)
            Else
                EC.Location = New Point(EC.Location.X, EC.Location.Y - e.NewValue - e.OldValue)
            End If
        Next
    End Sub

Как его юзать :

Код:

    Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll
        VSB_Scroll(e, указываем нужные компоненты через запятую)
    End Sub

[Uzvern]

Как можно задать иконки файлам, кторые открываются через написаную прогу? Типа как AIMP задает иконки на звуковые файлы.

[Delirium]

Открываем реестр....
Смотрим пример текстового файла....
[HKEY_CLASSES_ROOT\txtfile\DefaultIcon]
@=%SystemRoot%\system32\shell32.dll,-152

Соответственно, если у вас есть файлы ваши с расширением abc, то надо в реестре сделать запись примерно похожую на txtfile.

[Uzvern]

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

[Uzvern]

Как обозначит переменную, как Controls?

Код:

Dim FEControls As

Просто хочу сделать, чтобы можно было обозначить нужный Controls

И как можно открыть папку и выделить какой-либо элемент?

[Мессир]

Доброго времени суток.
Уже пятый день бьюсь над вопросом и ничего не получается . Подскажите плиз
Вопрос в следующем:
Есть на винчестере картинка, кликнув на кнопке необходимо её загрузить, уменьшить до размеров 150х110 пикс. и сохранить в другом месте с этими размерами.
Как вариант её еще нужно отобразить в PictureBox, но с этим проблем у меня не возникнет, я надеюсь..

[Uzvern]

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

Код:

    Dim SFD As New SaveFileDialog
    Dim PB As PictureBox

    Sub SaveImage(ByVal PictureBox As PictureBox)
        PB = PictureBox
        AddHandler SFD.FileOk, AddressOf SFD_FO
        SFD.ShowDialog()
    End Sub

    Sub SFD_FO()
        PB.Image.Save(SFD.FileName)
    End Sub

чтобы загрузить изображение в PictureBox

Код:

    Sub PictureLoad(ByVal PictureBox As PictureBox, ByVal Path As String)
        PictureBox.Load(Path)
        PictureBox.Size = New Size(150, 110)
        PictureBox.SizeMode = PictureBoxSizeMode.StretchImage
    End Sub