Tạo Label chớp tắt trong VB6

Đó hỏi: Xin e-CHÍP hướng dẫn cách viết mã VB6 để làm cho một Label hoặc TextBox chớp tắt, khi có lệnh Stop thì dừng lại. <xuanthu196025@>

Đây 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

Dùng Access để sắp thứ tự học sinh theo điểm

Đó hỏi: Tôi có table ghi điểm của học sinh, trong đó hàng là họ-tên học sinh, cột là điểm của từng môn học. Tôi muốn tạo một report cho biết 5 học sinh có số điểm cao nhất trong mỗi môn học. Mong e-CHÍP chỉ giúp. <vanbang_sg@>

Đây trả lời: Giả sử các field cần thiết (cho bài toán này) trong table BANGDIEM là: MMH (mã môn học), HO (họ tên lót), TEN (tên) và THI (điểm môn học). Bạn cần tạo một query chứa danh sách các môn học có trong bảng điểm (có tên qryMonHocCoDiem) và một query để sắp thứ tự điểm thi từ cao xuống thấp, nhóm theo từng môn học (có tên qrySapThuTuDiemCao) như các hình 1 và 2.
Bạn tạo sẵn một table có tên tbDiemCaoTop5 chỉ gồm các field: MMH, HO, TEN và THI như trong table BANGDIEM nói trên. Table này dùng để lưu danh sách 5 học sinh có điểm cao nhất đối với từng môn học. Bạn thiết kế một form, trên đó có một nút lệnh, rồi gõ đoạn mã 1 vào thủ tục xử lý tình huống Click của nút lệnh.
Lưu ý: Vì có sử dụng đối tượng Database và Recordset, bạn phải chọn mục References trên trình đơn Tools của bộ soạn thảo VBA để mở hộp thoại References, chọn mục Microsoft DAO 3.6 Object Library (hoặc phiên bản mới nhất có thể).

Hình 1

Hình 2

Đoạn mã 1

Private Sub Command8_Click()
     Dim db As Database, rsSort As Recordset, rsMH As Recordset
     Dim sDKien As String, sSQL As String
     Set db = CurrentDb
     ‘ Xóa nội dung cũ trong danh sách điểm cao tốp 5
     db.Execute (sSQL)
     Set rsSort = db.OpenRecordset("qrySapThuTuDiemCao")
     Set rsMH = db.OpenRecordset("qryMonHocCoDiem")
     rsMH.MoveFirst
     While Not rsMH.EOF
          With rsSort
               sDKien = "MMH = '" & rsMH!MMH & "'"
               .FindFirst sDKien
               If .NoMatch Then
                    GoTo MonHocKeTiep
               End If
               cMaMH = !MMH
               nCount = 0
               Do
                    nCount = nCount + 1
                    sSQL = "INSERT INTO tbDiemCaoTop5 (MMH, Ho, Ten, Thi) " & _
                           "VALUES ('" & !MMH & "', '" & rsSort!HO & "', '" & _
                           rsSort!TEN & "', " & IIf(IsNull(rsSort!THI), 0, rsSort!THI) &
 ");"
                    db.Execute (sSQL)
                    .MoveNext
               Loop Until (cMaMH <> !MMH) Or (nCount >= 5)
          End With
MonHocKeTiep:
          rsMH.MoveNext
     Wend
     rsMH.CLOSE
     rsSort.CLOSE
     Set db = Nothing
End Sub

CHƯƠNG CAN CHÍP

Khi nào nên sử dụng Ghost

Đây trả lời: Khi thực hiện thao tác Ghost, ổ đĩa cứng sẽ thực hiện theo thao tác đọc ghi toàn bộ ổ đĩa theo đúng cấu trúc ổ đĩa gốc được lưu trữ trong file Ghost. Những thao tác này không làm giảm tuổi thọ của ổ đĩa nhưng lại là thử thách khá nặng nề đối với ổ đĩa quá cũ – tuổi thọ còn quá ít - nên việc hỏng hóc sẽ xảy ra nhanh hơn. Không cần thiết phải Ghost hàng tháng mà chỉ cần Ghost khi nào Windows có triệu chứng hư hỏng mà thôi.

Cập nhật Windows Defender

Đó hỏi: Tôi hiện đang sử dụng Windows Home Edition, bản có license. Sau khi tôi cài đặt xong (đã active), tôi cài thêm Windows Defender, nhưng khi update cho WD thì không được (kể cả update tự động và update thủ công) nó báo lỗi: Error code: 80004002. Rất mong e-CHÍP nghiên cứu và hướng dẫn tôi xử lý lỗi như nêu trên. <datuphong@>

Đây trả lời: Bạn hãy làm như sau: bấm nút Start/Run, nhập services.msc, nhấn OK. Tìm và tắt (Disable) dịch vụ Automatic Update của Windows rồi tiến hành cập nhật Windows Defender.

KHAI TRÍ

[Đầu trang]