Tạo Label nhấp nháy

Share by : hungtano - KHPT
Hỏi:
Tôi có 1 form. Tôi muốn khi người dùng mở form này thì thanh tiêu đề của form (form caption) nhấp nháy dòng chữ : dữ liệu đã bị khóa ! Tôi phải làm sao ?

Đáp:
Bạn dùng 2 sự kiện của form: Open và Timer

Private Sub Form_Open(Cancel As Integer)
         Me.Caption = "Dữ liệu đã bị khóa !"
         Me.TimerInterval = 600
End Sub

Private Sub Form_Timer()
    If Me.Caption = Space(1) Then
          Me.Caption = "Dữ liệu đã bị khóa !"
    Else
          Me.Caption = Space(1)
    End If
End Sub

Mời thảo luận thêm tại: http://thuthuataccess.com/forum/thread-231.html