Login Register






Thread Rating:
  • 0 Vote(s) - 0 Average
Thread Closed 


[VB.NET] Glass Console filter_list
Author
Message
[VB.NET] Glass Console #1
Here is a source of Glass Console written in VB.NET Smile
Code:
Module Module1

    Private Declare Sub DwmEnableBlurBehindWindow Lib "dwmapi.dll" ( _
    ByVal hwnd As IntPtr, _
    ByRef blurBehind As DWM_BLURBEHIND)

    Private Declare Function GetConsoleWindow Lib "Kernel32.dll" () As IntPtr

    Private Structure DWM_BLURBEHIND
        Public dwFlags As DwmBlurBehindDwFlags
        Public fEnable As Boolean
        Public hRgnBlur As IntPtr
        Public fTransitionOnMaximized As Boolean
    End Structure

    Private Enum DwmBlurBehindDwFlags
        DWM_BB_ENABLE = &H1
        DWM_BB_BLURREGION = &H2
        DWM_BB_TRANSITIONONMAXIMIZED = &H4
    End Enum

    Sub Main()
        Console.Title = "Glass Console"
        DwmEnableBlurBehindWindow(GetConsoleWindow, New DWM_BLURBEHIND With {.dwFlags = DwmBlurBehindDwFlags.DWM_BB_ENABLE, .fEnable = True})
        Console.Write("Glass console")
        Console.Read()
    End Sub
End Module
Enjoy








Users browsing this thread: 1 Guest(s)