mohammad-bahrami
سه شنبه 30 آبان 1391, 18:16 عصر
خواهش می کنم کمک کنید نیاز ضروری.
یه برنامه دارم که کارش اسکرول متن است که قبلا به زبان وبی نوشته ام حالا با سی شارپ کار می کنم می خوام معادل این برنامه در سی شارپ بنویسم ولی با توابع left , right تو سی شارپ نیست
Dim str As String
Private Sub Command1_Click()
str = " 11111111111111111111111111 222222222222222222222222222 3333333333333333333333 444444444444444444444444 5"
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Caption = ScrollText(Label1.Caption)
End Sub
Private Function ScrollText(MyText As String) As String
MyText = (Right$(MyText, Len(MyText) - 1)) + Left$(MyText, 1)
ScrollText = MyText
End Function
سورس برنامه به زبان وی بی هم ضمیمه شده
یه برنامه دارم که کارش اسکرول متن است که قبلا به زبان وبی نوشته ام حالا با سی شارپ کار می کنم می خوام معادل این برنامه در سی شارپ بنویسم ولی با توابع left , right تو سی شارپ نیست
Dim str As String
Private Sub Command1_Click()
str = " 11111111111111111111111111 222222222222222222222222222 3333333333333333333333 444444444444444444444444 5"
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Caption = ScrollText(Label1.Caption)
End Sub
Private Function ScrollText(MyText As String) As String
MyText = (Right$(MyText, Len(MyText) - 1)) + Left$(MyText, 1)
ScrollText = MyText
End Function
سورس برنامه به زبان وی بی هم ضمیمه شده