19-01-15, 06:17 AM
السلام عليكم
احاول كتابة function
فاين الخطأ
و كود الاستعمال
احاول كتابة 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
فاين الخطأ
و كود الاستعمال