20-10-15, 08:22 PM
أريد تعديل هذا الكود بحيث يظل اسم ال FUNCTION متغير
ولكم ألف شكر
PHP كود :
Private Sub FUNC1()
AA = 111
End Sub
Private Sub FUNC2()
AA = 222
End Sub
Private Sub Command1_Click()
NNN = Val(Text1.Text)
Print "NNN "; NNN
If NNN <= 10 Then FUNCC = "FUNC1" Else: FUNCC = "FUNC2"
FUNCC
Rem"المفروض بالجملة السابقة يتوجه الى FUNC1 أو الى FUNC2 حسب قيمة المتغير FUNCC"
Print AA
End Sub
ولكم ألف شكر