Khác

Trả lời: Chớp tắt là hiệu ứng có được bằng cách làm cho một đối tượng hiện ra rồi biến mất (theo một chu kỳ cố định về thời gian) liên tục. Với suy nghĩ như vậy, bạn sẽ dễ dàng nhận thấy phải sử dụng thuộc tính Visible của đối tượng cần hiệu ứng chớp tắt và một đối tượng Timer. Trong VB6, bạn hãy tạo một project mới có kiểu Standard EXE. Trên form Form1 mặc định, vẽ một label có tên Label1, một timer có tên Timer1, một nút lệnh có tên Command1, rồi gõ vào đoạn mã 1. Bạn làm tương tự với TextBox cũng như với mọi đối tượng khác.

Đoạn mã 1

Private Sub Command1_Click() If Timer1.Enabled Then Timer1.Interval = 500 Timer1.Enabled = False Command1.Caption = "Start" Label1.Visible = True Else Timer1.Enabled = True Command1.Caption = "Stop" End If End Sub Private Sub Form_Load() Timer1.Enabled = False Command1.Caption = "Start" Label1.BackStyle = 0 ' Transparent End Sub Private Sub Timer1_Timer() Label1.Visible = Not Label1.Visible End Sub

Theo echip

  “Để biết mọi thứ về Web hãy xem"  www.thegioiweb.vn