modsetflat.bas

来自「用vb编写dll动态链接库。教程及一些源代码 很实用」· 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
'
'
'
'
'
'
'
'
'
'