Vista aero

[Paradox]

Как активировать aero в форме не только в заголовке, но и далее (как в проводнике)? vb 2008 express

[Williams]

Есть соответствующая функция DwmExtendFrameIntoClientArea

[Paradox]

Искал во всех неймспейсах - не нашел... Может, это Express Edition такой... А API - аналог есть?...

[Viper]

Искал во всех неймспейсах - не нашел... Может, это Express Edition такой... А API - аналог есть?...

Это и есть API функция из библиотеки dwmapi.dll.

[Paradox]

А параметры у этой функции есть?..

[Viper]

А параметры у этой функции есть?..

Несомненно, целых два - хэндл окна и структура с нужными размерами полей окна.

[Paradox]

Э... А поподробнее про переменные структуры и где брать идентификатор окна?

[Williams]

Э... А поподробнее про переменные структуры и где брать идентификатор окна?

1.

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

<StructLayout(LayoutKind.Sequential)> _
Public Structure MARGINS
    Public Left As Integer
    Public Right As Integer
    Public Top As Integer
    Public Bottom As Integer
End Structure

2.
Me.Handle

[Paradox]

Эх... =( Можно еще строку вызова?..

[Williams]

Эх... =( Можно еще строку вызова?..

Дальше давай-ка уже сам =)

http://lmgtfy.com/?q=dwmextendframeinto ... rea+vb.net

[Viper]

Paradox, а самому в MSDN никак нельзя посмотреть? Имя функции ты теперь знаешь.

[Paradox]

Я уж посмотрел =) Только вызов этой функции делает только белый бордюр, а не aero =(

[Paradox]

Я уж посмотрел =) Только вызов этой функции делает только белый бордюр, а не aero =(

[773FF]

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

  'Обьявляем структуру, описывающую размер полей Glass
    <StructLayout(LayoutKind.Sequential)> Private Structure Margins
        Public cxLeftWidth As Integer
        Public cxRightWidth As Integer
        Public cyTopHeight As Integer
        Public cyBottomHeight As Integer
    End Structure

    'Импортируем функию из DLL
    <DllImport("DwmApi.dll")> Private Shared Function DwmExtendFrameIntoClientArea(ByVal hwnd As IntPtr, ByRef pMarInset As Margins) As Integer
    End Function

    <DllImport("dwmapi.dll", PreserveSig:=False)> Private Shared Function DwmIsCompositionEnabled() As Boolean
    End Function
    Const HT_CAPTION As Integer = &H2
    Const WM_NCLBUTTONDOWN As Integer = &HA1

    Private Sub PaintGlass()
        Dim margins As New Margins()
        margins.cxLeftWidth = Me.Width / 2
        margins.cxRightWidth = Me.Width / 2
        margins.cyTopHeight = Me.Height / 2
        margins.cyBottomHeight = Me.Height / 2

        Me.BackColor = Color.Black

        'Определяем Handle формы
        Dim theHandle As Long = Me.Handle.ToInt64



        'Вызываем функцию Glass из библиотеки DwmApi.dll
        Try
            If DwmIsCompositionEnabled() = True Then
                                DwmExtendFrameIntoClientArea(theHandle, margins)
                     End If
        Catch
         
        End Try

Private Sub Form_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        PaintGlass()
    End Sub


[Nord777]

773FF, а что это за безобразие?

Dim theHandle As Long = Me.Handle.ToInt64

[Paradox]

РАБОТАЕТ! Только надо так Dim theHandle as IntPtr = Me.handle

[Williams]

РАБОТАЕТ! Только надо так Dim theHandle as IntPtr = Me.handle

Включи варнинг на Implicit Conversion в свойствах проекта, меньше путаницы будет.

[773FF]

Как ни странно, но и Dim theHandle As Long = Me.Handle.ToInt64 тоже работает (пробовал в Windows Vista X64 и в Windows 7RC X64). А вообще-то Me.Handle.ToInt64 это моя привычка из времён VB6.

[Nord777]

Тебе просто повезло
На 64-битных системах указатели 64-битные
На 32бит будет ждать облом.
Поэтому желательно использовать IntPtr вместо int32 или int64

[773FF]

Тебе просто повезло
На 64-битных системах указатели 64-битные
На 32бит будет ждать облом.
Поэтому желательно использовать IntPtr вместо int32 или int64

- спрасибо!!! В VMware Workstation Aero не работает, а пользователи ругались бы долго.

[Paradox]

Еще один вопрос =) С тех пор, как я растянул аеро на всю форму, на кнопках стал "просвечивать" текст. Смена цвета текста кнопки не помогает =(. Можно это как-нибудь устранить?

[Williams]

Еще один вопрос =) С тех пор, как я растянул аеро на всю форму, на кнопках стал "просвечивать" текст. Смена цвета текста кнопки не помогает =(. Можно это как-нибудь устранить?

Кажется на такой поверхности текст надо рисовать вручную. Где-то была инфа, но не на этом форуме

[773FF]

на кнопках стал "просвечивать" текст

- у меня возникли аналогичные проблемы. В процессе раскопок я прочитал, что полноценно с Aero можно работать в приложениях WPF (Windows Presentation Foundation). А в Windows Forms надо или вручную прорисовывать текст на кнопках (текстовых полях и пр.), или например, вставить в кнопку рисунок (image) с необходимой надписью.

[Paradox]

Я нашел =) Надо поставить свойство кнопки UseCompatibleTextRendering в Truе.