modsetflat.bas

来自「使用VB作为开发工具的朋友,应该都知道VB的IDE不支持对AciveDLL添加 」· BAS 代码 · 共 48 行

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:[e-mail]
'
'主页:http://m5home.365wl.com
'
'
'
'
'
'
'
'
'
'