ماكسيمايز و مينيمايز براي ويندوزهاي 64 بيتي

[4017]

با سلام
توسط لينك زير استاد امين اسماعيلي نحوه ماكسيموم و مينيموم كردن فرم رو گذاشتن. نميشه همينو واسه ويندوزهاي 64 بيتي تعريف كرد؟
با تشكر
[حل شده] مینیمایز و ماکسیمایز در فرم [بایگانی] - انجمن اکســل ایران

[4017]

دوستان و اساتيد محترم نظري ندارن؟

[ali.b]

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _    (ByVal lpClassName As String, ByVal lpWindowName As String) 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 SetLayeredWindowAttributes Lib "user32" _
    (ByVal hwnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

برای چنین مشکلی شما باید برای user32 و kernel که مربوط به ویندوز های 32 بیت هست رو براشون جایگزین بیارین