• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Phủ định 1 action trong chính event của control

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • [Hỏi] Phủ định 1 action trong chính event của control
• Phủ định 1 action trong chính event của control

• Phủ định 1 action trong chính event của control

  mrsiro > 29-11-19, 11:25 AM

  Mình có 1 label có màu đen, viết code khi click vào label đó thì đổi thành màu vàng, bây giờ mình muốn khi tiếp tục click vào label đó thì đổi thành màu đen, nếu click lần nữa thì lại màu vàng, cứ thế.
  
  Để làm việc này có nhiều cách: Khai báo 1 biến chung để ghi lại trạng thái click của label. Hoặc có thể viết code lấy ra giá trị của màu label đó.
  
  Mình muốn hỏi có cách nào khác không, trước mình có đọc đâu đó trên mạng đoạn code phủ định rất hay mà giờ ko nhớ.
  
  Ở trên là ví dụ label thôi, thực tế thì nếu có đoạn code phủ định thì ứng dụng rất tiện: Bấm phát mở form, bấm tiếp đóng form. Bấm mở toàn bộ group, bấm tiếp đóng toàn bộ group......

• RE: Phủ định 1 action trong chính event của control

  ongke0711 > 29-11-19, 03:54 PM

  Vậy code hiện tại của bạn như thế nào?
  
  
  

  Mã PHP:

  Private Sub Label0_Click()
    Static blnRet As Boolean
    blnRet = Not blnRet
    Me.Label0.BackColor = GetColor(blnRet)
End Sub

Function GetColor(blnOn As Boolean) As Long
    If blnOn Then
        GetColor = vbRed
    Else
        GetColor = vbYellow
    End If
End Function 


• RE: Phủ định 1 action trong chính event của control

  dotrung > 15-04-20, 10:18 PM

  Chủ đề này mình thấy nó phù hợp với dạng form xuất hàng, tiện ích cho người dùng nhập liệu số lượng, ví dụ: nhập số lượng theo 4 cách (bình thường, theo bó, chẵn lên, chẵn xuống) ta chỉ cần click label là thay đổi, anh OngKe hướng dẫn cho em với 4 cách nhập được không?

• RE: Phủ định 1 action trong chính event của control

  tranthanhan1962 > 15-04-20, 11:20 PM

  (15-04-20, 10:18 PM)dotrung Đã viết: Chủ đề này mình thấy nó phù hợp với dạng form xuất hàng, tiện ích cho người dùng nhập liệu số lượng, ví dụ: nhập số lượng theo 4 cách (bình thường, theo bó, chẵn lên, chẵn xuống) ta chỉ cần click label là thay đổi, anh OngKe hướng dẫn cho em với 4 cách nhập được không?

  Bao nhiêu cách cũng được. Chỉ cần tạo điều kiện thôi.
  Ví dụ: trên form xuất hàng của bạn có label xuất xuathang_Label, caption "Xuất hàng bình thường". Do trong mã VBA không thể sử dụng được tiếng Việt, nên bạn phải tạo thêm 4 label để gõ bốn đều kiện bằng tiếng Việt. Label1 có caption" "Xuất hàng bình thường",  Label2 có caption" "Xuất hàng theo bó",  Label1 có caption" "Xuất hàng chẳn lên",  Label1 có caption" "Xuất hàng chẳn xuống", các label này có visible = false
  Đưa code vào event
  Private Sub xuathang_Label_Click()
   Select case xuathang_Label.Caption
        Case is Label1.Caption
              xuathang_Label.Caption = Label2.Caption
        Case is Label2.Caption
              xuathang_Label.Caption = Label3.Caption
        Case is Label3.Caption
              xuathang_Label.Caption = Label4.Caption
        Case is Label4.Caption
              xuathang_Label.Caption = Label1.Caption
  End Sub
  Tuỳ theo case bạn đưa thêm các lệnh để xử lý việc xuất hàng của từng trường hợp. Khi click vào xuathang_Label nó sẽ chạy vòng vòng theo từng trường hợp.
• Bài trước Bài tiếp