[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
كيف أقوم بتطبيقة مثل الكود السابق

[hassan]

(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


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

[matrixmas]

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

[shwehdi4pc]

(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

[sooriaty03]

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

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

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

بالتوفيق