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

(قسم الاعلانات) الموضوع:شركه نقل عفش بخميس مشيط بواسطة: (داليا عادل) :: (قسم الاعلانات) الموضوع:شركة نقل وتخزين الاثاث بالرياض بواسطة: (agamy) :: (قسم الاعلانات) الموضوع:مشروع الممشى في الشارقة بواسطة: (شيماء الجابوري) :: (منتدى Microsoft Excel) الموضوع:فك الحماية بواسطة: (shetos77) :: (قسم الاعلانات) الموضوع:موقع محبة بواسطة: (basemnady) :: (أخبار التكنولوجيا) الموضوع:موبايل Samsung Galaxy A20 المواصفات الكاملة مع ذكر السعر بواسطة: (basemnady) :: (أخبار التكنولوجيا) الموضوع:شركة تنظيف منازل في الكويت بواسطة: (basemnady) :: (منتدى الأكسس) الموضوع:ربط برنامجين في قاعدة واحدة بواسطة: (nashwanye) :: (قسم الاعلانات) الموضوع:دورة التصميم الداخلي باستخدام الحاسب الالي بواسطة: (اسماء عومر) :: (قسم الاعلانات) الموضوع:سوقنا دوت كوم souqneh بواسطة: (اسماء عومر) :: (قسم الاعلانات) الموضوع:عزل خزانات بمكة بواسطة: (noorelmamlka) :: (قسم الاعلانات) الموضوع:كشف تسربات المياه بمكة بواسطة: (noorelmamlka) :: (قسم الاعلانات) الموضوع:عزل خزانات بجدة بواسطة: (noorelmamlka) :: (منتدى ADO.NET العام) الموضوع:كشف تسريبات المياه بجدة بواسطة: (noorelmamlka) :: (منتدى ADO.NET العام) الموضوع:عزل خزانات بجدة بواسطة: (noorelmamlka) :: (قسم الاعلانات) الموضوع:أحمد جمال الدين للإستشارات الإقتصادية بواسطة: (مستشار تمويل) :: (قسم الاعلانات) الموضوع:دراسات الجدوى الأقتصادية بواسطة: (مستشار تمويل) :: (قسم الاعلانات) الموضوع:نوفر لكم افضل العمالة المنزلية بواسطة: (زينب محمدي) :: (أخبار التكنولوجيا) الموضوع:موضوع عن الحاسوب وفوائده بواسطة: (شيماء الحسيني) :: (منتدى ADO.NET العام) الموضوع:شركة تنظيف بجازان بواسطة: (داليا عادل)

المواضيع المثبته: (منتدى أنظمة الشبكات وأمنها) الموضوع:موسوعة كتب واسطوانات تعليم الشبكات Networking بواسطة: (مرحبا الساع) :: (منتدى برمجة الألعاب) الموضوع:اعلان هام بواسطة: (مصطفي البارودي) :: (منتدى مبرمجي ASP) الموضوع:كتاب مكون من 16 جزاء يتكلم عن asp بواسطة: (amricost) :: (منتدى مبرمجي Microsoft Visual VB.NET) الموضوع:طريقة تخزين أي نوع ملفات في Access DataBase ومشاهدتها وتشغيلها بواسطة: (jbsa) :: (منتدى C و C) الموضوع:دورة السي بلس بلس بواسطة: (مصطفي البارودي) :: (منتدى Borland Delphi) الموضوع:دروس دلفى بواسطة: (khaled helal) :: (منتدى Microsoft Visual Basic) الموضوع:عرض الصور المخزنه في قاعدة البيانات بالكريستال ريبورت بواسطة: (ابو حمد) :: (منتدى Microsoft Visual Basic) الموضوع:يرجى الإنتباه لجميع الأعضاء الجدد بواسطة: (zoubicom) :: (منتدى مبرمجي Microsoft Visual VB.NET) الموضوع:الادوات الجديده Controls فى الدوت نت بواسطة: (alaa gomaa) :: (منتدى الدعم الفني للماسنجر المحيط العربي) الموضوع:اقتراحات تطوير الماسنجر بواسطة: (jbsa) :: (منتدى البرامج) الموضوع:برنامج القرآن الكريم كاملاً مع التفسير بواسطة: (tarik-2007) :: (قسم الدروس و الدورات) الموضوع:تعلم معي البرمجة بالفيجوال بيسك .. بواسطة: (كوثــــــــــــر) :: (منتدى ADO.NET العام) الموضوع:الكامل في قواعد البيانات مع VB.net بواسطة: (المهندس عدي) :: (منتدى مبرمجي ASP.NET) الموضوع:كيفية عرض المنتديات والأقسام والمواضيع بواسطة: (عبدالله جابر شقليه) :: (منتدى Microsoft Visual Basic) الموضوع:أكبر مشاركة فيجوال بيسك بواسطة: (SkyLight) :: (منتدى Microsoft Visual Basic) الموضوع:Home Administrator Project بواسطة: (zoubicom) :: (منتدى ADO.NET العام) الموضوع:انشاء قواعد البيانات برمجيا جداول - علاقات -قيود بواسطة: (شهرزاد) :: (قسم الدروس و الدورات) الموضوع:دروس بالفيديو في VB.NET 2005 بواسطة: (HnHn) :: (منتدى الكتب و المقالات) الموضوع:دروس متفرقة خفيفة بواسطة: (أبو أفنان) :: (منتدى الكتب و المقالات) الموضوع:الشرح الكامل التفصيلي المصور لمعرفة نسخة الأكسيس وتخفيض الأمان برمجيا بواسطة: (zahrah)

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

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

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

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

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



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


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

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

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

المجموعة: الأعضاء
المشاركات: 5
سجل في:السبت,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

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

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

المجموعة: الأعضاء
المشاركات: 5
سجل في:السبت,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»: .

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



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

Powered By arabmoheet v3.1

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