去除窗体标题栏64位下提示错误,急,求高手:

chulia_wong

Private Sub UserForm_Initialize()
Dim IStyle As LongLong, hWnd As LongLong
'''000000000000000000000000000000
hWnd = FindWindow(vbNullString, Me.Caption)
    SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
'''0000000000000000000000000000
ListBox1.ColumnCount = 1
        '******去除窗体标题栏******
    IStyle = GetWindowlonglong(hWnd, GWL_STYLE)
    IStyle = IStyle And Not WS_CAPTION
    SetWindowLong hWnd, GWL_STYLE, IStyle
    DrawMenuBar hWnd
'    ******去除窗体四周的边框******
     IStyle = GetWindowLong(hWnd, GWL_EXSTYLE) And Not WS_EX_DLGMODALFRAME
    SetWindowLong hWnd, GWL_EXSTYLE, IStyle
endsub

红色标示的两句在32位下正常使用,为什么在64位下就提示错误呢?请问这两句是什么意思,怎么改才能在64位下使用?请高手直接帮忙解答,谢谢谢谢!

金樽空对月

你的API的声明到哪里了呢？

金樽空对月

红色的都是API内的函数，如果不在通用区内声明，是不能使用的。

chulia_wong

金樽空对月 发表于 2015-10-23 23:50
红色的都是API内的函数，如果不在通用区内声明，是不能使用的。

Option Explicit
Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As LongLong) As LongLong
Private Declare PtrSafe Function GetWindowlonglong Lib "user32" Alias "GetWindowlonglongA" (ByVal hWnd As LongLong, ByVal nIndex As LongLong) As LongLong
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As LongLong, ByVal nIndex As LongLong, ByVal dwNewLong As LongLong) As LongLong
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongLong
Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hWnd As LongLong, ByVal hWndInsertAfter As LongLong, ByVal X As LongLong, ByVal Y As LongLong, ByVal cx As LongLong, ByVal cy As LongLong, ByVal wFlags As LongLong) As LongLong
Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1

Private Const GWL_STYLE As LongLong = (-16)
Private Const GWL_EXSTYLE = (-20)
Private Const WS_CAPTION As LongLong = &HC00000
Private Const WS_EX_DLGMODALFRAME = &H1&









我发现在64位下不要这两句照样能用!也不知道为什么!