پرستو پارسایی
چهارشنبه 14 آبان 1393, 23:50 عصر
با سلام من میخواستم خلاصه نویسی صحیح دستور شرط زیر رو بدونم ممنون میشم در صورت اطلاع پاسخ دهید.
txtChangCar.Text = txtNameCar.Text + txtNumberCar.Text If txtChangCar.Text = "BMW1" Then
LoadPic5(txtChangCar.Text, pic1)
Else
If txtChangCar.Text = "BMW2" Then
LoadPic5(txtChangCar.Text, pic2)
Else
If txtChangCar.Text = "BMW3" Then
LoadPic5(txtChangCarText, pic3)
Else
If txtChangCar.Text = "BMW4" Then
LoadPic5(txtChangCar.Text, pic4)
Else
If txtChangCar.Text = "BMW5" Then
LoadPic5(txtChangCar.Text, pic5)
Else
If txtChangCar.Text = "BMW6" Then
LoadPic5(txtChangCar.Text, pic6)
Else
If txtChangCar.Text = "BMW7" Then
LoadPic5(txtChangCar.Text, pic7)
Else
If txtChangCar.Text = "BMW8" Then
LoadPic5(txtChangCar.Text, pic8)
Else
If txtChangCar.Text = "BMW9" Then
LoadPic5(txtChangCarText, pic9)
Else
If txtChangCar.Text = "BMW10" Then
LoadPic5(txtChangCar.Text, pic10)
Else
If txtChangCar.Text = "BMW11" Then
LoadPic5(txtChangCar.Text, pic11)
Else
If txtChangCar.Text = "BMW12" Then
LoadPic5(txtChangCar.Text, pic12)
Else
If txtChangCar.Text = "BMW13" Then
LoadPic5(txtChangCar.Text, pic13)
Else
If txtChangCar.Text = "BMW14" Then
LoadPic5(txtChangCar.Text, pic14)
Else
If txtChangCar.Text = "BMW15" Then
LoadPic5(txtChangCar.Text, pic15)
Else
If txtChangCar.Text = "BMW16" Then
LoadPic5(txtChangCar.Text, pic16)
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
با سپاس
txtChangCar.Text = txtNameCar.Text + txtNumberCar.Text If txtChangCar.Text = "BMW1" Then
LoadPic5(txtChangCar.Text, pic1)
Else
If txtChangCar.Text = "BMW2" Then
LoadPic5(txtChangCar.Text, pic2)
Else
If txtChangCar.Text = "BMW3" Then
LoadPic5(txtChangCarText, pic3)
Else
If txtChangCar.Text = "BMW4" Then
LoadPic5(txtChangCar.Text, pic4)
Else
If txtChangCar.Text = "BMW5" Then
LoadPic5(txtChangCar.Text, pic5)
Else
If txtChangCar.Text = "BMW6" Then
LoadPic5(txtChangCar.Text, pic6)
Else
If txtChangCar.Text = "BMW7" Then
LoadPic5(txtChangCar.Text, pic7)
Else
If txtChangCar.Text = "BMW8" Then
LoadPic5(txtChangCar.Text, pic8)
Else
If txtChangCar.Text = "BMW9" Then
LoadPic5(txtChangCarText, pic9)
Else
If txtChangCar.Text = "BMW10" Then
LoadPic5(txtChangCar.Text, pic10)
Else
If txtChangCar.Text = "BMW11" Then
LoadPic5(txtChangCar.Text, pic11)
Else
If txtChangCar.Text = "BMW12" Then
LoadPic5(txtChangCar.Text, pic12)
Else
If txtChangCar.Text = "BMW13" Then
LoadPic5(txtChangCar.Text, pic13)
Else
If txtChangCar.Text = "BMW14" Then
LoadPic5(txtChangCar.Text, pic14)
Else
If txtChangCar.Text = "BMW15" Then
LoadPic5(txtChangCar.Text, pic15)
Else
If txtChangCar.Text = "BMW16" Then
LoadPic5(txtChangCar.Text, pic16)
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
با سپاس