无标题栏窗体

不看不看 · 发表于 2008-6-12 11:34

本帖最后由爱疯于 2011-10-14 20:57 编辑

Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd 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 SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const GWL_STYLE As Long = (-16)
Private Const WS_CAPTION As Long = &HC00000

Private Sub UserForm_Initialize()
    hwnd = FindWindow("ThunderDFrame", Me.Caption)
    SetWindowLong hwnd, GWL_STYLE, IStyle
    DrawMenuBar hwnd
End Sub

API相对来说代码很少了（只有几行），不必理解，拿来就用[em01]

[hide] BoxBMBn8.rar (9.28 KB, 下载次数: 250)

不看不看 · 发表于 2008-6-12 11:35

学八版，试下回复帖[em07]

sd6310514 · 发表于 2008-6-12 11:46

看下怎么搞的

wayy · 发表于 2008-6-12 11:53

QUOTE:

以下是引用不看不看在2008-6-12 11:35:00的发言：
学八版，试下回复帖[em07]

hhzjxss · 发表于 2008-6-12 12:19

不看不看！

只瞧瞧！

yuhe0008 · 发表于 2008-6-12 12:30

[em05]

Firerabbit · 发表于 2008-6-12 12:31

看看

assume · 发表于 2008-6-12 12:32

zh001 · 发表于 2008-6-12 12:35

看看

叶国开 · 发表于 2008-6-12 12:53

学习

		自动登录	找回密码
密码			注册

[分享] 无标题栏窗体