قواعد المشاركة في المنتدى

(قسم الاعلانات) الموضوع:احسن ديكورات حديثه- كرياتف جروب للديكورات -01203903309 بواسطة: (bery besho) :: (قسم الاعلانات) الموضوع:فائدة منصات التواصل الاجتماعي في زيادة وعي العملاء بنشاطك التجاري بواسطة: (العالمية الحرة) :: (قسم الاعلانات) الموضوع:ديكورات فلل- كرياتف جروب للاتصال 01203903309 بواسطة: (bery besho) :: (قسم الاعلانات) الموضوع:خدمة تطوير قنوات اليوتوب بواسطة: (ضياء روحي) :: (قسم الاعلانات) الموضوع:مكتب مودرن 2022 ، ركن مودرن، كراسى فوتيه ، التوصيل لجميع محافظات مصر 01122267552 بواسطة: (ميرولا سامي) :: (قسم الاعلانات) الموضوع:تشطيب شقق - كرياتف جروب للاتصال 01203903309 بواسطة: (bery besho) :: (قسم الاعلانات) الموضوع:غرف نوم 2021.شركة فورنيدو للاثاث والمطابخ . ضمان 5 سنين 01270001596 بواسطة: (مارلين سامي) :: (قسم الاعلانات) الموضوع:اليكي افضل شركة تنظيف شقق فى العين 0501175141 الامين بواسطة: (منى الملاح) :: (قسم الاعلانات) الموضوع:سعر غرف نوم. شركة فورنيدو للاثاث والمطابخ . التوصيل لاى مكان داخل مصر 01270001596 بواسطة: (مارلين سامي) :: (قسم الاعلانات) الموضوع:صور ديكورات 2021 افضل العروض مع شركة عقارى 01020115117 بواسطة: (husayn fahmi) :: (قسم الاعلانات) الموضوع:مطبخ polylac acrylic ، هيفين هوم للمطابخ والاثاث ، توصيل وتركيب مجانا ، ضمان 01122267552 بواسطة: (مليكة سمير) :: (قسم الاعلانات) الموضوع:المكافحة وتنظيف المنازل فى الفجيرة بواسطة: (منى الملاح) :: (قسم الاعلانات) الموضوع:معرض غرف نوم. شركة فورنيدو للاثاث والمطابخ .التوصيل لجميع محافظات مصر 01270001597 بواسطة: (مارلين سامي) :: (قسم الاعلانات) الموضوع:مطابخ polylac acrylic ، هيفين هوم للمطابخ والاثاث ، ضمان 5 سنين ، توصيل وتركيب مجانا 01275599927 بواسطة: (مليكة سمير) :: (قسم الاعلانات) الموضوع:رقم افضل معلم تركيب فوم بديل الجبس وبراويز فوم ببريدة القصيم بارخص الاسعار 0500178513 بواسطة: (مسوق) :: (قسم الاعلانات) الموضوع:جيبسوم بورد تصميم ديكورات الحق العروض مع عقارى 01020115117 بواسطة: (husayn fahmi) :: (قسم الاعلانات) الموضوع:احدث غرف نوم مودرن 2021.شركة فورنيدو للاثاث والمطابخ . ضمان 5 سنين 01270001596 بواسطة: (مارلين سامي) :: (قسم الاعلانات) الموضوع:مطبخ hpl pvc ، هيفين هوم للمطابخ والاثاث ، توصيل وتركيب مجانا ،ضمان 01122267552 بواسطة: (مليكة سمير) :: (قسم الاعلانات) الموضوع:دولاب حمام - شركة ستيلا - اشترى تليفونيا او واتساب او زيارتنا 01207565655 بواسطة: (marsel emad) :: (قسم الاعلانات) الموضوع:وحدات ادراج غرف نوم، مكاتب خشب ، فوتية مودرن ، ضمان 5 سنين 01206788688 بواسطة: (ميرولا سامي)

