السلام عليكم و رحمة الله و بركاتة
اقدم لكم اعزائي كود رائع و ان شاء الله ينال اعجابكم
وهو كود تصغير و تكبير ايقونة الفورم Minimize / maximize في vba اكسيل
و اليكم الكود يعمل على نظام ويندوز و اوفيس 64 bit
CODE
Option Explicit
Private Declare PtrSafe Function StartWindow Lib "user32" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function MoveWindow Lib "user32" Alias "SetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Const STYLE_CURRENT As Long = (-16) '// A new window STYLE
'// Window STYLE
Private Const WS_CX_MINIMIZAR As Long = &H20000 '// Minimize button
Private Const WS_CX_MAXIMIZAR As Long = &H10000 '// Maximize button
'// Window status
Private Const SW_EXIBIR_NORMAL = 1
Private Const SW_EXIBIR_MINIMIZADO = 2
Private Const SW_EXIBIR_MAXIMIZADO = 3
Dim Form_Personalized As Long
Dim STYLE As Long
Private Sub UserForm_Activate()
Form_Personalized = FindWindowA(vbNullString, Me.Caption)
STYLE = StartWindow(Form_Personalized, STYLE_CURRENT)
STYLE = STYLE Or WS_CX_MINIMIZAR '// Minimize button
STYLE = STYLE Or WS_CX_MAXIMIZAR '// Maximize button
MoveWindow Form_Personalized, STYLE_CURRENT, (STYLE)
End Sub
و كود يعمل على نظام و اوفيس 32 bit
CODE
Option Explicit
Private Declare Function StartWindow Lib "user32" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function MoveWindow Lib "user32" Alias "SetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Const STYLE_CURRENT As Long = (-16) '// A new window STYLE
'// Window STYLE
Private Const WS_CX_MINIMIZAR As Long = &H20000 '// Minimize button
Private Const WS_CX_MAXIMIZAR As Long = &H10000 '// Maximize button
'// Window status
Private Const SW_EXIBIR_NORMAL = 1
Private Const SW_EXIBIR_MINIMIZADO = 2
Private Const SW_EXIBIR_MAXIMIZADO = 3
Dim Form_Personalized As Long
Dim STYLE As Long
''CODE_2**********************************
Form_Personalized = FindWindowA(vbNullString, Me.Caption)
STYLE = StartWindow(Form_Personalized, STYLE_CURRENT)
STYLE = STYLE Or WS_CX_MINIMIZAR '// Minimize button
STYLE = STYLE Or WS_CX_MAXIMIZAR '// Maximize button
MoveWindow Form_Personalized, STYLE_CURRENT, (STYLE)
End Sub
و يتم وضع الكود في اليوزر فورم نفسة
و اليكم مرفق ملف اكسيل يعمل على نظام 64
و لدي اقتراح من يساهم في تطوير الكود و جزاه الله خير
وهو عند تصغيراو تكبير يتأثير معها باقي ملحقات اليوزر فورم مثل مربعات النصية و الازرار الخ..
اتمنى ان ينال هذا الكود اعجابكم و هذا شيئ بسيط اقدمة لكم
تصغير و تكبير الفورم Minimize / maximize اكسيل vba
