iran2008
شنبه 05 بهمن 1387, 03:50 صبح
سلام
من ميخوام چند دستور رو بدم به برنامه اجرا كنه اما نميدونم از كدوم دستور شرطي و چگونه استفاده كنم ؟
شرط من اينجوريه :
Private Sub Form_Load()
If Form1.ll1.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (0)
ElseIf Form1.ll2.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (1)
ElseIf Form1.ll3.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (2)
ElseIf Form1.ll4.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (3)
ElseIf Form1.ll5.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (4)
ElseIf Form1.ll6.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (5)
ElseIf Form1.ll7.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (6)
ElseIf Form1.ll8.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (7)
ElseIf Form1.ll9.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (8)
ElseIf Form1.ll10.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (9)
ElseIf Form1.ll11.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (10)
Else
If Form1.ll12.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (11)
End If
End Sub
حال مشكل دارم و وقتي اجرا ميشه گير ميده .
ميشه بگيد مشكلم از كجاست .
من ميخوام چند دستور رو بدم به برنامه اجرا كنه اما نميدونم از كدوم دستور شرطي و چگونه استفاده كنم ؟
شرط من اينجوريه :
Private Sub Form_Load()
If Form1.ll1.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (0)
ElseIf Form1.ll2.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (1)
ElseIf Form1.ll3.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (2)
ElseIf Form1.ll4.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (3)
ElseIf Form1.ll5.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (4)
ElseIf Form1.ll6.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (5)
ElseIf Form1.ll7.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (6)
ElseIf Form1.ll8.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (7)
ElseIf Form1.ll9.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (8)
ElseIf Form1.ll10.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (9)
ElseIf Form1.ll11.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (10)
Else
If Form1.ll12.Caption = "æÖÚíÊ : ÑæÔä" Then cm.RemoveItem (11)
End If
End Sub
حال مشكل دارم و وقتي اجرا ميشه گير ميده .
ميشه بگيد مشكلم از كجاست .