+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] location (/showthread.php?tid=13851)
location - أسامة - 17-11-15
كيف يمكن تغير location من Textbox مثلآ
Button.location = new point (textbox.text)
RE: location - HASAN6.0 - 17-11-15
صيغة الـ new point تكون هكذا
PHP كود :
New Point(x,y)
وكلاهما عباره عن رقم integer
RE: location - أسامة - 18-11-15
(17-11-15, 10:20 PM)HASAN6.0 كتب : صيغة الـ new point تكون هكذا
حيث x المحور السيني و y المحور الصاديPHP كود :
New Point(x,y)
وكلاهما عباره عن رقم integer
اعلم اخى لاكن اريد بدل كتابة الكود button.location = new point (x,y) اريدة ان يفهم ال قبل , x ة ال بعد , y حيث يمكن استخدامة new point(textbox.text)
RE: location - مهموم - 18-11-15
السلام عليكم ورحمة الله
أخي أسامة
لعل هذا ما تقصد، مع ملاحظة أن AndAlso تختلف عن And، وفي هذا الكود سيتم التحقق من أن كلا طرفي الفاصلة أن يكون رقماً
PHP كود :
Dim loc() As String = TextBox1.Text.Split(",")
If loc.Count = 2 AndAlso IsNumeric(loc(0)) AndAlso IsNumeric(loc(1)) Then
Button1.Location = New Point(Val(loc(0)), Val(loc(1)))
End If
RE: location - أسامة - 18-11-15
(18-11-15, 02:52 AM)مهموم كتب : السلام عليكم ورحمة الله
أخي أسامة
لعل هذا ما تقصد، مع ملاحظة أن AndAlso تختلف عن And، وفي هذا الكود سيتم التحقق من أن كلا طرفي الفاصلة أن يكون رقماً
PHP كود :
Dim loc() As String = TextBox1.Text.Split(",")
If loc.Count = 2 AndAlso IsNumeric(loc(0)) AndAlso IsNumeric(loc(1)) Then
Button1.Location = New Point(Val(loc(0)), Val(loc(1)))
End If
شكرى جزيلآ جزاك الله خير اخى