قطان قام بنشر يوليو 26, 2009 قام بنشر يوليو 26, 2009 شباب مبارك على النموذج الجديد للمنتدى بس لو بلغتونا ( لأني خفت كتير ) المهم عندي فورم وبدي خلي زر اظهاره بشريط الأدوات واذا ممكن خي زر للتصغير بحيث تابع شغل دون الخروج منه الملف المرفق بسيط لأعرف الطريقة وأطبقها على الملف لدي والسلام ختام Book22.rar
ياسر خليل أبو البراء قام بنشر يوليو 26, 2009 قام بنشر يوليو 26, 2009 الأخ قطان أسعد الله مساءك عندي فورم وبدي خلي زر اظهاره بشريط الأدوات قم بكتابة الكود UserForm1.Show في إجراء باسم Show مثلاً وذك في موديول Sub Show() UserForm1.Show End Sub في أوفيس 2007 اختر Excel Options ثم التبويب Customize ثم من القائمة المنسدلة Choose Commands From: اختر Macros ثم حدد الماكرو Show ثم اضغط Add يمكنك النقر على Modify لتعديل شكل الأيقونة التي ترغب بها......بهذا يكون تم إضافة زر لإظهار الفورم بالنسبة لتضغير الفورم ليس لدي فكرة!!! أخوك أبو البراء
قطان قام بنشر يوليو 26, 2009 الكاتب قام بنشر يوليو 26, 2009 السلام عليكم أخي أبو البراء مشكور وجزاك الله عني كل خير لكن ماذا لو كان الملف مغلقا ؟؟؟؟ لقد قام الزر بفتحه !! فهل من الممكن أن يكون الزر خاص بالملف فقط ولايظهر في غيره والسلام ختام
قطان قام بنشر يوليو 26, 2009 الكاتب قام بنشر يوليو 26, 2009 عفوا وهل من الممكن في اكسيل2003 ؟؟؟؟؟ والسلام ختام
حسين بلال قام بنشر يوليو 27, 2009 قام بنشر يوليو 27, 2009 السلام عليكم أيها المحارب, فعلاً أنا برشحك أخ قطان للقب المحارب. جزاك الله خيراً ووفقك لما يحب ويرضى أنا اليوم كنت عم جرب وقدرت ضيف الكود إلى شريط الأدوات وربطه بأيقونة, في خصائص هي الأيقونة عملت ارتباط تشعبي لمكان حفظ صفحة الكود ولله الحمد كله تمام وصار بالضغط على هالأيقونة بيشتغل الكود المطلوب ( الفورم المطلوب ) جزاك الله خيراً مجدداً
قطان قام بنشر يوليو 27, 2009 الكاتب قام بنشر يوليو 27, 2009 السلام عليكم بتأمر أخي الحبيب ومشكور على اللقب حلو بس كبير علي لسا بالاكسيل المهم الملفف صار بموضوعك الخاص ولا تنسوا ياشباب أريد زر تصغير للفورم ؟؟ والسلام ختام
engineer.saleh قام بنشر يوليو 28, 2009 قام بنشر يوليو 28, 2009 عزيزي قطان السلام عليكم بالنسبة لتصغير الفورم , استخدم الكود التالي لاحظ أن القيم x f يمكن تعديلها للقيمة المناسبة لك Private Sub CommandButton1_Click() Dim x, f As Variant x = 180 f = 30 If Me.Height > f Then Me.Height = f Me.Width = f Else Me.Height = x Me.Width = x End If End Sub minimize userform.rar
قطان قام بنشر يوليو 28, 2009 الكاتب قام بنشر يوليو 28, 2009 السلام عليكم شكرا أخي صالح فكرة رائعة جدا وهي قيد التطبيق جزاك الله عني كل خير ومع ذلك يبقى الطلب وضع زر التصغير في أعلى الفورم بجوار الإغلاق ( كما في صفحة الويندوز ) والسلام ختام
ياسر خليل أبو البراء قام بنشر يوليو 28, 2009 قام بنشر يوليو 28, 2009 أخي قطان بالبحث في المنتديات الأجنبية وجدت الحل ولكنه طويل بعض الشيء الكود منقول من إحدى المنتديات Option Explicit 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 Private Const GWL_STYLE As Long = (-16) Private Const WS_SYSMENU As Long = &H80000 Private Const WS_MINIMIZEBOX As Long = &H20000 Private Const WS_MAXIMIZEBOX As Long = &H10000 Private Sub UserForm_Activate() Dim Frmhdl As Long Dim lStyle As Long Frmhdl = FindWindow(vbNullString, Me.Caption) lStyle = GetWindowLong(Frmhdl, GWL_STYLE) lStyle = lStyle Or WS_SYSMENU lStyle = lStyle Or WS_MINIMIZEBOX lStyle = lStyle Or WS_MAXIMIZEBOX SetWindowLong Frmhdl, GWL_STYLE, (lStyle) DrawMenuBar Frmhdl End Sub انقل الكود إلى صفحة الأكواد الخاصة بنموذج المستخدم أخوك أبو البراء
قطان قام بنشر يوليو 28, 2009 الكاتب قام بنشر يوليو 28, 2009 أخي أبو البراء جزاك الله عني كل خير ولكن الكود هل جربته ؟ لأنه وضعني بأخطاء كثيرة وأرجو منك وضع الرابط الذي وجد فيه الكود لعلي أجد ملفا مرفقا يشرح أو يساعد على فهم الكود ومكان نسخه ( لأنه جزءان على الأغلب ) ومشكور سلفا أخي أبو البراء والسلام ختام
ياسر خليل أبو البراء قام بنشر يوليو 28, 2009 قام بنشر يوليو 28, 2009 نعم لقد قمت بتجربته وأفلح قم بنسخ الكود ثم اضغط على نموذج المستخدم ثم بزر الماوس الأيمن ثم اختر View Code ثم قم بلصق الكود وأخيراً قم بتشغيل الكود عن طريق الضغط على F5 ثم شاهد النتيجة ظهور Minimize في الفورم أخوك أبو البراء
قطان قام بنشر يوليو 28, 2009 الكاتب قام بنشر يوليو 28, 2009 أخي أبو البراء هذا ما قمت به بالضبط ومع ذلك الخطأ ذاته أرجو رفق ملف لفوم فارغ وبه الكود أو بالملف المرفق من قبل الأخ صالح ممكن عذبك معي تحملني ومأجور ان شاء الله والسلام ختام
قطان قام بنشر يوليو 29, 2009 الكاتب قام بنشر يوليو 29, 2009 السلام عليكم أخي الكريم مشكور مشي الحال أخي أبو البراء الله يعطيك العافية وجزاك الله عني كل خير وأدخلك فسيح جنانه والسلام ختام
زائر قام بنشر يوليو 30, 2009 قام بنشر يوليو 30, 2009 السلام عليكم ورحمة الله وبركاتة الاخ قطان شاهد المرفق Omar_3.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.