Audition Viêt Nam Forum

Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

Thế Giới Audition


    Code Tạo Chữ Chạy Từ Trái Sang Phải Bằng Vb6

    Southern
    Southern
    Southern
    Admin
    Admin


    Tổng số bài gửi : 61
    Join date : 22/03/2011
    Age : 29
    Đến từ : Châu Đốc - An Giang
    • Post n°1

    Code Tạo Chữ Chạy Từ Trái Sang Phải Bằng Vb6 Empty Code Tạo Chữ Chạy Từ Trái Sang Phải Bằng Vb6

    Bài gửi by Southern Sat Mar 26, 2011 4:46 am

    Đặt 1 dữ kiện Timer1, 1 dữ kiện label(lbl1) vào Form



    Mã:
    Code:
    [/color][color=blue]Private [/color][color=blue]Sub Form_Load()
    Timer1.Interval = 100
    Timer1.Enabled = [/color][color=blue]True
    [/color][color=blue]End [/color][color=blue]Sub[/color][color=blue]


    Mã:
    Code:
    [/color][color=blue]Private [/color][color=blue]Sub Timer1_Timer[/color][color=blue]([/color][color=blue])
    lbl1.[/color][color=blue]Caption [/color][color=blue]= [/color][color=blue]Right[/color][color=blue]([/color][color=blue]Me.[/color][color=blue]Caption, [/color][color=blue]Len[/color][color=blue]([/color][color=blue]Me.[/color][color=blue]Caption[/color][color=blue]) [/color][color=blue]- 1[/color][color=blue]) [/color][color=blue]& [/color][color=blue]Left[/color][color=blue]([/color][color=blue]Me.[/color][color=blue]Caption, 1[/color][color=blue])
    [/color][color=blue]End [/color][color=blue]Sub[/color][color=blue]

    Còn việc chữ màu đỏ thì bạn tự xử lý trong Properties hoặc



    Mã:
    Code:
    [/color][color=blue]lbl1.forecolor = mã màu[/color][color=blue]

    • Về Đầu Trang
      Hôm nay: Thu Sep 19, 2024 10:41 am