modsetflat.bas

使用VB作为开发工具的朋友,应该都知道VB的IDE不支持对AciveDLL添加 输出函数.这样的DLL文件只能采用"引用"的办法来用.有没有办法让它像普 通DLL一样拥有输出函数呢?请使用

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
'
'
'
'
'
'
'
'
'
'