نجوم المشاركات

السّلام عليكم و رحمة الله و بركاته أحبّتي الأكارم .. هذه إحدى الطّرق لاستعراض البيانات القاعديّة على اليوزرفورم .. العملية ليست جديدة و إنّما أردت فقط أنْ يكون تفكيري على منتديات " أوفيسنا " .. ونتقاسم الأفكار مع الأحبّة الكيفية مشروحة بالكود داخل الملف أدناه .. فائق إحتراماتي استعراض البيانات.rar

الاخوة الكرام واساتذتى فى هذا الصرح العلمى أستكمالا لهذا الموضوع على الرابط التالى أقدم لكم اليوم مؤثر حركى جديد لفتح الفورم على طريقة أفتح الشباك الباسورد لفتح الفورم هو 111 أرجو ان ينال أعجابكم تقبلوا جميعا تحياتى مؤثرات الفورم من خلال فتح الشباك - الصقر.zip

بسم الله الرحمن الرحيم كثيرا ما نصمم برامج بطريقة جميلة ونعتمد علي البرنامج في العمل ولكن يأتى ما لم يكن في الحسبان وهو بطئ الملف من كثرة البيانات المدخلة به وينصح بايقاف الحساب التلقائي وتشغيلة عند الحاجه وهو اسلوب لتجنب البطئ ولكن ليس عمليا ويعرض الاخوة بعض الاكواد للاستغناء عن بعض الحسابات داخل الاوراق والتنسيقات وغيرها ويأتى في النهاية الحل الافضل بالنسبة لي وهو الغاء جميع المعادلات داخل اوراق العمل ووضعها على هيئة اكواد تفعل بضغطة زر او تنشيط شيت او اي حدث تريده ومرفق مثال للدالة SUMIF علي طريقة الاكواد وتفعيلها بضغطة زر يتبع طريقة للاستغناء عن المعادلات داخل الشيت.rar

