منتدى طلاب جامعة الحديدة

أخي الزائر إن لم تكن عضواً في المنتدى فنحن ندعوك لكي تنظم إلينا وشكراً تحيات مدير المنتدى طارق البغوي

انضم إلى المنتدى ، فالأمر سريع وسهل

منتدى طلاب جامعة الحديدة

أخي الزائر إن لم تكن عضواً في المنتدى فنحن ندعوك لكي تنظم إلينا وشكراً تحيات مدير المنتدى طارق البغوي

منتدى طلاب جامعة الحديدة

هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.
منتدى طلاب جامعة الحديدة


3 مشترك

    فيجول بيزك دوت نت اسحب صورة باستخدام مفاتيح الاسهم

    avatar
    البطل السيناوي
    عضو جديد
    عضو جديد


    ذكر
    عدد الرسائل : 2
    العمر : 37
    البلد : مصر
    القسم والمستوى : كلية التربية
    المزاج : معتدل
    أختر علم دولتك : فيجول بيزك دوت نت اسحب صورة باستخدام مفاتيح الاسهم Female10
      : فيجول بيزك دوت نت اسحب صورة باستخدام مفاتيح الاسهم 15781610
    السٌّمعَة : 0
    نقاط : 5
    تاريخ التسجيل : 29/05/2010

    بطاقة الشخصية
    تخصصي: شريعة وقانون
    المحافظة: الحديدة

    فيجول بيزك دوت نت اسحب صورة باستخدام مفاتيح الاسهم Empty فيجول بيزك دوت نت اسحب صورة باستخدام مفاتيح الاسهم

    مُساهمة من طرف البطل السيناوي السبت مايو 29, 2010 2:09 am

    لكي تبدأ في برمجة الألعاب اليك الكود التالي في تحريك صورة و إذا لامست صورة أخري تخرج رسالة معينة





    Public Class Form1





    Dim x As Integer





    Private Sub P1_Click(ByVal
    sender As System.Object, ByVal e As
    System.EventArgs) Handles P1.Click





    End Sub





    Private Sub Form1_KeyDown(ByVal
    sender As Object,
    ByVal e As
    System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown


    Dim loc
    As Point


    If
    e.KeyCode = Windows.Forms.Keys.Left Then


    If Not P1.Location.X - 5 < 0 Then


    loc = New
    Point(P1.Location.X - 5, P1.Location.Y)


    P1.Location = loc


    End
    If


    End If


    If
    e.KeyCode = Windows.Forms.Keys.Right Then


    If Not P1.Location.X + 5 > Me.Width
    - P1.Width - 5 Then


    loc = New
    Point(P1.Location.X + 5, P1.Location.Y)


    P1.Location = loc


    End
    If


    End If





    If
    e.KeyCode = Windows.Forms.Keys.Up Then


    If Not P1.Location.Y - 5 < 0 Then


    loc = New
    Point(P1.Location.X, P1.Location.Y - 5)


    P1.Location = loc


    End
    If


    End If


    If
    e.KeyCode = Windows.Forms.Keys.Down Then


    If Not P1.Location.Y + 5 > Me.Width
    - P1.Width - 5 Then


    loc = New
    Point(P1.Location.X, P1.Location.Y + 5)


    P1.Location = loc


    End
    If


    End If


    If
    P1.Bounds.IntersectsWith(Me.PictureBox1.Bounds)
    Then


    P3.Visible = True





    x = x + 1


    Me.Label1.Text
    = x.ToString()


    loc = New
    Point(0, 100)


    P1.Location = loc


    End If


    End Sub





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


    x = 0


    End Sub


    End Class



    مأمون المفلحي
    مأمون المفلحي
    مستشار إداري
    مستشار إداري


    ذكر
    عدد الرسائل : 2676
    العمر : 37
    البلد : في كل حلم جميل
    القسم والمستوى : برمجة حاسوب
    المزاج : أحب الهــــدووووووووء والصراحة
      : فيجول بيزك دوت نت اسحب صورة باستخدام مفاتيح الاسهم 15781610
    السٌّمعَة : 13
    نقاط : 1666
    تاريخ التسجيل : 26/04/2008

    فيجول بيزك دوت نت اسحب صورة باستخدام مفاتيح الاسهم Empty رد: فيجول بيزك دوت نت اسحب صورة باستخدام مفاتيح الاسهم

    مُساهمة من طرف مأمون المفلحي السبت مايو 29, 2010 12:48 pm

    تسلم أخي العزيز
    بارك الله فيك وعسانا ماننحرم من مشاركاتك...مع خالص تحياتي
    avatar
    ليالي
    عضو نشط
    عضو نشط


    انثى
    عدد الرسائل : 36
    العمر : 26
    البلد : السودان
    القسم والمستوى : طالبه
    المزاج : عصبيه كتتير
    أختر علم دولتك : فيجول بيزك دوت نت اسحب صورة باستخدام مفاتيح الاسهم Male_s15
      : فيجول بيزك دوت نت اسحب صورة باستخدام مفاتيح الاسهم 15781610
    السٌّمعَة : 0
    نقاط : 36
    تاريخ التسجيل : 01/02/2011

    فيجول بيزك دوت نت اسحب صورة باستخدام مفاتيح الاسهم Empty رد: فيجول بيزك دوت نت اسحب صورة باستخدام مفاتيح الاسهم

    مُساهمة من طرف ليالي الخميس فبراير 03, 2011 10:14 am

    مشكور

      الوقت/التاريخ الآن هو الخميس مارس 28, 2024 9:30 am