تحكم بحركة مربعي نص بواسطة ازرار خيارات

[athal]

السلام عليكم

عندي مشكلة في التحكم في مربعي نص . مربع النص الاول يعمل الكود لكن للمربع الثاني  يوجد مشكلة.

ارجو المساعدة بارككم الله

move.rar

تم تعديل مارس 20, 2017 بواسطه athal
تعديل العنوان

[Shivan Rekany]

3 ساعات مضت, athal said:

السلام عليكم

عندي مشكلة في التحكم في مربعي نص . مربع النص الاول يعمل الكود لكن للمربع الثاني  يوجد مشكلة.

ارجو المساعدة بارككم الله

move.rar

شوف كودك الخطأ من وين

Select Case Frame19
Case 1
Text10.Left = Text1.Left + 100
Case 2
 Text10.Top = Text1.Top + 100
 Case 3
 End Select
 Text10.Width = Text1.Width + 100
End Select

الخطأ من هذا السطر

Text10.Left = Text1.Left + 100

Text10.Left كتبت تيكست 10

وبعدين كتبت Text1.Left  تيكس 1

غيرها الى 10

تحياتي

[athal]

الان, Shivan Rekany said:

شوف كودك الخطأ من وين

Select Case Frame19
Case 1
Text10.Left = Text1.Left + 100
Case 2
 Text10.Top = Text1.Top + 100
 Case 3
 End Select
 Text10.Width = Text1.Width + 100
End Select

الخطأ من هذا السطر

Text10.Left = Text1.Left + 100

Text10.Left كتبت تيكست 10

وبعدين كتبت Text1.Left  تيكس 1

غيرها الى 10

تحياتي

بارك الله فيك استاذي الكريم وجوزيت الخير .

[Shivan Rekany]

1 ساعه مضت, athal said:

بارك الله فيك استاذي الكريم وجوزيت الخير .

شو رأيك اذا نتغير كودك بدل " + " و "-" نستخدم "*"

اي يعني الكود بيتغير عند نقصان الى هذا

Text10.Left = Text10.Left * 0.9

وعند تزايد الى هذا

Text10.Left = Text10.Left * 1.1

واليك ملفك القي نظرتا اليه

 

move.rar

[athal]

الان, Shivan Rekany said:

شو رأيك اذا نتغير كودك بدل " + " و "-" نستخدم "*"

اي يعني الكود بيتغير عند نقصان الى هذا

Text10.Left = Text10.Left * 0.9

وعند تزايد الى هذا

Text10.Left = Text10.Left * 1.1

واليك ملفك القي نظرتا اليه

 

move.rar

اضافة جميلة بوركت

جزاك الله خيرا