minimize and Maximize

[war24]

Guys can you help about this Code

Option Explicit


#If VBA7 Then
Private Declare PtrSafe Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function GetWindowLongPtr Lib "USER32" Alias "GetWindowLongPtrA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLongPtr Lib "USER32" Alias "SetWindowLongPtrA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long


#Else

Private Declare PtrSafe Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

#End If

Private Const GWL_Style = (-16)
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MIXIMIZEBOX = &H10000


Public Sub AddManimizeButton(ByVal UserForm As Object)
Dim hWnd As LongPtr, Istyle As LongPtr
hWnd = FindWindow("ThunderDFrame", UserForm.Caption)
Istyle = GetWindowLongPtrA(hWnd, GWL_Style)
Istyle = Istyle Or WS_MANIMIZEBOX
Call SetWindowLongPtrA(hWnd, GWL_Style, Istyle)
End Sub

Public Sub AddMaximizeButton(ByVal UserForm As Object)
Dim hWnd As LongPtr, Istyle As LongPtr
hWnd = FindWindow("ThunderDFrame", UserForm.Caption)
Istyle = GetWindowLongPtr(hWnd, GWL_Style)
Istyle = Istyle Or WS_MAXIMIZEBOX
Call SetWindowLongPtr(hWnd, GWL_Style, Istyle)
End Sub

 

[NdNoviceHlp]

Your API's are looking for Hwnd as Long inputs and you have declared them as LongPtr. So either change your API(s) input(s) to LongPtr or Dim your HWnd variables as Long. HTH. Dave
ps. please use code tags

 

[NdNoviceHlp]

I did a bit of googling and it seems that you haven't declared the GetWindowLong or the SetWindowLong API's correctly. You then need to remove the HWnd declarations from your subs and add them as shown. Dave

#If VBA7 Then
    #If Win64 Then
        Private Declare PtrSafe Function GetWindowLongPtr Lib "USER32" Alias "GetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
     Private Declare PtrSafe Function SetWindowLongPtr Lib "USER32" Alias "SetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
#Else
        Private Declare PtrSafe Function GetWindowLongPtr Lib "USER32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
    Private Declare Function SetWindowLongPtr Lib "USER32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
#End If
Dim Hwnd as LongPtr
#Else
    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
Dim HWnd as long
#End If

 

[war24]

I did a bit of googling and it seems that you haven't declared the GetWindowLong or the SetWindowLong API's correctly. You then need to remove the HWnd declarations from your subs and add them as shown. Dave

#If VBA7 Then
    #If Win64 Then
        Private Declare PtrSafe Function GetWindowLongPtr Lib "USER32" Alias "GetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
     Private Declare PtrSafe Function SetWindowLongPtr Lib "USER32" Alias "SetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
#Else
        Private Declare PtrSafe Function GetWindowLongPtr Lib "USER32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
    Private Declare Function SetWindowLongPtr Lib "USER32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
#End If
Dim Hwnd as LongPtr
#Else
    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
Dim HWnd as long
#End If

i see

 

[NdNoviceHlp]

ok then