zine pef قام بنشر أبريل 8, 2009 مشاركة قام بنشر أبريل 8, 2009 السلام عليكم اخواني اريد كود ٍٍٍ vb لفتح userform على مقياس الشاشة اي 800 او 1024 شكرا لكم رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر أبريل 8, 2009 مشاركة قام بنشر أبريل 8, 2009 السلام عليكم Private Sub UserForm_Initialize() With UserForm1 .Width = ActiveWindow.Width .Height = ActiveWindow.Height End With End Sub رابط هذا التعليق شارك More sharing options...
zine pef قام بنشر أبريل 8, 2009 الكاتب مشاركة قام بنشر أبريل 8, 2009 شكرا ابو أسامة على الكود لكن جربته و لم تفتح على مقياس الشاشة لا اعلم ما هو السبب اني مرفق المثال ___________.rar رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أبريل 8, 2009 مشاركة قام بنشر أبريل 8, 2009 استاذ ابو اسامة ماشاء الله تبارك الله الله يزيدك من علمة ونورة اخي zine pef السلام عليكم اخي انا نزلت ملفك و لمن فتح الملف فتح الفورم ملء الشاشة جرب تاني مع التحية رابط هذا التعليق شارك More sharing options...
عبدالقادر غموزي قام بنشر أبريل 8, 2009 مشاركة قام بنشر أبريل 8, 2009 تحية أخوية من المغربشكرا لك أخي على هذا الملف رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر أبريل 9, 2009 مشاركة قام بنشر أبريل 9, 2009 بعد اذن الاخوة اخي جرب هذا الكود Private Sub UserForm_Activate() With Application Me.Top = .Top Me.Left = .Left Me.Height = .Height Me.Width = .Width End With End Sub رابط هذا التعليق شارك More sharing options...
محمدي عبد السميع قام بنشر أبريل 9, 2009 مشاركة قام بنشر أبريل 9, 2009 رابط هذا التعليق شارك More sharing options...
alialiali قام بنشر أبريل 9, 2009 مشاركة قام بنشر أبريل 9, 2009 عمل جميل اخي جويستك ومن بعد اذن صاحب الموضوع ممكن طلب بسيط وهو كيف ممكن نثبت الفريم بحيث لايمكن تحريكه الى اي اتجاه ..... وكيف ممكن الغاء خاصة (x) الاغلاق اخوك علي العتابي رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر أبريل 10, 2009 مشاركة قام بنشر أبريل 10, 2009 (معدل) السلام عليكم 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 بواسطه ابو اسامة العينبوسي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.