ياسر العربى

بسم الله الرحمن الرحيم اقدم لكم اليوم برنامج مصمم بلغة الفيجوال دوت نت البرنامج عبارة عن تركيب برواز وصورة شخصية مثلا تقوم باختيار البرواز المناسب او خلفية شفافة كما تحب المهم انت تكون بامتداد png اما الصورة الشخصية فصورة jpg تفى بالغرض ويتم تركيبهم وحفظهم بالامتداد المناسب كما موضح بالصور البرنامج مرفق معه الامثلة وبعض البوردرات للتجربة كما يمكن البحث عن بوردارت واضافتها عادي هذه الصورة الاصلية قبل تركيب البوردرات لها وهذه صور بعد تركيب البوردر لها وهذه صورة مع خلفية شفافةpng لتحميل البرنامج اضغط هنا اما الكود Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'هنا يتم حفظ الصورة بنفس الشكل داخل البكتشر بوكس وحفظها بامتداد جي بي جاي وباسم ياسر 'وادخلنا عليها الدالة رند لاضافة ارقام عشوائية بجانب الاسم حتى لا يتكرر اسم الحفظ Dim bmp As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height) Me.PictureBox1.DrawToBitmap(bmp, Me.PictureBox1.ClientRectangle) bmp.Save(Application.StartupPath & "\Yasser_Elaraby" & Rnd(11111111) & ".jpg", Imaging.ImageFormat.Jpeg) MsgBox("تم الحفظ بصغة JPG") End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'هنا يتم اختيار الصورة للاداة البكتشر بوكس وهي صورة الباك جروند ليتم وضعها خلف البوردر او الخلفية الشفافة Dim ofd As New OpenFileDialog ofd.Filter = "JPEG|*.jpg|Bitmap|*.bmp" If ofd.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub Try Dim bmp As New Bitmap(ofd.FileName) If Not IsNothing(PictureBox1.BackgroundImage) Then PictureBox1.BackgroundImage.Dispose() PictureBox1.BackgroundImage = bmp Catch MsgBox("Not a valid image file.") End Try End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 'هنا يتم حفظ الصورة بنفس الشكل داخل البكتشر بوكس وحفظها بامتداد بي ان جي وباسم ياسر 'وادخلنا عليها الدالة رند لاضافة ارقام عشوائية بجانب الاسم حتى لا يتكرر اسم الحفظ Dim bmp As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height) Me.PictureBox1.DrawToBitmap(bmp, Me.PictureBox1.ClientRectangle) bmp.Save(Application.StartupPath & "\Yasser_Elaraby" & Rnd(11111111) & ".png", Imaging.ImageFormat.Png) MsgBox("تم الحفظ بصيغة PNG") End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 'هنا يتم اختيار الصورة للاداة البكتشر بوكس وهي صورة البوردر او صورة شفافة Dim ofd As New OpenFileDialog ofd.Filter = "png|*.png|gif|*.gif" If ofd.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub Try Dim bmp As New Bitmap(ofd.FileName) If Not IsNothing(PictureBox1.Image) Then PictureBox1.Image.Dispose() PictureBox1.Image = bmp Catch MsgBox("Not a valid image file.") End Try End Sub Private Sub اخترالصورةالاصليةToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles اخترالصورةالاصليةToolStripMenuItem.Click 'هذه عناصر القائمة الموجودة بالبرنامج وكلها اختصار لعمل الاكواد يعني هنا نقول له عند اختيار هذا العنصر يتم تنفيذ ما بالزر بوتن2 Button2.PerformClick() End Sub Private Sub اخترالبروازToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles اخترالبروازToolStripMenuItem.Click Button4.PerformClick() End Sub Private Sub حفظبامتدادJPGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles حفظبامتدادJPGToolStripMenuItem.Click Button1.PerformClick() End Sub Private Sub حفظبامتدادPNGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles حفظبامتدادPNGToolStripMenuItem.Click Button3.PerformClick() End Sub Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click End End Sub Private Sub حذفالبراوزToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles حذفالبراوزToolStripMenuItem.Click PictureBox1.Image = Nothing End Sub Private Sub حذفالصورةالاصليةToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles حذفالصورةالاصليةToolStripMenuItem.Click PictureBox1.BackgroundImage = Nothing End Sub Private Sub عنالمبرمجToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles عنالمبرمجToolStripMenuItem.Click MsgBox("تصميم واعداد / ياسر العربي" & vbCrLf & vbCrLf & " تليفون محمول رقم / 01097192367" & vbCrLf & vbCrLf & "Email: Yasserelaraby86@gmail.com", MsgBoxStyle.Information) End Sub Private Sub عنالبرنامجToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles عنالبرنامجToolStripMenuItem.Click MsgBox("برنامج تركيب الصور يقوم بتركيب صورة شخصية مثلا على برواز او على خلفية اخرى شفافة بامتدادPNG") End Sub End Class السورس كود مرفق تحميل االسورس كود رابط الردود الردود والاستفسارات عن سلسلة دروس الفيجوال بيسك دوت نت يتبع تحياتي ياسر العربي

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

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

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

