Babak.Hassanpour
دوشنبه 14 اردیبهشت 1388, 21:12 عصر
راه درست اینه
Function matchLanguage(ByVal cityName As String) As String
MsgBox Switch(cityName = "London", "English", cityName = "Rome", "Italian", cityName = "Paris", "French")
End Function
Private Sub Command1_Click()
Call matchLanguage("London")
End Sub
راستی امروز سایت چش شده.پاک قاطی پاطیه.پست من چرا اومده اول؟!!!:گیج::متعجب:
Function matchLanguage(ByVal cityName As String) As String
MsgBox Switch(cityName = "London", "English", cityName = "Rome", "Italian", cityName = "Paris", "French")
End Function
Private Sub Command1_Click()
Call matchLanguage("London")
End Sub
راستی امروز سایت چش شده.پاک قاطی پاطیه.پست من چرا اومده اول؟!!!:گیج::متعجب: