حرکت عنوان(Caption)فرم برنامه با کدنویسی

[بهروز عباسی]

درود به همه
راه اول برای این کار اینه:فقط یک تابع و یک تایمر
Dim lngA As Long
Function LoadChar(ByVal lngVra As Long, STR_Char As String) As String
LoadChar = Mid$(STR_Char, lngVra + 1, 1)
End Function
Private Sub Timer1_Timer()
Me.Caption = Me.Caption + LoadChar(lngA, "www.programming-co.com..............!")
lngA = lngA + 1
If lngA = 50 Then
lngA = 0
Me.Caption = ""
End If
End Sub
راه دوم حرکت به سمت چپ و راست :
Dim x As Integer
Dim z As Boolean
'************************************************* ******************************************
Private Sub Form_Load()
Me.Caption = "www.programming-co.com"
x = 0
z = True
End Sub
'************************************************* *******************************************
Private Sub Timer1_Timer()
If z = True Then
x = x + 1
If x < 45 Then
Me.Caption = Space(1) + Me.Caption
Else
z = False
End If
Else
x = x - 1
If x > 2 Then Me.Caption = Mid(Me.Caption, 2, Len(Me.Caption))
If x < 2 Then z = True: Me.Caption = Space(1) = Me.Caption: Me.Caption = "www.programming-co.com"
End If
End Sub
'************************************************* ********************************************

[night_secret]

دوست من این کجا کاربرد داره؟

[محسن واژدی]

سلام
میتوانید از آن بمنظور بیشتر جلوه دادن محیط کار استفاده کنید

موفق باشید

[setroyd]

مهم این نیست که چه کار بردی داره مهم اینه که با نهوه ی کد نویسی اشنا میشید این مهم ترین مطلب هست .