المواضيع المثبته: (منتدى برمجة الألعاب) الموضوع:أسس تصميم الألعاب ال3Dالتفاعلية بواسطة: (مصطفي البارودي) :: (منتدى الكتب و المقالات) الموضوع:أرغب فى تعلم Microsoft Access وإحترافه بواسطة: (Prince4ever) :: (منتدى Microsoft SQL Server) الموضوع:كيف أقوم بنسخ البيانات فقط من جهازي الى الويب بواسطة: (أبو محمـد) :: (منتدى البرامج) الموضوع:برنامج رهيب انتا تتكلم والكمبيوتر يكتب بالعربى بواسطة: (مستشفى الكمبيوتر) :: (منتدى البرامج) الموضوع:شروحات لبرامجك المفضلة بواسطة: (junkbki) :: (قسم الاعلانات) الموضوع:الرجاء عدم تكرار الاعلانات حتي يستفيد الجميع من المنتدي بواسطة: (startnet) :: (منتدى مبرمجي Microsoft Visual VB.NET) الموضوع:دورة في LINQ To DataSet بواسطة: (jbsa) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:ADF بواسطة: (وليد القدسي) :: (منتدى برمجة الألعاب) الموضوع:مقدمة في برمجة الـ (3D) الألعاب...جـ2 بواسطة: (NubiaPrince) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:E-Business Suite بواسطة: (وليد القدسي) :: (منتدى الكتب الالكترونية) الموضوع:كتاب كامل من جزئين يشرح access وبالتفصيل وقواعد البيانات وبالتفصيل بواسطة: (m.i.a.r) :: (قسم النسخ والتحويل) الموضوع:برنامج تحويل قواعد البيانات العظيم بواسطة: (arabsboy) :: (قسم الـ portable) الموضوع:برنامج اكسترا لرفع الصور بواسطة: (kkarem55) :: (القسم المفتوح) الموضوع:شاهد واشكر ربك على نعمة الاسلام بواسطة: (غزاوية أصيلة) :: (منتدى Microsoft Visual Basic) الموضوع:دورة التعامل مع قواعد بيانات Oracle بإستخدام ADO بواسطة: (Max Bayne) :: (منتدى مبرمجي ASP.NET) الموضوع:كيفية ربط الأوراكل مع asp.net بواسطة: (عبدالله جابر شقليه) :: (منتدى مبرمجي لغة جافا JAVA) الموضوع:برنامج للموبايل بلغة الجافا للبحث على جوجل بواسطة: (Doctors) :: (منتدى Microsoft Visual Basic) الموضوع:شرح ODBC بواسطة: (VB_Manager) :: (قسم الدروس و الدورات) الموضوع:لتحميل مجموعة امثله على الفيجوال بيسيك دوت نت 2005 بواسطة: (HnHn) :: (منتدى برمجة الشبكات في بيئة الدوت نت) الموضوع:عمل برنامج بسيط مع قاعدة بيانات اكسس على شبكة محلية بواسطة: (allnsh 3)

إضافة رد إضافة موضوع جديد

> ممكن مساعدة في برنامج
Bookmark and Share
تقييم الموضوع Label معدل التقيم:0
مشاركةالاثنين,23/ذو القعدة/1441 هـ,11:50 مساءً
المشاركة #1

الرتبة في المنتدى:رقيب

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 1
سجل في:الاثنين,23/ذو القعدة/1441 هـ,11:47 مساءً
الدولة:أثيوبيا
رقم العضوية: 115987



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


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالخميس,17/ذو الحجة/1441 هـ,11:22 صباحاً
المشاركة #2

الرتبة في المنتدى:رقيب

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 6
سجل في:السبت,14/ذو القعدة/1441 هـ,02:03 مساءً
الدولة:أثيوبيا
رقم العضوية: 115963



ضع 6 ليبالات ......... الفردية في جهة و الزوجية في جهة
الكود سيبرط بين 1 و 2 ......... 3و4 ......5و6




Imports System.Drawing.Graphics
Public Class Form1
    Dim g As Graphics

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        g = createGraphics()
    End Sub

    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        'poont 1
        Dim p1 = Label1.Location
        Dim p2 = Label2.Location
        Dim p3 = Label3.Location
        Dim p4 = Label4.Location
        Dim p5 = Label5.Location
        Dim p6 = Label6.Location

        g.DrawLine(Pens.Black, New Point(p1), New Point(p2))
        g.DrawLine(Pens.Red, New Point(p3), New Point(p4))
        g.DrawLine(Pens.Blue, New Point(p5), New Point(p6))




    End Sub


End Class


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالخميس,17/ذو الحجة/1441 هـ,11:53 صباحاً
المشاركة #3

الرتبة في المنتدى:رقيب

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 6
سجل في:السبت,14/ذو القعدة/1441 هـ,02:03 مساءً
الدولة:أثيوبيا
رقم العضوية: 115963



مثال اخر :
ضع ليبال1 في الاسفل تماما....................ضع ليبال2 ايضا في الاسفل بعيدا عنه
سنضع فيههما احداثيات النقطتين

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

الكود هو


