تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تغيير الزوايا القائمة لرأس النموذج ؟
#1
بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

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

اعرف ان باستخدام WPF يمكن عمل ذلك بكل سهولة


ولكن سؤالي، كيف لي في ظل تعاملي مع Winform الحصول على زوايا غير قائمة للجزء العلوي من الشاشة .

والف شكر


الملفات المرفقة صورة/صور
   

.rar   تغيير الزوايا العلوية للنموذج.rar (الحجم : 107.93 ك ب / التحميلات : 44)
الرد }}}}
تم الشكر بواسطة: الشاكي لله
#2
ماتريد القيام به يعبر بالمصطلح "Rounded corner"

وطبعا توجد دالة API تقوم بفعل ذلك :-


PHP كود :
Private Declare Function CreateRoundRectRgn Lib "Gdi32.dll" Alias "CreateRoundRectRgn" 
(
ByVal nLeftRect As Integer,
ByVal nTopRect As Integer,
ByVal nRightRect As Integer
ByVal nBottomRect As Integer,
ByVal nWidthEllipse As Integer,
ByVal nHeightEllipse As Integer
) As IntPtr 


وطريقة الاستخدام (في حدثForm_load مثلا) :-
PHP كود :
this.Region System.Drawing.Region.FromHrgn(CreateRoundRectRgn(00this.Widththis.Height1111)); 

علما بان الرقم 11 يعبر عن حدة انحناء الزوايا


موفق
الرد }}}}
تم الشكر بواسطة: محمود رغمان , kafi2030
#3
السلام عليكم

شكرا اخي / الشاكي لله على اجابتك

قمت بوضع الاجراء الاول في اول شاشة البرنامج

وقمت بوضع السطر في داخل حدث تحميل الفورمط
كود :
this.Region = System.Drawing.Region.FromHrgn(CreateRoundRectRgn(0, 0, this.Width, this.Height, 11, 11));

ولكن ظهرت اخطاء لي بعدم تقبل الاكواد

هل هناك شي اخر لازم اعمله

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


الملفات المرفقة صورة/صور
       

.rar   تغيير الزوايا العلوية 2للنموذج.rar (الحجم : 88.82 ك ب / التحميلات : 44)
الرد }}}}
تم الشكر بواسطة:
#4
ههههه

this هي كلمة خاصة بالسي شارب . توازي Me في الفيجوال بيسك

فاعمل Underscroll للنزول لسطر جديد

يعني جدي

PHP كود :
Private Declare Function CreateRoundRectRgn Lib "Gdi32.dll" Alias "CreateRoundRectRgn" _
(
ByVal nLeftRect As Integer,
ByVal nTopRect As Integer,
ByVal nRightRect As Integer,
ByVal nBottomRect As Integer,
ByVal nWidthEllipse As Integer,
ByVal nHeightEllipse As Integer
 
) As IntPtr 
الرد }}}}
تم الشكر بواسطة: kafi2030
#5
الف الف شكر
اخي الشاكي لله على التوضيح

نحجت الاكواد التي تفضلت بها، وفعلا اصبحت الزاوية اليسارية للنموذج غير قائمة


ولكن مادا عساي افعل حتى اعدل الزاوية اليمنى ايضا ؟؟

بارك الله فيك


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#6
والله الكود عندي تمام التمام

واستخدمه منزمان

ربما لأنك تتعامل مع mdi form فتختلف الامور
الرد }}}}
تم الشكر بواسطة: kafi2030
#7
شكرا اخي
الشاكي لله على اجابتك

إقتباس :ربما لأنك تتعامل مع mdi form فتختلف الامور

الشاشة هي شاشة محتضنة ضمن الشاشة الرئيسية، ومعظم شاشات برامجنا سوف تكون كدلك

ما الحل للتغلب على تلك المعضلة ؟
الرد }}}}
تم الشكر بواسطة:
#8
اخيرا وجدت كلاس ممتازة على النت ...

اضفها

PHP كود :
Public Class RoundedRectangle
    
Public Enum RectangleCorners
        None 
0
        TopLeft 
1
        TopRight 
2
        BottomLeft 
4
        BottomRight 
8
        All 
TopLeft Or TopRight Or BottomLeft Or BottomRight
    End Enum

    
Public Shared Function Create(As IntegerAs Integerwidth As Integerheight As Integer_
 radius 
As Integercorners As RectangleCorners) As GraphicsPath
        Dim xw 
As Integer width
        Dim yh 
As Integer height
        Dim xwr 
As Integer xw radius
        Dim yhr 
As Integer yh radius
        Dim xr 
As Integer radius
        Dim yr 
As Integer radius
        Dim r2 
As Integer radius 2
        Dim xwr2 
As Integer xw r2
        Dim yhr2 
As Integer yh r2

        Dim p 
As New GraphicsPath()
        
p.StartFigure()

        
'Top Left Corner
        If (RectangleCorners.TopLeft And corners) = RectangleCorners.TopLeft Then
            p.AddArc(x, y, r2, r2, 180, 90)
        Else
            p.AddLine(x, yr, x, y)
            p.AddLine(x, y, xr, y)
        End If

        '
