CHho dòng chữ chạy trên thanh tiêu đề (VBA và VB6)
Bác nào biết cho em code với, em xin cảm ơn trước
CHho dòng chữ chạy trên thanh tiêu đề (VBA và VB6)
Bác nào biết cho em code với, em xin cảm ơn trước
Giải thuật này rất đơn giản bạn àh! không riêng gì chạy chữ trên thanh tiêu đề, mà bạn có thể chạy ở bất kỳ control nào có thể hiển thị được text.
Private Sub Form_Load()
Me.Caption = "Cho dòng chữ chạy trên thanh tiêu đề (VBA và VB6)
Bác nào biết cho em code với, em xin cảm ơn trước"
Timer1.Interval = 100
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Me.Caption = Right(Me.Caption, Len(Me.Caption) - 1) & Left(Me.Caption, 1)
End Sub
Chúc bạn thành công!
Bạn xem cái này xem có giúp gì được cho bạn kg nhé. Của người khác làm giờ mình post lên lại cho bạn thôi!
Các control trong 1 ứng dụng Visual Basic xem như là 1 đối tượng. Đối tượng thì có các thuộc tính (và hơn thế nữa...). Caption là 1 thuộc tính, nó chứa 1 nội dung là chuỗi. Nội dung của chuỗi này được hiển thị lên trên control. Trong trường hợp này, Caption của Form ... nên nó hiển thị lên trên thanh tiêu đề của Form.
cái này không được rùi khi mình chạy thử thì no thông báo lỗi Timer1.Interval = 100 bạn xem lại dùm mình nha )
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim x As String
Dim y As String
x = Me.Text.Substring(Me.Text.Length - Len(Me.Text), 1)
y = Me.Text.Substring(1, Me.Text.Length - 1)
Me.Text = y & x
SAU DO THEM DONG " Me.Timer1.Start()" TRONG BIEN CO CUA FROM LOAD LA DC
DOAN CODE NAY HOK BIK CO DUNG NHU BAN CAN KHONG NUA ^^!
End Sub
Thiết kế : 1 Timer với Name = Timer1 , Interval = 10
1 Form với Name = Form1 , Caption = "NOI DUNG CAN CHAY"
Code :
‘ > Trong Form copy het vao form voi dieu kien caption cua form khong co ky tu nao
Private Sub Form_Load()
Form1.Caption = Space(100) & "NOI DUNG CAN CHAY"
End Sub
Private Sub Timer1_Timer()
Form1.Caption = Right(Form1.Caption, Len(Form1.Caption) - 1)
If Form1.Caption = "" Then
Form1.Caption = Space(100) & "NOI DUNG CAN CHAY"
End If
End Sub
Đơn giản ! Là vậy không lỗi !
Được sửa bởi lengoctuth2010 lúc 20:06 ngày 12-10-2010
ai có bài mẫu về chạy chữ trên thanh tiêu đề cho e với_tks nhju
Bookmarks