PDA

View Full Version : ایجاد متن متحرک



hamidcha
چهارشنبه 08 اسفند 1386, 20:13 عصر
باسلام

به چه صورت می توان یک من متحرک در label ایجاد کنم

yavari
چهارشنبه 08 اسفند 1386, 22:53 عصر
باسلام

به چه صورت می توان یک من متحرک در label ایجاد کنم

سلام
فرم لود

Timer1.Enabled = True
s = "Well Come To Project Sample"
i = 1


رویداد تایمر

Lbl.Caption = Lbl.Text+ Mid(s, i, 1)
i = i + 1
If i = 30 Then
Timer1.Enabled = False
End If

موفق باشید