24-10-15, 11:08 PM
السلام عليكم
ربما يكون التالي اقرب ما يكون الى ما تريد
يعطيك العافية
ربما يكون التالي اقرب ما يكون الى ما تريد
كود :
Dim NNN, AA As Integer
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
FUNCC
Rem"ÇáãÝÑæÖ ÈÇáÌãáÉ ÇáÓÇÈÞÉ íÊæÌå Çáì FUNC1 Ãæ Çáì FUNC2 ÍÓÈ ÞíãÉ ÇáãÊÛíÑ FUNCC"
Print AA
End Sub
Function FUNCC()
If NNN <= 10 Then
Call FUNC1
Exit Function
Else
Call FUNC2
End If
End Functionيعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))
