[ناصر56]

السادة المبرمجين
السلام عليكم ورحمة الله وبركاته
نامل من سيادتكم كتابة كود لاخفاء ادوات التحكم في الفورم
الخاص بال MDIForm
ولكم جزيل الشكر والاحترام
اخوكم في الله
ناصر 56

[ax-ooo-xa]

وضح اكثر

سؤالك غير واضح

[ناصر56]

اخي الكريم العلامات الخاصة بالفورم والموجودة في عنوان الفورم والتي مهمتها ( اغلاق الفورم وتصغيرها ) اريد اخفائها في MDIForm وليس في الفورم العادية

[mamas1]

عذرا لم الاحظ انك قلت mdiform

[ناجي إبراهيم]

السلام عليكم...

النافذة من النوع MDI Form ليس لها خاصية BorderStyle و لا ControlBox و لا MinButton و لا MaxButton.

يمكن تحقيق ذلك باستخدام دوال API التابعة لـ Windows لكن للأسف الآن الوقت متأخر و لا يمكن إعداد مثال بالكود.

سلام.

[ALBRNS]

وعليكم السلام ورحمة الله وبركاته

تفضل اخي

PHP كود :

Option Explicit
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 Const GWL_STYLE = (-16)
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_SYSMENU = &H80000

Private Sub MDIForm_Load()
Dim AStyle As Long
AStyle = GetWindowLong(Me.hWnd, GWL_STYLE)
AStyle = AStyle And Not WS_MINIMIZEBOX
AStyle = AStyle And Not WS_MAXIMIZEBOX
AStyle = AStyle And Not WS_SYSMENU
Call SetWindowLong(Me.hWnd, GWL_STYLE, AStyle)
End Sub 


بالتوفيق