إبراهيم ابوليله قام بنشر مارس 1, 2012 مشاركة قام بنشر مارس 1, 2012 الاخوه الكرام تحيه طيبه وبعد كيف اقوم باخفاء زر X (الخاص بالاغلاق ) USERFORM1 وذلك حتى اجبر المستخدم فى ادخال الاسم والباسورد لانه اذا قام باغلاق ض خ والاضافه مع منع تغير الاسم.rarUSERFORM1من زر X سوف يستطيع الدخول الى البرنامج رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر مارس 1, 2012 مشاركة قام بنشر مارس 1, 2012 السلام عليكم الصق هذه السطر في حدث الفورم Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Cancel = True End Sub رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر مارس 1, 2012 مشاركة قام بنشر مارس 1, 2012 شكرا اخي الفاضل ابو نصار هذه بعض الامثلة تعطيل او اخفاء زر الغلق Disable the x close button1.zip Disable the x close button2.rar Disable the x close button3.rar Disable the x close button4.rar Disable the x close button5.rar رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر مارس 3, 2012 الكاتب مشاركة قام بنشر مارس 3, 2012 بارك الله فيكم اخوانى رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر مارس 3, 2012 مشاركة قام بنشر مارس 3, 2012 جزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
hussein chechen قام بنشر أبريل 4, 2012 مشاركة قام بنشر أبريل 4, 2012 بارك الله فيكم عمل اكثر من رائع رابط هذا التعليق شارك More sharing options...
بوحماد قام بنشر أبريل 4, 2012 مشاركة قام بنشر أبريل 4, 2012 بارك الله فبك رابط هذا التعليق شارك More sharing options...
aburajai قام بنشر يونيو 8, 2013 مشاركة قام بنشر يونيو 8, 2013 اخواني الاحبارء اذا اردنا الغاء البار الازرق في الفورم بحيث يظهر مربع بدون البار الاعلى ما هو الكود لو سمحتم رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يونيو 8, 2013 مشاركة قام بنشر يونيو 8, 2013 السلام عليكم الاخ الكريم / aburajai بارك الله فيك لتنفيذ ما تريده قم بوضع الاكواد التاليه باكواد الفورم واليك ملف مرفق به فورم مع الاكواد المذكورة لالغاء الشريط الازرق من الفورم ( ترويسه الفورم ) 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 DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long Const GWL_STYLE = -16 Const WS_CAPTION = &HC00000 Const WS_SYSMENU = &H80000 Private Sub UserForm_Initialize() On Error Resume Next Dim lngWindow As Long, lFrmHdl As Long lFrmHdl = FindWindow(vbNullString, Me.Caption) lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE) lngWindow = lngWindow And (Not WS_CAPTION) Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow) Call DrawMenuBar(lFrmHdl) End Sub Private Sub CommandButton1_Click() End End Sub جزاك الله خيرا الغاء الترويسه من الفورم.rar 1 2 رابط هذا التعليق شارك More sharing options...
سما محمد قام بنشر يونيو 8, 2013 مشاركة قام بنشر يونيو 8, 2013 استاذنا القدير / حمادة عمر دائما لا تترك احدا بدون رد جعلك الله في عوننا جميعا جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يونيو 8, 2013 مشاركة قام بنشر يونيو 8, 2013 بارك الله فيكي اختي الفاضلة / سما رابط هذا التعليق شارك More sharing options...
عبدالعزيز راشد قام بنشر يونيو 9, 2013 مشاركة قام بنشر يونيو 9, 2013 بارك الله فيكم على حسن تعاونكم وان شاء الله مايغير عليكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها