الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف اغير شكل الفورم؟

مغلق
بدأه eslam31 في 20 مارس 2005 · 7 رد · 736 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

كيف اغير شكل الفورم الى اشكال مثل البرامج ؟

#2

السلام عليكم

تحتاج أن تتعامل مع الـ GDI+ وهو عنصر للرسم والصور و الألوان وغير ذلك كثير مثلاً شاهد هذه النصوص البرمجية

لصناعة نموذج بيضاوي

 Private Sub Comformer_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

        e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit
        e.Graphics.SmoothingMode = SmoothingMode.Default
        'Transparency Effect
        '/////////\\\\\\\\\\
        'Set the Transparency Key To Blue
        Me.TransparencyKey = Color.Black

        'DRAW TEXT EFFECTS 
        '/////////\\\\\\\\\


        'Filled a blue rectangle over the entire form
        e.Graphics.FillRectangle(Brushes.Black, Me.ClientRectangle)



        'Create a Linear Gradient Brush
        Dim lBrush As LinearGradientBrush = New _
         LinearGradientBrush(Me.ClientRectangle, Color.RoyalBlue, _
         Color.MidnightBlue, LinearGradientMode.BackwardDiagonal)


        'Create a brush 
        Dim sb As SolidBrush

        'Instantiate 1
        sb = New SolidBrush(Color.Black)

        'Dclare A font



        'Filled a ellipse of the original background color
        e.Graphics.FillEllipse(lBrush, Me.ClientRectangle)

        'Draw an Ivory border for the ellipse
        e.Graphics.DrawEllipse(Pens.RoyalBlue, Me.ClientRectangle)

       


        'Destroy the brush,lBrush, Font, G
        sb.Dispose()
        lBrush.Dispose()

    End Sub

pain.zip

في المثال يتضح المقال

#3

الف شكر

لكن انا وضعت الكود فى الفورم لكن وجدت بعض الكلمات لم يتعرف عليها

مثل LinearGradientMode

تم تعديل هذه المشاركة بواسطة eslam31 في 20 مارس 2005 في 23:19

#4

السلام عليكم

قم بإدراج المكتبه أو الحاوية التالية في أعلى النموذج form

Imports System.Drawing.Drawing2D

في المثال يتضح المقال

#5

يا اخى الغملاسي انا مبتدى فى البرمجه ولا اعرف ماهى المكتبه أو الحاوية

#6

بامكانك استخدام نفس المثال وتلاحظ كيف تقوم بعمل ذلك المثال

#7

إنت بس هدي أعصابك وما حتشوف إلا مايرضيك

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

Imports System.Drawing.Drawing2D

والفائدة من ذلك هو جلب الكلاس Drawing2D لكي تستخدم الأدوات الموجودة فيه وهي أدوات الرسم

تم تعديل هذه المشاركة بواسطة seahmad في 21 مارس 2005 في 20:00

فلسطين الزاهية بألوان الحب والسلام

ذلك الطعم الزيتوني الذي يتدفق عسلاً من أفواه بساتينها وحدائقها

تشتاق إليها نفوس المتقين وترنوا للسجود فيها جباه المسلمين

#8

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

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

الصراحه مش عارف اشكرك ازاى كل اللى اقدر اقولهولك ربنا يوفقك واشوفك من احسن المبرمجين باذن الله

هذا الموضوع مغلق.

مواضيع مشابهة