کمک در مرد عنوان پروژه

[saman9999]

سلام دوستان من امروز يه پروژه ديدم که عنوانش متحرک بود چجوری اين؟

[vahidm]

سلام
میشه واضحتر سوالتون رو بپرسید ؟ عنوان کجاش متحرک بود ؟ فرم ها ؟؟
بیشتر توضیح بدید

[saman9999]

مثلاً عنوان پنجره ( form1) از چپ مياومد به سمت راست و دوباره همينجوری caption فرم متحرک بود

[MBG73]

ببین این در سطح اطلاعات منه . حتما راه بهتری هست . ولی خوب ما هم یه نظر میدیم دیگه !!


Private Sub Form_Load()
Label1 = Form1.Caption
Label1.Visible = False
Timer1.Interval = 1
Form1.Caption = "Move Test"
End Sub

Private Sub Timer1_Timer()
Form1.Caption = " " & Form1.Caption
Label1 = Form1.Caption
If Label1.Width > Form1.Width Then
Form1.Caption = "Move Test"
Label1 = Form1.Caption
End If
End Sub

[saman9999]

ممنون واقعاً خيلی کمک کرديد اما نميشه کری کرد که بخوره به گوشه ها و برگرده؟

[vbhamed]

سلام


Private Sub Timer1_Timer()

Static s$, x%, inc&, Title$

Show
Title = "This is a test caption"

If inc = 0 Then inc = 1
If x = 0 Then x = 1

s = String$(x, " ") & Title
x = x + inc
If TextWidth(s) > Width - 2000 Then
inc = -1
ElseIf x <= 0 Then
inc = 1
End If

Dim j%
For j = 1 To 10000: DoEvents: Next

Caption = s
DoEvents

End Sub