Hiển thị kết quả từ 1 đến 9 / 9
  1. #1
    Tham gia
    25-09-2006
    Bài viết
    533
    Like
    0
    Thanked 1 Time in 1 Post

    CHữ chạy trên thanh tiêu đề?

    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
    Quote Quote

  2. #2
    Tham gia
    11-06-2003
    Location
    Tp Hồ Chí Minh
    Bài viết
    46
    Like
    0
    Thanked 0 Times in 0 Posts
    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!

  3. #3
    Tham gia
    13-08-2007
    Bài viết
    219
    Like
    0
    Thanked 0 Times in 0 Posts
    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!
    Attached Files

  4. #4
    Tham gia
    21-10-2009
    Bài viết
    1
    Like
    0
    Thanked 0 Times in 0 Posts
    Quote Được gửi bởi DoanCongDanh View Post
    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!
    trước là thaks bạn nhìu !!! sauu cho mình hỏi ngố tý :caption là gì vay ?

  5. #5
    Tham gia
    01-01-2008
    Location
    Thiên đường hạnh phúc
    Bài viết
    1,299
    Like
    9
    Thanked 127 Times in 67 Posts
    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.

  6. #6
    Tham gia
    08-05-2009
    Bài viết
    1
    Like
    0
    Thanked 0 Times in 0 Posts
    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 )

  7. #7
    Tham gia
    12-07-2010
    Location
    Sóc Trăng
    Bài viết
    9
    Like
    0
    Thanked 0 Times in 0 Posts
    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

  8. #8
    Tham gia
    09-10-2010
    Location
    Internet !
    Bài viết
    50
    Like
    0
    Thanked 2 Times in 2 Posts
    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

  9. #9
    Tham gia
    07-11-2012
    Bài viết
    1
    Like
    0
    Thanked 0 Times in 0 Posts
    ai có bài mẫu về chạy chữ trên thanh tiêu đề cho e với_tks nhju

Bookmarks

Quy định

  • Bạn không thể tạo chủ đề mới
  • Bạn không thể trả lời bài viết
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình
  •