+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : ادوات التحكم في عنوان الفورم (/showthread.php?tid=5073)
ادوات التحكم في عنوان الفورم - ناصر56 - 04-10-12
السادة المبرمجين
السلام عليكم ورحمة الله وبركاته
نامل من سيادتكم كتابة كود لاخفاء ادوات التحكم في الفورم
الخاص بال MDIForm
ولكم جزيل الشكر والاحترام
اخوكم في الله
ناصر 56
ادوات التحكم في عنوان الفورم - ax-ooo-xa - 05-10-12
وضح اكثر
سؤالك غير واضح
ادوات التحكم في عنوان الفورم - ناصر56 - 07-10-12
اخي الكريم العلامات الخاصة بالفورم والموجودة في عنوان الفورم والتي مهمتها ( اغلاق الفورم وتصغيرها ) اريد اخفائها في MDIForm وليس في الفورم العادية
ادوات التحكم في عنوان الفورم - mamas1 - 08-10-12
عذرا لم الاحظ انك قلت mdiform
ادوات التحكم في عنوان الفورم - ناجي إبراهيم - 08-10-12
السلام عليكم...
النافذة من النوع MDI Form ليس لها خاصية BorderStyle و لا ControlBox و لا MinButton و لا MaxButton.
يمكن تحقيق ذلك باستخدام دوال API التابعة لـ Windows لكن للأسف الآن الوقت متأخر و لا يمكن إعداد مثال بالكود.
سلام.
ادوات التحكم في عنوان الفورم - ALBRNS - 08-10-12
وعليكم السلام ورحمة الله وبركاته
تفضل اخي
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
بالتوفيق