منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغات البرمجة الاخرى قسم لغة vb6.0 قسم أسئلة vb6.0 [سؤال] اذا لامس عنصر الثاني
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
[سؤال] اذا لامس عنصر الثاني
ahmed3d غير متصل
عضو مبدع
المشاركات : 105
المواضيع 15
الإنتساب : Aug 2013
السمعة : 1
الشكر: 25
تم شكره 9 مرات في 4 مشاركات
#1
Brick  10-01-14, 08:57 PM
يا شباب محتاج كود او مثال انو يحدث حدث معين اذا لامس العنصر المحدد عنصر اخر

مثلا صورة معينة تتحرك بواسطة تايمر لما تلمس الصورة الثانية يظهر مسج بوكس فيه كلمة yes و شكرا.... [/size]

هي رح تكون جملة شرطية بس مش عارف كيف اكتب الشرط
لو كان للضمير العربي (واتس اب)Huh
لكان اخر ظهور له منذ زماان بعيدConfused
البحث
الرد }}}
تم الشكر بواسطة:
mounzerlb غير متصل
عضو فعال
*
المشاركات : 41
المواضيع 11
الإنتساب : Dec 2013
السمعة : 0
الشكر: 46
تم شكره 5 مرات في 5 مشاركات
#2
10-01-14, 09:48 PM
أي صوره أو كباس أو تكست بوكس لهم أبعاد TOP و Left
فاذا كان top للصوره يساوي top لتكست بوكس وleft للصوره يساوي left لتكست بوكس عندها يكزن قد لامسها
فمثلا
كود :
If Command1.Top = Picture1.Top And Command1.Left = Picture1.Left Then
MsgBox "yes"
End If
أرجو أن أكون قد أفدتك
البحث
الرد }}}
تم الشكر بواسطة:
asto غير متصل
المتميزون
*
المشاركات : 491
المواضيع 63
الإنتساب : Sep 2013
السمعة : 2
الشكر: 33
تم شكره 272 مرات في 75 مشاركات
#3
11-01-14, 08:37 AM
او يكون الكود كالتالي :

كود :
If Command1.Top+ارتفاع الكوماند = Picture1.Top And Command1.Left +عرض الكوماند= Picture1.Left Then
MsgBox "yes"
End If
البحث
الرد }}}
تم الشكر بواسطة: ahmed3d
ahmed3d غير متصل
عضو مبدع
المشاركات : 105
المواضيع 15
الإنتساب : Aug 2013
السمعة : 1
الشكر: 25
تم شكره 9 مرات في 4 مشاركات
#4
11-01-14, 05:54 PM
انا جربت هاي الطريقة قبل ما اسأل لاكن ما نفعت لانو مو شرط يلمسه و يكون نفس التوب و اللفت لاكن بحاول بالطريقة 2 لاني ما جربتها و بشوف و على فكرة انا بعمل على لعبة عشان كذا ما ينفع 1 و اعرف انو الفيجوال بيسك ما ينفع للالعاب لاكن حبيت اجرب يمكن تصير و اهم شي تسلم على الرد
لو كان للضمير العربي (واتس اب)Huh
لكان اخر ظهور له منذ زماان بعيدConfused
البحث
الرد }}}
تم الشكر بواسطة:
mounzerlb غير متصل
عضو فعال
*
المشاركات : 41
المواضيع 11
الإنتساب : Dec 2013
السمعة : 0
الشكر: 46
تم شكره 5 مرات في 5 مشاركات
#5
11-01-14, 08:20 PM
(11-01-14, 05:54 PM)ahmed3d كتب : انا جربت هاي الطريقة قبل ما اسأل لاكن ما نفعت لانو مو شرط يلمسه و يكون نفس التوب و اللفت لاكن بحاول بالطريقة 2 لاني ما جربتها و بشوف و على فكرة انا بعمل على لعبة عشان كذا ما ينفع 1 و اعرف انو الفيجوال بيسك ما ينفع للالعاب لاكن حبيت اجرب يمكن تصير و اهم شي تسلم على الرد

