![]() LFrmHdl = FindWindow(vbNullString, frm.Caption) Private Const LWA_ALPHA = &H2 '//Only needed if you want to fade the entire userformįunction HideTitleBarAndBordar(frm As Object) Private Const LWA_COLORKEY = &H1 '//Chroma key for fading a certain color on your Form Private Const WS_EX_LAYERED = &H80000 '//color ![]() '// Constantes windows para transparência Private Const WS_EX_DLGMODALFRAME As Long = &H1 '//Controls if the window has an icon Private Const WS_CAPTION As Long = &HC00000 '//Style to add a titlebar Private Const GWL_EXSTYLE As Long = (-20) '//The offset of a window's extended style Private Const GWL_STYLE As Long = (-16) '//The offset of a window's style ![]() '// Constantes windows para barra de título Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd 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 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long '// Declarações DLL para alterar ou aparência do UserForm This code works for Windows 10: Option Explicit Public Declare PtrSafe Function SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As APPBARDATA) As LongPtr In my research I only found codes for Windows XP and 2000 or another old versions of Windows. ![]() Please feel free to post your questions or comments below or post them in the Forums.Īccess 2016, access 2019, access 2021, access 365, microsoft access, ms access, ms access tutorial, #msaccess, #microsoftaccess, #help, #howto, #tutorial, #learn, #lesson, #training, #database, #fasttips, property not found, CurrentDb.Properties!AppTitle, Application.Someone knows how to get a Total Fullscreen in VBA, without Window TitleBar or Taskbar? (I'm Using Windows 10 圆4) Tip Jar - Your tips are graciously accepted Questions? Mailing List - Get emails when new videos releasedĬonsulting - Need help with your database ![]()
0 Comments
Leave a Reply. |