درخواست کمک برای استفاده از دستور if

[Tom Clancy's]

سلام
من وقتی از دستور if استفاده میکنم این ارورو میده میخواستم بدونم برای چیه؟
ممنون

Compile error:
End If without block If

[vb_lord_AR]

این یعنی شما یه end if اضلفی گذاشتی

ساختار دستور if :

if a=b then
msgbox a
end if

[Tom Clancy's]

این یعنی شما یه end if اضلفی گذاشتی

ساختار دستور if :

if a=b then
msgbox a
end if

نه دوست عزیز من یه end if گذاشتم کد اینه:
Private Sub Command1_Click()
If Me.Caption = "form1" Then Beep
End If
End Sub

میشه مشکل از برنامه باشه؟

[lolop30world]

نه دوست عزیز من یه end if گذاشتم کد اینه:
Private Sub Command1_Click()
If Me.Caption = "form1" Then Beep
End If
End Sub

میشه مشکل از برنامه باشه؟
سلام
کد درست اینطوری است
Private Sub Command1_Click()
If Me.Caption = "form1" Then
Beep
End If
End Sub
یعنی دستور را باید در خط دوم بنویسید
یا اینکه دستور را می تونی در یک خط بنویسی اینطوری :
Private Sub Command1_Click()
If Me.Caption = "form1" Then Beep
End Sub
که در این صورت end if لازم نمی باشد و اون خطا هم بخاطر همین بوده است

[بهرام_62]

اون کد شما هم درسته فقط باید
end if
رو برداری

[بهرام_62]

به طور کلی دستور if چندین نوع داره
s=شرط
t=دستوری که اگر شرط برقرار بود اجرا می شود
f=دستوری که اگر شرط درست نبود اجرا می شود
1.
if s then t


2.
if s then t else f


3.
if s then
t1
t2
t3
.
.
.
tn
end if


4.
if s then
t1
t2
tn
else
f1
f2
fn
end if


5.
if s1 then
t1
elseif s2 then
t2
elseif s3 then
t3
else if sn then
tn
end if

امیدوارم فهمیده باشی[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]