?? modsetflat.bas
字號:
Attribute VB_Name = "ModSetFlat"
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long) As Long
Public Function SetFlat(ByVal vHwnd As Long)
SetWindowLong vHwnd, -16, &H50008000 '1342210048
End Function
'' ************* 將按鈕設為平面 *************
''
''使用方法1:本窗體中所有按鈕均設為平面
'
'Dim i As Integer
'
'Dim Col As Control
'
'For Each Col In Controls
'
' If TypeOf Col Is CommandButton Then
'
' SetFlat Col.Hwnd
'
' End If
'
'Next
'
''使用方法2:將指定按鈕平面化
'
'SetFlat Command.Hwnd
'
'我的QQ:80524554
'
'MAIL:myjian01@126.com
'
'主頁:http://m5home.365wl.com
'
'
'
'
'
'
'
'
'
'
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -