Создание красивой формы в VB
Формулировка задачи:
Я новечек в VB в основном работал только с Делфи.Недавно возникла необходимость написать на VB приложение с красивым,нестандартным интерфейсом. В Делфи пользовался регионом что бы создать красивую форму. КАК можно сделать это в VB?
например дан BMP файл на его основе нужна форма полупрозрачная.
Помогите чем можете или дайте путевую ссылку на статью.
removed@mail.ru
Решение задачи: «Создание красивой формы в VB»
textual
Листинг программы
Option Explicit Private Declare Function GetWindowLong Lib 'user32' _ Alias 'GetWindowLongA' (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib 'user32' Alias 'SetWindowLongA' _ (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib 'user32' (ByVal hwnd As Long, ByVal crey As Byte, _ ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Const GWL_EXSTYLE = (-20) Private Const WS_EX_LAYERED = &H80000 Private Const LWA_ALPHA = &H2& Private mbytOpacity As Byte Private Sub Form_Load() VScroll1.Min = 0 VScroll1.Max = 255 VScroll1.Value = 255 mbytOpacity = VScroll1.Value SetFormOpacity End Sub Private Sub SetFormOpacity() Dim bytOpacity As Byte 'Set the transparency level bytOpacity = mbytOpacity SetWindowLong Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED SetLayeredWindowAttributes Me.hwnd, 0, bytOpacity, LWA_ALPHA End Sub Private Sub VScroll1_Change() mbytOpacity = VScroll1.Value SetFormOpacity End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д