Top Edge
        p
.AddLine(xryxwry)

        
'Top Right Corner
        If (RectangleCorners.TopRight And corners) = RectangleCorners.TopRight Then
            p.AddArc(xwr2, y, r2, r2, 270, 90)
        Else
            p.AddLine(xwr, y, xw, y)
            p.AddLine(xw, y, xw, yr)
        End If

        '
Right Edge
        p
.AddLine(xwyrxwyhr)

        
'Bottom Right Corner
        If (RectangleCorners.BottomRight And corners) = RectangleCorners.BottomRight Then
            p.AddArc(xwr2, yhr2, r2, r2, 0, 90)
        Else
            p.AddLine(xw, yhr, xw, yh)
            p.AddLine(xw, yh, xwr, yh)
        End If

        '
Bottom Edge
        p
.AddLine(xwryhxryh)

        
'Bottom Left Corner
        If (RectangleCorners.BottomLeft And corners) = RectangleCorners.BottomLeft Then
            p.AddArc(x, yhr2, r2, r2, 90, 90)
        Else
            p.AddLine(xr, yh, x, yh)
            p.AddLine(x, yh, x, yhr)
        End If

        '
Left Edge
        p
.AddLine(xyhrxyr)

        
p.CloseFigure()
        Return 
p
    End 
Function

    Public 
Shared Function Create(rect As Rectangleradius As IntegerAs RectangleCorners) As GraphicsPath
        
Return Create(rect.Xrect.Yrect.Widthrect.Heightradiusc)
    
End Function

    Public 
Shared Function Create(As IntegerAs Integerwidth As Integerheight As Integerradius As Integer) As GraphicsPath
        
Return Create(xywidthheightradiusRectangleCorners.All)
    
End Function

    Public 
Shared Function Create(rect As Rectangleradius As Integer) As GraphicsPath
        
Return Create(rect.Xrect.Yrect.Widthrect.Heightradius)
    
End Function

    Public 
Shared Function Create(As IntegerAs Integerwidth As Integerheight As Integer) As GraphicsPath
        
Return Create(xywidthheight5)
    
End Function

    Public 
Shared Function Create(rect As Rectangle) As GraphicsPath
        
Return Create(rect.Xrect.Yrect.Widthrect.Height)
    
End Function
End Class 



ثم استخدم هذا الكود في حدث Load وسلامتك

PHP كود :
Dim path As GraphicsPath RoundedRectangle.Create(-1, -1Me.WidthMe.Height11)
Me.Region = New Region(path
الرد }}}}
تم الشكر بواسطة: kafi2030 , aftfm
#9
شكرا اخي
الشاكي لله على تواصلك معي لايجاد حل

تم وضع الكود الاول الذي تفضلت به حضرتك ضمن كلاس

الا ان هناك رسائل خطأ قد ظهرت لدي، كما هو موضح بالصورة المرفقة

ارجو التوضيح
بارك الله فيك


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#10
شوف اخي بعلمك حركة بتستفيد منها إلى اخر يوم تبرمج فيه

لأن اغلب الناس الي يحطون الاكواد في الانترنت ، ينسون يقولون لك "قم باستيراد المكتبات الضرورية"

يعني سو import للمكتبة

فالخلل هنا انك لم تستورد المكتبة System.Drawing.Drawing2D



--


انا بعلمك طريقة حلوة واكثر الناس تستخدمها الا وهي : تحرك الماوس نحو الخط الاحمر الصغير .. ثم تضغط Import.......

شوف الصورة المتحركة





اذا ماظهرت قم بتحميلها من هنا :

إقتباس :http://www.gulfup.com/?ogvum0
الرد }}}}
تم الشكر بواسطة: kafi2030


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير قاعدة البيانات الى .bak زيد زينوبي 3 40 أمس, 07:07 PM
آخر رد: ابراهيم النعيمي
  تغيير قاعدة البيانات من اكسس الى sql hglogtd 2 96 26-11-16, 03:03 AM
آخر رد: hglogtd
  طريقة تغيير الباك كلر للتكست بوكس thevirus 8 210 29-10-16, 05:57 PM
آخر رد: thevirus
  مشكلة ظهرت بعد تغيير الكمبيوتر abdalla89 11 291 20-10-16, 02:01 AM
آخر رد: محمود بكرى
  [VB.NET] تغيير رأس datagrid tifagreet 1 59 13-10-16, 06:56 PM
آخر رد: tryold
  [VB.NET] تغيير صيغة التاريخ dubai.eig 1 122 03-10-16, 08:14 PM
آخر رد: ممدوح
  [سؤال] تغيير محتوى الخانة [Cell] أسامة السالمي 2 97 30-09-16, 09:16 AM
آخر رد: أسامة السالمي
  [vb6.0] طريقه تغيير الفورم الرئيسي عند التشغيل Gehad ashraf 6 130 24-09-16, 01:17 AM
آخر رد: Gehad ashraf
  كود تغيير تاريخ الجهاز bidaya 13 263 20-09-16, 04:24 PM
آخر رد: أبو عمر
  تغيير فورمات التاريخ Kian Tech 3 123 14-09-16, 12:51 AM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم