02-01-19, 06:32 AM
السلام عليكم ورحمة الله
اخواني كيف حالكم
اليوم اكتشفت شئ مهم حبيت اشارك حضارتكم بيه
انه عند كتابة الشرط if في سطر واحد فان اي دالة موجوده فيه للاسف يتم تنفيذها
مثال
في هذا الكود ستلاحظ ظهور الرسالة
اخواني كيف حالكم
اليوم اكتشفت شئ مهم حبيت اشارك حضارتكم بيه
انه عند كتابة الشرط if في سطر واحد فان اي دالة موجوده فيه للاسف يتم تنفيذها
مثال
كود :
Private Sub Meform_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim check As Boolean = False
If check Then
Test_Run()
End If
Dim txt As String = IIf(check, Test_Run, "")
End Sub
Private Function Test_Run() As String
MsgBox("Ok")
Return "1"
End Functionفي هذا الكود ستلاحظ ظهور الرسالة