اخى وحبيبى فى الله عبدالعزيز ما اروع اعمالك واطلالتك بصراحه روعه روعه روعه حتى التصميم روعه جزاكم الله خيرا واسمح لى ان استغل الفرصه وارحب بأستاذى الفاضل ابوحنين ( ابومحمد الامين ) عوده حميده لنا اخا فى الله ننتفعك بك فأنت علم من أعلام الاكسيل ( على فكره انا لسه عارف من يومين انك ابو حنين فلى رجاء عندك وده اول طلبه منك ياريت تفتح اليوزر الاصلى بتاعك ولو ناسى الباسورد ممكن تكلم الاستاذ محمد طاهر انت عارف ليه لان ابوحنين ماركة مسجله فى خبراء الاكسيل لا تتصور مدى فرحتى بوجودك وأسال الله تعالى ان يكون جميع اساتذتنا بخير ويعودو لنا فى القريب العاجل مش عايز اذكر اسماء حتى لا انسى أحد وأخيرا انا بهنى نفسى والمنتدى بوجودك معنا اخأ فى الله ومعلما فاضلا تقبل تحياتى

السلام عليكم أقد م لكم مكتبة أكواد الاكسيس حصاد 9 سنوات نسأل الله القبولVBALibrary.rar

السلام عليكم ورحمة الله تعالى وبركاته الحقيقة بدون ان اطيل عليكم كنت اريد تحزيم قاعدة بيانات لدى وتحويلها الى ملف تنفيذى ولكن لم يعجبنى الشكل المعتاد لتثبيت اى برنامج فاردت ان يكون برنامجى مميزا ففكرت مليها فى تصميم قاعدة بيانات تقوم بتثبيت نفسها داخل الويندوز فاعاننى الله على تصميمها دون الحاجة الى تحزيمها القاعدة الت صممتها بمجرد الفتح تبدا تلقائيا فى عمل تثبيت لها داخل الويندوز كا التالى اللوجو الخاص بى ويمكنك تغييره حسب ذوقك هذا اللوجو به شى مهم جدا وهى وحدة نمطية لتغيير لون البروجرس بار وهذا ايضا اردته ان يكون مختلفا عن الاخرين ناتى بعد ذلك الى نموذج التعريف الخاص بالبرنامج ويمكنك كتابة تعريف بسيط بالبرنامج وذلك لتعريف المستخدم ببرنامجك . لقد تركته فارغا ثم بعد ذلك نموذج الشروط والاتفاقيات الخاصة بك ويجب ان يوافق عليها المستخدم لمتابعت التثبيت . ولقد تركتها فارغه ثم بعد ذلك نموذج اكود التفعيل وذلك للتاكد من المالك او المشترى وبه كود بسيط فقط عند كتابة اربع حروف فى كل مربع نص يقوم بالانتقال الى المربع التالى تلقائيا كود التفعيل هو 1111222233334444 والان مع نموذج مكان التثبيت وبه اكواد مهمه جدا اتمنى ان تستفيدو منها اولا كود مكان تثبيت الويندوز وكود التغيير واختيار مكان اخر غير مكان الويندوز واجهتنى مشاكل كثيرا فى مسالة الصلاحيات الخاصة بالويندوز فاضررت الى انشاء مكان اخر غير Program file اسميته Program RK قد يسال سائل ولماذا RK اجيبه قائلا ملكش دعوه دا كلمة سر ههههههههه هذا هو الفولدر الخاص ببرنامجى وهذه الصورة بعد التنصيب والان مع نموذج التنصيب والشرح بداخله وبيمكنك الوصول اللى برنامجك بسهولة من سطح المكتب او قائمة ابدا وذلك لان البرنامج يقوم بعمل شورتكت لهم تلقائيا على سطح المكتب وقائمة استارت صورة من سطح المكتب وبعد التثبيت يقوم البرنامج بمسح كافة النماذج والجداول المؤقتة كنت قد انشائتها لتساعدنى فقط فى التنصيب ستجد برنامجك بعد التثبيت خالى من نماذج التثبيت هذه اما البرنامج الذى قمت بالتثبيت من خلاله فسيظل كما هو وذلك اذا احتجت الى التثبيت من جديد اتمنى ان ينال اعجابكم نظرا لنفاذ حجم رفع المرفقات سارفعه فى المشاركة التالية ان شاء الله والان مع البرنامج اتمنى ان ينال على اعجابكم . Elsayed Pro.rar

اكتب هذه المعادلة =YEAR(TODAY())

السلام عليكم اذا كانت كل القيم بنفس الصيغة يمكن استعمال الطريقة التالية TextBox1 = Left(TextBox1, 2) & "." & Mid(TextBox1, 2, 6) & "," & Mid(TextBox1, 6, 2) & "." & Right(TextBox1, 6)

الاخوة الكرام واساتذتى فى هذا الصرح العلمى أستكمالا لهذا الموضوع على الرابط التالى أقدم لكم اليوم مؤثر حركى جديد لفتح الفورم على طريقة أفتح الباب يا سمسم بس ياريت ياأبوالبراء لو فتحت الباب وكان فى حد بالحمام تقفل الباب تانى تستنا لحد ما يرجع طنطا أرجو ان ينال أعجابكم تقبلوا جميعا تحياتى مؤثرات فتح الفورم على طريقة فتح الباب.zip

السّلام عليكم و رحمة الله و بركاته بارك الله فيكم و لكم إخواني الأعزّاء و أساتذتي الأفاضل : ياسر خليل أبو البراء أبو محمّد الأمين حسام عيسى جزاكم الله خيرًا وزادها بموازين حسناتكم فائق إحتراماتي و محبّتي

حبيبي احمد اخبارك ياريس فينك مختفى ليه كدا على العموم هنشوف الامثلة بعد ما نعدي على الادفلي الاول تقبل فائق احترامي

تفضل اخى الكريم تم ادراج الكود فى الاستعلام المخصص باى مقطع من الاسم الهمزات واتاء المربوطة والتشكيل تجاهل الهمزات.rar

أخي الكريم وائل جرب الملف المرفق Sub Search_Using_Arrays() Dim Arr, Temp, I As Long, Counter As Long Dim strWord As String strWord = InputBox("أدخل كلمة البحث") If strWord = "" Then Exit Sub Application.ScreenUpdating = False With Sheet1 Arr = .Range("B2:B" & .Cells(Rows.Count, 2).End(xlUp).Row).Value ReDim Temp(1 To UBound(Arr, 1), 1 To 1) For I = 1 To UBound(Arr, 1) If InStr(Arr(I, 1), strWord) > 0 Then Temp(I, 1) = strWord Counter = Counter + 1 End If Next I .Range("A2").Resize(UBound(Temp, 1), UBound(Temp, 2)).Value = Temp If Counter >= 1 Then .Range("A1:B1").AutoFilter With .Range("A1:B" & .Cells(Rows.Count, 1).End(xlUp).Row) .AutoFilter Field:=1, Criteria1:="<>" .Offset(1).SpecialCells(xlCellTypeVisible).Copy Sheet2.Range("A" & Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1) .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete End With .Range("A1:B1").AutoFilter End If End With Application.ScreenUpdating = True End Sub تقبل تحياتي Search For Specific Text Using Arrays YasserKhalil V2.rar

البرنامج يعتمد علي معدلات الساعة حيث يصلح للمنشات الصناعية والتجارية التي تعتمد علي معدل الساعة للعاملين حيث يتم احتساب اضافي وتاخير ( الساعة تحسب بساعة ونصف ) ويتم فيالنهاية حساب راتب كل موظف وستحقاقاتة وخصوماتة ويعطيك الصافي طريقة التعامل مع البرنامج : اولا من صفحة قوة المصنع يتم ادخال كل اسماء الموظفين او العمال برواتبهم ثانيا يوجد صفحة للسلف بتسمع في خانة شيت كل موظف علي حدة ثالثا عند البحث عن اسم اي عامل يكون عن طريق الضغط مرة واحدة علي الاسم فيتم نقلك الي شيت العامل ويتم ادخال حضورة وانصرافة مثلا يوم السبت الحضور( 8 ) والانصراف ( 5 ) وهكذا اي استفسار انا معاكم وبرجاء التعليق ولاتنسوالدعاء بظهر الغيب

كتبت هذا الموضوع لأن أكثر من شخص قد قام بالسؤال حوله وقد تفضل أكثر من أخ بالإجابة عليه وتتلخص الإجابة فى التالى فقط قم بتنسيق الشهادة أو الرسالة التى تريد إرسالها وإضافة حقول الدمج لها وقم بتكرارها فى الصفحة بعدد المرات التى تريد وبين كل رسالة أو شهادة فقط تفضل بإضافة السطر التالى «Next Record» وفى نهاية الصفحة كذلك «Next Record» ثم بعد ذلك إضغط إنهاء ودمج ستجد فى المستند الناتج قد تكررت الشهادة أو الرسالة فى الصفحة الواحدة مع اختلاف المرسل إليه أو اسم صاحب الشهادة إذا استفدت فلا تنسنا من الدعاء لى ولأبى ولأمى ولأمة محمد أجميعن بالرحمة والمغفرة ملحوظة أرفقت مثال لأحد الاخوة كان يسأل عن كيفية عمل مثل هذه الشهادة وتكرار ها وقد قمت بالتعديل عليه سبحان الله.rar

هذه الدالة تستخدم في الاكسس وفي VBA .. اما في الاكسل فهي

مرحبا و الله رائع جدا اما بالنسبة لاخونا ابو البراء فأعتقد انه كان يريد كسر الباب و ليس فتحه و هذا حسب الفيديو الذي نشره ، يمكن ضيع المفتاح مثل بعض الناس إلي تضيع كلمات مرورها في المنتديات تقبلو فائق احترامي و تقديري

حبيبى يا ابوالبراء بلاش تواضع وما العبد الا قطره فى بحر علمكم اللى مغرقنا بفيضانه هههههههههههه الاروع هو مرورك يا غالى كويس انه اشتغل معاك مش زى المرفق السابق لم يعمل تقبل تحياتى

أخي الحبيب الغالي حسام عيسى صقر المنتدى ايه ده ..!! ايه ده ..!! ايه اللي أنا شايفه ده إنت بتعمل الحركات دي إزاي .. ما تعلمنا يا صياد !! بجد بجد تحفة ..عمل رائع ومميز بارك الله فيك وجزاك الله كل خير

جزاكم الله خيرا ابايوسف دائما سباق للخير شاكر مرورك العطر تقبل تحياتى

السّلام عليكم و رحمة الله و بركاته أخي عبد العزيز البسكري عمل رائع جزاك الله خير الجزاء

عذرا رسول الله إن قصرت في وصفي فإن جمالكم لن يوصفا جاءت قديما ذرة من نوركم قد جمّل الرحمـن منهـا يوسفـا والله لو جدّ العباقر كلهم في وصف أفضال له لـن يعرفـا والله لو ماء البحار جميعها كان المداد لوصف أحمد ما كفـى والله لو قلم الزمان من البداية للنهاية ظل يكتب مـا اكتفـى والله لو قبر النبي تفجـرت أنـواره للبـدر ولّـي واختفـي يكفيه لقيا في السموات العلا وبحضرة الرب الجليل تشرفـا يكفيه أن البدر يخسف نوره لكن نور محمد لن يخسفا

If Text4.Value > 20 Then item.ForeColor = 656565 Me.Refresh ممكن تغير forecolor ألى backcolor

السلام عليكم ورحمة الله وبركاته إخوتي الكرام: ومضة أخرى تتعلق بالصور ..كيف يمكن جعل الصورة شفافة من أدوات الصورة وبعد تحديد الصورة يظهر لنا تنسيق الصور نضغط على إعادة التلوين ...تعيين اللون الشفاف ليصبح اللون الأبيض المحيط بالصورة شفافاً ....كما يمكن إضافة تباينات وتنسيقات كثيرة عليها لتصبح بمنظر أبهى وأجمل.. والسلام عليكم

شغل عالي الله ينور حبيبي عبد العزيز البسكري وياريت بقي تحطها لينا في المصطبة بتاعة الفيجوال بيسك اصل انا قفشتك مرة وانت بتعمل مثال بالفيجوال لحاجة زي كدا تقبل تحياتي

اقترح الحل فى الاكواد بمعنى الصنف ص وعبوته 1/4 لتر يساوى ص1/4 يعطي السعر المدخل

السلام عليكم ورحمة الله نضع لكم اليوم طريقة تحويل الدالة Vlookup الى كود مثالين احدهم عند الضغط على زر يتم جلب البيانات والاخر عند كتابة الكود يأتي بالنتيجة مباشرة المثال الاول الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim myrg1 As Range If Target.Column = 10 Then Set myrg1 = Sheet2.Range("b5:e30") On Error Resume Next Application.ScreenUpdating = False sheet1.Range("k" & Target.Row & ":" & "m" & Target.Row).ClearContents sheet1.Cells(Target.Row, "k") = Sheet2.Application.WorksheetFunction.VLookup(Target.Value, myrg1, 2, 0) sheet1.Cells(Target.Row, "l") = Sheet2.Application.WorksheetFunction.VLookup(Target.Value, myrg1, 3, 0) sheet1.Cells(Target.Row, "m") = Sheet2.Application.WorksheetFunction.VLookup(Target.Value, myrg1, 4, 0) Application.ScreenUpdating = True End If End Sub للتحميل اضغط هنا المثال الثاني الكود Sub Yasser() Dim myrg1 As Range Dim i As Long Set myrg1 = sheet1.Range("b5:e30") For i = 6 To 30 Application.ScreenUpdating = False On Error Resume Next sheet1.Cells(i, "k") = sheet1.Application.WorksheetFunction.VLookup(sheet1.Range("j" & i), myrg1, 2, 0) sheet1.Cells(i, "l") = sheet1.Application.WorksheetFunction.VLookup(sheet1.Range("j" & i), myrg1, 3, 0) sheet1.Cells(i, "m") = sheet1.Application.WorksheetFunction.VLookup(sheet1.Range("j" & i), myrg1, 4, 0) Next i Application.ScreenUpdating = True End Sub للتحميل اضغط هنا تقبلو تحياتي

جرب الكود التالي Sub Add_Rows() Dim I As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With ActiveSheet I = ActiveSheet.UsedRange.Rows.Count For I = .Cells.SpecialCells(xlLastCell).Row To 6 Step -1 If Len(Trim(Cells(I, 2))) <> 0 Then Rows(I).Insert Next I Rows(.Cells.SpecialCells(xlLastCell).Row).Copy Rows(.Cells.SpecialCells(xlLastCell).Row + 1).PasteSpecial Paste:=xlPasteFormats End With Application.CutCopyMode = False Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub Sub Delete_Rows() Dim I As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual I = ActiveSheet.UsedRange.Rows.Count For I = Cells.SpecialCells(xlLastCell).Row To 6 Step -1 If Len(Trim(Cells(I, 2))) = 0 Then Rows(I).Delete Next I Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub تقبل تحياتي

الحمد لله الذي بنعمته تتم الصالحات جزيت خيراً أخي العزيز وائل على دعائك الطيب المبارك ، ولك بمثل إن شاء الله أحبك الله الذي أحببتنا فيه ********** لو إنت فهمت اللوغاريتمات والكل فهم ، يبقا أبشر .. مفيش حد هيكون عنده مشاكل واحتمال المنتدى يقفل وكل واحد يروح بيته إن شاء الله بالصبر والعزيمة والإرداة للتعلم تصل إلى مبتغاك .. وأنا لست إلا متعلم مجتهد تقبل تحياتي

اخى الفاضل الاستاذ محى الدين جزاكم الله خيرا على مروركم الرائع ----------------------------------------------- الاخ الحبيب ياسر انا اول مره اشوف فورم على شكل معين او مثلث الفورم معروف انه مستطيل او مربع عموما انا سجلت فيديو بالمرفقات هتلاقيه بس مش عارف هيشتغل او لا عموما جرب ------------------------------------------- استاذى الحبيب ابوحنين جزاكم الله خيرا لمروركم العطر وان شاء الله نطور الافكار فى عمل حاليا بجهز له ان شاء الله فور الانتهاء ارفعه تقبلوا جميعا تحياتى capture-2.zip

السلام عليكم sandanet عزيزى جزاك الله خير على المرفق ولكن بعد ما انفذ الأمر و الأسكنر يسحب الورقة ... فين بتروح ؟؟؟؟؟ الصوره لا تظهر و لا يوجد حقل لادراج الصورة فيها و شكرا

يصبح الكود بهذا الشكل hanouf-TEST2.zip

بعد الإطلاع على ملفك أخي الحبيب أبو حنين اتضح لي أن كلمة رائع في حقك .. لا تفيك حقك على الإطلاق فأنت أكثر من رائع ..بارك الله فيك وجزاك الله خير الجزاء ويا ريت متنساش موضوع الدروس التعليمية لو وقتك يسمح تقبل تحياتي جربت الملف ووضعت نصوص بالعربي ولا مشكلة في الفورم والتعامل معه ممكن ترفقي الملف الذي به المشكلة للإطلاع عليه

بارك الله لكم وسدد خطاكم داااااااااائما بااااااارك الله فيك سررت بتعليقك الكريم بل ابارك لنفسى ان حازت شرف تعليقكم الكريم

أخي الفاضل وائل تفضل التعديل التالي ليوافق طلبك إن شاء الله Sub Search_Using_Arrays() Dim Arr, Temp, I As Long Dim strWord As String strWord = InputBox("أدخل كلمة البحث") If strWord = "" Then Exit Sub Arr = Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row).Value ReDim Temp(1 To UBound(Arr, 1), 1 To 1) For I = 1 To UBound(Arr, 1) If InStr(Arr(I, 1), strWord) > 0 Then Temp(I, 1) = strWord End If Next I Range("A2").Resize(UBound(Temp, 1), UBound(Temp, 2)).Value = Temp End Sub تقبل تحياتي