Imports System.Drawing.Graphics
Public Class Form1
    Dim g As Graphics
    Dim clic As Integer = 1
    Dim pnt, pnt2 As Label
 

    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
   

        If clic = 1 Then
            'Controls.Clear()
            'g.Clear(Color.White)
            'Label1.Text = 0
            'Label2.Text = 0
            '===================================================='
            pnt = New Label()
            Controls.Add(pnt)
            pnt.Text = "●"
            pnt.Font = New Font("Tahoma", 10, FontStyle.Bold)
            pnt.Size = New Size(20, 20)
            Dim x = Cursor.Position.X - Left - pnt.Width
            Dim y = Cursor.Position.Y - Top - pnt.Height - 31
            pnt.Location = New Point(x, y)
            Label1.Text = x & " _ " & y
            clic += 1
        ElseIf clic = 2 Then
            pnt2 = New Label()
            Controls.Add(pnt2)
            pnt2.Text = "●"
            pnt2.Font = New Font("Tahoma", 10, FontStyle.Bold)
            pnt2.Size = New Size(20, 20)
            Dim x2 = Cursor.Position.X - Left - pnt2.Width
            Dim y2 = Cursor.Position.Y - Top - pnt2.Height - 31
            Label2.Text = x2 & " _ " & y2
            pnt2.Location = New Point(x2, y2)
            Dim p1 = pnt.Location
            Dim p2 = pnt2.Location
            '==================================================================='
            g.DrawLine(Pens.Red, p1, p2)
            clic = 1
        End If

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        g = createGraphics()
    End Sub

End Class




الشرح الممل :

انا اريد ان انشئ خط مستقيم بين نقطتين في الصفحة في اي مكان

سنضع قيمة متغير clic هي 1 اي الضغطة الاولى ..........لما نضغط مرة اخرى ستصبح 2

في clic 1 سنشئ نقطة في الموضوع الاول للضغطة و نسجل الموقع في لبيال 1

PHP كود :
If clic = 1 Then


pnt = New Label()
Controls.Add(pnt)
pnt.Text = "●"
pnt.Font = New Font("Tahoma", 10, FontStyle.Bold)
pnt.Size = New Size(20, 20)
Dim x = Cursor.Position.X - Left - pnt.Width
Dim y = Cursor.Position.Y - Top - pnt.Height - 31
pnt.Location = New Point(x, y)
Label1.Text = x & " _ " & y


و نضيف 1 لقيمة المتغير clic

PHP كود :
clic += 1

عندها سننشء نقطة اخرى

PHP كود :
ElseIf clic = 2 Then
pnt2 = New Label()
Controls.Add(pnt2)
pnt2.Text = "●"
pnt2.Font = New Font("Tahoma", 10, FontStyle.Bold)
pnt2.Size = New Size(20, 20)
Dim x2 = Cursor.Position.X - Left - pnt2.Width
Dim y2 = Cursor.Position.Y - Top - pnt2.Height - 31
Label2.Text = x2 & " _ " & y2
pnt2.Location = New Point(x2, y2)
Dim p1 = pnt.Location
Dim p2 = pnt2.Location


ثم ننشئ خطا مستقينما بينهما
PHP كود :
g.DrawLine(Pens.Red, p1, p2)

كي نعيد الكرة مرة اخرى اي ننشء خطوط اخرى ما علينا الا ان نرجع القيمة clic الى 1
PHP كود :
clic = 1

من اجل ذلك يجب ان نستدعي دالة الرسم
PHP كود :
Imports System.Drawing.Graphics

و نعلن عن المتغيرات في البداية
PHP كود :
Dim g As Graphics
Dim clic As Integer = 1
Dim pnt, pnt2 As Label

و في بداية ظهور الصفحة form1_load
PHP كود :
g = createGraphics()


الشكل النهائي



الكود يحتاج الى تعديل ليكون بشكل دقيق ............. لمن يستطيع نكون شاكرين

الملف للتعديل

https://top4top.io/downloadf-16791lliz1-rar.html


بالتوفيق


حررت من قبل: عبد الهادي بهاب في الخميس,17/ذو الحجة/1441 هـ,12:10 مساءً


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة

    

عدد المتصفحين لهذا المنتدى «1»: (الضيوف «1» - المتخفون «0»)
الأعضاء «0»: .

إضافة رد جديد إضافة موضوع جديد



 
الوقت الأن:اليوم,07:35 مساءً بتوقيت القدس المحتلة

Powered By arabmoheet v3.1

منتديات المحيط العربي  -  راسلنا  -   أعلى
X   رسالة المنتدى
(سوف يتم اغلاق هذه النافذة بعد 2 ثانية)
X   رسالة المنتدى
(سوف يتم اغلاق هذه النافذة بعد 2 ثانية)