منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله

If 120 > 100 And 120 < 200 And 80 > 50 And 80 < 200 Then
MsgBox("True")
Else
MsgBox("False")
End If

هذا كلام منطقى وعادى
ولكنى أريد عمل السابق ولكن عن طريق TextBox

بمعنى لو وضعنا textbox وبداخلة
120 > 100 And 120 < 200 And 80 > 50 And 80 < 200
كيف أقوم بتطبيقة مثل الكود السابق

(06-08-14, 12:35 AM)matrixmas كتب : [ -> ]السلام عليكم ورحمة الله

If 120 > 100 And 120 < 200 And 80 > 50 And 80 < 200 Then
MsgBox("True")
Else
MsgBox("False")
End If

هذا كلام منطقى وعادى
ولكنى أريد عمل السابق ولكن عن طريق TextBox

بمعنى لو وضعنا textbox وبداخلة
120 > 100 And 120 < 200 And 80 > 50 And 80 < 200
كيف أقوم بتطبيقة مثل الكود السابق

ما فهمت هل قصدك انك تبي

شرط

if

لتكست بوكس ؟؟؟؟؟؟؟؟؟

تمااااام بالظبط

(06-08-14, 12:35 AM)matrixmas كتب : [ -> ]السلام عليكم ورحمة الله

If textbox1.text > 100 Andalso textbox1.text < 200 Andalso textbox2.text > 50 Andalso textbox2.text < 200 Then
MsgBox("True")
Else
MsgBox("False")
End If

هذا كلام منطقى وعادى
ولكنى أريد عمل السابق ولكن عن طريق TextBox

بمعنى لو وضعنا textbox وبداخلة
120 > 100 And 120 < 200 And 80 > 50 And 80 < 200
كيف أقوم بتطبيقة مثل الكود السابق

قيمة 200 قم بإدخاله في textbox1 و قيمة 80 قم بإدخالها في textbox2

السلام عليكم ورحمة الله وبركاته

تفضل أخي مثال للأخ أبو رائد

http://vb4arb.com/vb/thread-738.html

أو استعمل الكود التالي مباشرة (وهو نفس الكود في مثال الأخ أبو رائد):

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim o As Object = CreateObject("ScriptControl")

        o.Language = "VBScript"

        TextBox2.Text = o.Eval(TextBox1.Text)

        o = Nothing

End Sub

بالتوفيق

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

matrixmas

hassan

matrixmas

shwehdi4pc

sooriaty03