يمكن استعمال هذا التنسيق [=0]""

العفو اخي اولا .. هناك اكثر من طريقة لاخفاء الاصفار . لكني افضل هذه ثانيا .. تنسيق الخلايا يتكون من اربع تنسيقات .. الاعداد الموجبة - الاعداد السالبة - الاصفار - النصوص .. علي الترتيب ... ويفصل بينها بفاصلة منقوطة ماقمت به هو تنسيق الاصفار علي الشكل "" اي فراغ اتمنى ان يكون الشرح وافي .. تحياتي

السلام عليكم ورحمة الله وبركاته اخوانى واحبابى وحشتونى كتير والله ارفق لكم ثلاثة امثله مفتوحه المصدر منقوله للامانه وان شاء الله ابو اسيل الغالى يتفحصها كويس ويعملها لينا دروس نستفاد منها اكتر BankManagementSystem.VB.net ChatApplication.VB.net WebBrowser.VB.net تمنياتى لكم بالتوفيق وجزاكم الله كل خير

=SUBSTITUTE(ADDRESS(MAX(IF(N4=($A$1:$H$12);ROW($A$1:$H$12);0));MAX(IF(N4=($A$1:$H$12);COLUMN($A$1:$H$12);0)));"$";"") مطلوب بحث عن رقم الخلية.rar

