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

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


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

    شاطر

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

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

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

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

    مُساهمة من طرف البطل السيناوي في السبت مايو 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




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

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

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

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

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


    _________________

    الحيـــــــــــــــــــــاة دمعـتان .. دمعــة لقاء ودمعــة وداع .. والأصعب من ذلك دمعة لقاء بعد الفــــــــــــراق...!!!

    ليالي
    عضو نشط
    عضو نشط

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

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

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

    مشكور

      الوقت/التاريخ الآن هو الأحد ديسمبر 04, 2016 11:28 pm