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

السلام عليكم

احاول كتابة function

إقتباس :

كود :

Public Function b()

Dim mb As String
m = Text3.Text
mb = List3.List(m - 1)
MsgBox mb
If mb = "+" Then Text1.Text = Text2.Text + Text4.Text
If mb = "-" Then Text1.Text = Text2.Text - Text4.Text
If mb = "/" Then Text1.Text = Text2.Text / Text4.Text
If mb = "*" Then Text1.Text = Text2.Text * Text4.Text
If mb = "^" Then Text1.Text = Text2.Text ^ Text4.Text

فاين الخطأ

و كود الاستعمال

هذا هو جزء من المشروع فقط اضغط على الكوماند يطلعلك الخطأ الذي يظهر لي

على ما يبدو انه يوجد خطأ في المرفق قمت بتصحيحه




او اعطوني كود الفاكنشن

الذي يقوم بالعملية التالية

إقتباس :

PHP كود :

text1.text=val(text2.text)+val(text4.text) 


و كيفية استعماله في كوماند

احذف الكود التالي
(Form1.b (1 وسيعمل لديك المشروع .. ارجو توضيح الفكرة من المشروع ان امكن

ارجو ان يكون تعديلي على مشروعك هو المطلوب

الف شكر للجميع حل مريح جدا