Создание красивой формы в 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.6 из 5