شكرا لاخونا صالح حمادي وبعد اذنه استبدل الرقم الظاهر في آخر الكود : الرقم 2 للذهاب الى أخر الحقل الرقم 1 للذهاب الى اول الحقل الرقم صفر لتحديد الحقل بالكامل ولزيادة المعلومات وربط المتجانسات : هنــــا وهنـــــا

نسخ التنسيق السلام عليكم ورحمة الله وبركاته إخوتي الكرام مجرد ومضة : كيف ننسخ التنسيق ونلصقه في عمود أو صف؟ نحدد الخلية المراد نسخ تنسيقها ثم نضغط Click ثم Ctrl+Shift+سهم للأسفل أو الأعلى عندما ترغب لصقها في عمود حسب موقع الخلية من العمود. أو Ctrl+Shift+سهم لليمين أو اليسار عندما ترغب لصقها في صف حسب موقع الخلية من الصف. ويمكننا أيضاً نسخ التنسيق بضغطتين لاستخدام لصقه عدة مرات أو في خلايا متفرقة أرجو أن يثري إخوتي الموضوع بما لديهم من علمٍ يخص نسخ التنسيق ولصقه. والسلام عليكم ورحمة الله وبركاته.

إدراج الوقت والتاريخ بشكل آلي باستخدام المعادلات : السلام عليكم ورحمة الله وبركاته: إخوتي وأساتذتي الكرام شيء تعلمته من أساتذتي الكرام ولا أحب أن يقف عندي ...زكاة العلم نشره.. تقبل الله مناو منكم صالح أعمالنا. إدراج التاريخ والوقت.rar