أعتقد الطريقة الثانية عند الملامسة
البحث
الرد }}}
تم الشكر بواسطة:
asto غير متصل
المتميزون
*
المشاركات : 491
المواضيع 63
الإنتساب : Sep 2013
السمعة : 2
الشكر: 33
تم شكره 272 مرات في 75 مشاركات
#6
12-01-14, 01:19 AM
يوجد ايضا خمس حالات اخرى

الثانية هي نفس الاولى لكن يستبدل + ب - و بالنسبة للاولى : Command1.Top+ارتفاع الكوماند = Picture1.Top و ليس كما هيمكتوب اي تعكس في اول مشاركة لي في هذا الموضوع

و الثالثة و الرابعة
كود :
If Command1.Top = Picture1.Top And Picture1.Left  =Command1.Left +عرض الكوماند Then
MsgBox "yes"
End If

If Picture1.Top=Command1.Top+ارتفاع الكوماند   And Command1.Left = Picture1.Left Then
MsgBox "yes"
End If

و الخامسة و السادسة نفس ما علاه لكن بستبدل + ب -
البحث
الرد }}}
تم الشكر بواسطة:
ahmed3d غير متصل
عضو مبدع
المشاركات : 105
المواضيع 15
الإنتساب : Aug 2013
السمعة : 1
الشكر: 25
تم شكره 9 مرات في 4 مشاركات
#7
12-01-14, 03:49 PM (آخر تعديل لهذه المشاركة : 12-01-14, 04:13 PM {2} بواسطة ahmed3d.)
كلام استو صحيح بس مو هاذي الطريقة الي تفيدني
لانو ممكن يلامس الزر الصورة بشكل قطري او شكل قطري بس مو منتظم انا بحط مثال عشانتعرفوا قصدي
صح كلامك اخي استو بس ممكن طلب انك تكتبلي الاكواد جميعها عشاني مش فاهم كثيرUndecided
لو كان للضمير العربي (واتس اب)Huh
لكان اخر ظهور له منذ زماان بعيدConfused
البحث
الرد }}}
تم الشكر بواسطة:
asto غير متصل
المتميزون
*
المشاركات : 491
المواضيع 63
الإنتساب : Sep 2013
السمعة : 2
الشكر: 33
تم شكره 272 مرات في 75 مشاركات
#8
12-01-14, 11:06 PM
كود :
If  Picture1.Top= Command1.Top+ارتفاع الكوماند And  Picture1.Left=Command1.Left +عرض الكوماند Then
MsgBox "yes"
End If

If  Picture1.Top= Command1.Top-ارتفاع الكوماند And Picture1.Left= Command1.Left -عرض الكوماند Then
MsgBox "yes"
End If

If Command1.Top = Picture1.Top And Picture1.Left  =Command1.Left +عرض الكوماند Then
MsgBox "yes"
End If

If Command1.Top = Picture1.Top And Picture1.Left  =Command1.Left -عرض الكوماند Then
MsgBox "yes"
End If

If Picture1.Top=Command1.Top+ارتفاع الكوماند   And Command1.Left = Picture1.Left Then
MsgBox "yes"
End If
If Picture1.Top=Command1.Top-ارتفاع الكوماند   And Command1.Left = Picture1.Left Then
MsgBox "yes"
End If
البحث
الرد }}}
تم الشكر بواسطة:
ahmed3d غير متصل
عضو مبدع
المشاركات : 105
المواضيع 15
الإنتساب : Aug 2013
السمعة : 1
الشكر: 25
تم شكره 9 مرات في 4 مشاركات
#9
13-01-14, 03:17 PM (آخر تعديل لهذه المشاركة : 13-01-14, 03:19 PM {2} بواسطة ahmed3d.)
اخي للأسف الكود ما فادني كثير المهم انا حطيت مثال ارجو حل للمشكله توقعت انو يكون كودها سهل بس طلع صعب خخخخخخ
المثال


