Здравствуйте, в этой статье я расскажу как сделать свою программу красивее и привлекательнее.
Что получится:
[Ссылки могут видеть только зарегистрированные пользователи. ][Ссылки могут видеть только зарегистрированные пользователи. ][Ссылки могут видеть только зарегистрированные пользователи. ]
Смена стиля в VB.NET очень простая, нам надо просто подключить стилевой класс.
Я использовал программу VB.NET Theme Manager - она бесплатна, и очень проста в использовании. В ней уже готовые стилевые классы.
[Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
Начнем.
Создаем новый проект в студии.
[Ссылки могут видеть только зарегистрированные пользователи. ]
Добавляем класс. Проект\Добавить класс.
[Ссылки могут видеть только зарегистрированные пользователи. ]
Запускаем VB.NET Theme Manager, выбираем понравившейся стиль.
Под скрином стиля будет текст, его копируем и вставляем в наш класс.
Мой выбор пал на стиль с названием Influence.
[Ссылки могут видеть только зарегистрированные пользователи. ]
Вставляем в наш класс.
[Ссылки могут видеть только зарегистрированные пользователи. ]
Далее запускаем программу (F5), и закрываем, после этого в панели элементов появятся новые элементы.
[Ссылки могут видеть только зарегистрированные пользователи. ]
Первым делом нужно добавить на форму тему.
[Ссылки могут видеть только зарегистрированные пользователи. ]
После этого у нас получится такое.
[Ссылки могут видеть только зарегистрированные пользователи. ]
Готово. Далее можем добавлять другие элементы.
[Ссылки могут видеть только зарегистрированные пользователи. ]
На некоторых дизайнах есть ошибки, перепробовал еще не все, но нашел 1 красивый дизайн Ghost. Автору огромнейшее спасибо
Я тоже заметил что у некоторых есть ошибки. Там много красивых дизайнов.
Я Соединил 2 дизайна, Ghost & Influence. Получилось такое.
Class - [Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
А как сделать все темы в программе сразу? У меня не получается.
Добавляешь все классы в проэкт, если же нужные компоненты не появились даже после запуска программы, нужно перезапустить весь проэкт(закрыть компилятор и заного запустить ).
[Ссылки могут видеть только зарегистрированные пользователи. ] Дизайн Win7 Aero. Работает только на WIN7.
Код:
Код:
Imports System.Runtime.InteropServices
Public Class Form1
<StructLayout(LayoutKind.Sequential)> _
Public Structure MARGINS
Public Destra As Integer
Public Sinistra As Integer
Public Su As Integer
Public Giu As Integer
End Structure
Declare Auto Function DwmIsCompositionEnabled Lib "dwmapi.dll" Alias "DwmIsCompositionEnabled" (ByRef pfEnabled As Boolean) As Integer
Declare Auto Function DwmExtendFrameIntoClientArea Lib "dwmapi.dll" Alias "DwmExtendFrameIntoClientArea" (ByVal hWnd As IntPtr, ByRef pMargin As MARGINS) As Integer
Dim pMargins As New MARGINS With {.Su = -1, .Sinistra = -1, .Destra = -1, .Giu = -1}
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim en As Boolean = False
DwmIsCompositionEnabled(en)
If en Then
DwmExtendFrameIntoClientArea(Me.Handle, pMargins)
End If
Me.TransparencyKey = Color.FromKnownColor(KnownColor.ActiveCaption)
Me.BackColor = Me.TransparencyKey
End Sub
End Class