فتح الفورم على مقياس الشاشة

[zine pef]

السلام عليكم اخواني

اريد كود ٍٍٍ vb لفتح userform على مقياس الشاشة اي 800 او 1024

شكرا لكم

[ابو اسامة العينبوسي]

السلام عليكم

Private Sub UserForm_Initialize()
With UserForm1
.Width = ActiveWindow.Width
.Height = ActiveWindow.Height
End With
End Sub

[zine pef]

شكرا ابو أسامة على الكود

لكن جربته و لم تفتح على مقياس الشاشة

لا اعلم ما هو السبب

اني مرفق المثال

___________.rar

[احمدزمان]

استاذ ابو اسامة

ماشاء الله تبارك الله

الله يزيدك من علمة ونورة

اخي zine pef

السلام عليكم

اخي انا نزلت ملفك

و لمن فتح الملف فتح الفورم ملء الشاشة

جرب تاني

مع التحية

[عبدالقادر غموزي]

تحية أخوية من المغرب
شكرا لك أخي على هذا الملف

[يحيى حسين]

بعد اذن الاخوة

اخي جرب هذا الكود

Private Sub UserForm_Activate()
With Application
    Me.Top = .Top
    Me.Left = .Left
    Me.Height = .Height
    Me.Width = .Width
End With
End Sub

[محمدي عبد السميع]

[alialiali]

عمل جميل اخي جويستك

ومن بعد اذن صاحب الموضوع ممكن طلب بسيط

وهو

كيف ممكن نثبت الفريم بحيث لايمكن تحريكه الى اي اتجاه ..... وكيف ممكن الغاء خاصة (x) الاغلاق

اخوك علي العتابي

[ابو اسامة العينبوسي]

السلام عليكم

Private Sub UserForm_Initialize()
With Me
.Width = Application.Width
.Height = Application.Height
End With
End Sub
----------------------------------------------
Private Sub UserForm_Layout()
With Me
.Left = Application.Left
.Top = Application.Top
End With
End Sub
---------------------------------------------------------------------
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
End If
End Sub

تم تعديل أبريل 10, 2009 بواسطه ابو اسامة العينبوسي