السلام عليكم ورحمة الله نضع لكم اليوم طريقة تحويل الدالة 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 للتحميل اضغط هنا تقبلو تحياتي

الله ينور حبيبي احمد ظبط كدا الموضوع دا واعرض اكواده ونحطه ضمن السلسلة يلا شجعنا عشان ننزل دروس تقبل تحياتي

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

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

اخي الكريم رأفت مرحبا بك في منتدى اوفيسنا يرجى قراءة توجيهات المنتدى لسهولة التعامل وكما يرجى وضع موضوع جديد مستقل بسؤالك وفيه شرح وافي للمشكلة مع ارفاق ملف المشكلة وشكرا

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

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

تفضل مثال مع صلاحيات مستخدمين صلاحيات - Copy.rar اسم المستخدم كلمة المرور Yasser 123 aseel 111 mohamed 222

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

ياريت توضح المشكلة اللي بتحصل ليك وايه اللي بيظهر معاك اول ما تدخل تاريخ اكبر من اللي انت ذكرته ياري توضيح اكتر عشان انا جربت اكتب اي تاريخ وشغال معايا ياريت صوره لتوضيح المشكلة

تفضل اخي الكريم w m.rar

تفضل اخي الكريم w m.rar

الله ينور اخي في الله شرح جميل وموفق باذن الله جزاك الله كل خير تقبل تحياتي

تفضل جرب الطريقة دي وغير لاي فونت لغة عربية او لنفس الفونت المحدد بالصورة

تفضل اخي الكريم هل هذا ما تقصده ؟؟؟ ترحيل.rar

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

الحمد لله ان تم المطلوب تقبل تحياتي

تفضل اخي الكريم حل بطريقة سهلة ويعتمد على خلية في حالة التشغيل والايقاف اما بالنسبة لكود اخي في الله فيحتاج الى زيادة اسم اليوزر فورم قبل الكومند بوتن حتى يصل له الامر اما حاليا فسيتعامل مع الزر على انه موجود داخل الفورم النشط والكود هكذا Private Sub CommandButton1_Click() UserForm2.CommandButton1.Visible = False End Sub Private Sub CommandButton2_Click() UserForm2.CommandButton1.Visible = True End Sub إخفاء زر.rar

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

اختي الكريمة umbander اشكرك على كلماتك الاكثر من رائعة واشكر كل من اجتمع معنا داخل هذا الصرح العظيم على العطاء ومساعدة الجميع فنحن جميعا هنا للاستفادة والافادة وَإِنَّ اللَّهَ فِي عَوْنِ الْعَبْدِ مَادَامَ الْعَبْدُ فِي عَوْنِ أَخِيهِ مع خالص تحياتي

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