الملفات المرفقة
.rar   تصادم قطري.rar (الحجم : 1.18 ك ب / التحميلات : 84)
لو كان للضمير العربي (واتس اب)Huh
لكان اخر ظهور له منذ زماان بعيدConfused
البحث
الرد }}}
تم الشكر بواسطة:
asto غير متصل
المتميزون
*
المشاركات : 491
المواضيع 63
الإنتساب : Sep 2013
السمعة : 2
الشكر: 33
تم شكره 272 مرات في 75 مشاركات
#10
14-01-14, 03:23 AM
هذا الكود يعمل مع تحريك الكوماند

كود :
Dim SSX As Integer
Dim SSY As Integer
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
   Command1.Left = Command1.Left + X - SSX
    Command1.Top = Command1.Top + Y - SSY
X = Command1.Left
Y = Command1.Top

Text1.Text = Command1.Height
Text2.Text = Command1.Width
Text3.Text = Command1.Top - Val(Text1.Text)
Text4.Text = Picture1.Top



If Picture1.Top = Command1.Top - Val(Text1.Text) And Picture1.Left = Command1.Left + Val(Text2.Text) Then
MsgBox "yes"
End If

If Picture1.Top = Command1.Top + Val(Text1.Text) And Picture1.Left = Command1.Left - Val(Text2.Text) Then
MsgBox "yes"
End If
If Picture1.Top = Command1.Top - Val(Text1.Text) And Picture1.Left = Command1.Left - Val(Text2.Text) Then
MsgBox "yes"
End If
If Picture1.Top = Command1.Top + Val(Text1.Text) And Picture1.Left = Command1.Left + Val(Text2.Text) Then
MsgBox "yes"
End If
If Command1.Top = Picture1.Top And Picture1.Left = Command1.Left + Val(Text2.Text) Then
MsgBox "yes"
End If

If Command1.Top = Picture1.Top And Picture1.Left = Command1.Left - Val(Text2.Text) Then
MsgBox "yes"
End If

If Picture1.Top = Command1.Top + Val(Text1.Text) And Command1.Left = Picture1.Left Then
MsgBox "yes"
End If
If Picture1.Top = Command1.Top - Val(Text1.Text) And Command1.Left = Picture1.Left Then
MsgBox "yes"
End If
End If
End Sub
البحث
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند حذف عنصر hannileo 1 537 07-09-22, 02:12 AM
آخر رد: Taha Okla
  إظهار طلبة الدور الثاني حسب مواد الرسوب مصمم هاوي 12 1,730 19-11-21, 09:09 AM
آخر رد: مصمم هاوي
  [vb6.0] السوال الثاني برنامج لحساب مجموع مبيعات شركه من بيانات المبيعات اليوميه لفترة 25يوم jamal 0 1,701 26-03-16, 10:17 PM
آخر رد: jamal
  أريد عند تحديد التاريخ الأول يتم تحديد التاريخ الثاني تلقئيا على أن يكون بعده بثلاثة رجل الكهرباء 3 2,958 02-05-15, 01:54 AM
آخر رد: رجل الكهرباء
  [سؤال] استعلام لحقل موجود في جدول بالفورم الاول الى جدول موجود بالفورم الثاني زهراء 11 4,188 17-10-14, 08:24 PM
آخر رد: السيد الغالي
  كيف نضيف عنصر جديد لـ combo ماجد 11 4,282 25-06-14, 12:11 AM
آخر رد: ماجد
  [كود] سؤال خاص الثاني touati 2 1,783 13-06-14, 09:01 PM
آخر رد: king2512010
Sad [كود] سؤال في ال listbox كيفية التعديل على عنصر مختار من الليست rafed 3 2,832 05-12-13, 12:47 AM
آخر رد: الميسري

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


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