وعليكم السلام هذه الخاصية موجودة ضمن خصائص قارىء الباركود المصنعية اقرأ التعليمات ( الكتلوج ) المرفقة مع الجهاز ( يوجد باركودات لتثبيت الخاصية ) وهذه الخصائص يتم تفعيلها بحيث نقوم بتمرير القارىء على الباركود المصنعي المحدد

و عليكم السلام ورحمة الله و بركاته ... تستطيع عمل حقل في الاستعلام ... فمثلا الحقل الذي تريده اسمه " aadd " تعمل حقل جديد كما يلي aadd2: iif(isnull[aadd];"لا يوجد";[aadd])

السلام عليكم اخ كرار - مصطفى بارك الله بكم وبأمثالكم اللذين يسارعون لفعل الخير جمعنا الله ومن تحبون في الفردوس الاعلى

اليكم كود لتلأم العمود لمحتوى النص بمعنى عند كتابة اسم طويل بالخليه تتوسع اتوماتيك ينحط الكود في حدث workbook Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range) ActiveSheet.Columns(Target.Column).AutoFit End Sub

السلام عليكم بارك الله فيك اخي yahiaoui و لكل المشاركين جميعا و هذا كود يمنع كتابة الارقام في تكست بوكس و اخر يمنع كتابة الحروف في تكست بوكس اخر تحياتي قبول التكست بوكس لارقام فقط او لحروف فقط.rar

كود رسالة تحذير عند فتح الملف رسالة تحذير.rar

الاخ / الاستاذ يحياوي : لقد قمت بتجميع بعض من الاكواد التي ارفقتها حضرتك واضفت اليها بعض من الاكواد التي تعلمتها من اساتذة هذا المنتدى الرائد ضمن ملف واحد ( والحقيقة لا اعرف ان كنت قد وفقت في هذا التجميع والشرح ) ولكن الغاية ان يطلع عليها ويستفيد منها الاخوة الاعضاء المبتدئين في الاكواد امثالي اشكرك اخي يحياوي على الفكرة ... وارجوا بداء الرأي ان كان الملف المرفق يستطيع الاخوة الاستفادة منه وفقك الله والسلام ياسر الحافظ اكواد متفرقة.rar

كود ملء الشاشة ، اخفاء شريط الادوات ،اخفاء شريط الصيغة DisplayFullScreen.rar