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

Hiển thị theo tùy chọn

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Hiển thị theo tùy chọn
• Hiển thị theo tùy chọn

• Hiển thị theo tùy chọn

  feeling > 27-04-17, 11:06 AM

  Em đang tạo 1 bảng điều khiển chính. Em muốn tạo tùy chọn như sau:
  1. Khi form được load thì nó sẽ hiển thiện: tab_P1 (nút Hệ thống (cmdHeThong) được chọn).
  2. Tương tự với với các nút lệnh cmd... khác và nó sẽ hiển thị tương tướng.
  Lưu ý: Trong các tab_..., nếu tab nào hiển thị thì các tạo còn lại ko hiển thị nữa.
  Link: http://www.mediafire.com/file/u3vlkq2b0g...HoiTab.rar
  Cám ơn mọi người nhiều!

• RE: Hiển thị theo tùy chọn

  tranthanhan1962 > 27-04-17, 11:44 AM

  Mã:

  Private Sub Form_Load()
   TabMenu.Visible = False
   TabMenu.Value = 0
End Sub

Private Sub cbHeThong_Click()
   TabMenu.Visible = True
   TabMenu.Value = 0
End Sub


Private Sub cmdKhaiBao_Click()
   TabMenu.Visible = True
   TabMenu.Value = 1
End Sub

Private Sub cmdNhapLieu_Click()
   TabMenu.Visible = True
   TabMenu.Value = 2
End Sub

Private Sub cmdBaoCao_Click()
   TabMenu.Visible = True
   TabMenu.Value = 3
End Sub

Private Sub cmdTroGiup_Click()
   TabMenu.Visible = True
   TabMenu.Value = 4
End Sub

• RE: Hiển thị theo tùy chọn

  ongke0711 > 27-04-17, 12:09 PM

  Bác tranthanhan1962 đã trả lời rồi nhưng tôi cũng có đoạn code này cùng đóng góp.
  - Tạo 1 Sub DisplayPage() rồi gọi nó trong từng nút lệnh
  
  

  Mã PHP:

  Sub PageDisplay(pageNo As Byte, TabName As TabControl)
   Dim pageCount As Byte
   Dim i As Integer

   TabName.Pages(pageNo).Visible = True
   TabName.Pages(pageNo).SetFocus

   pageCount = TabName.Pages.Count
   For i = pageNo + 1 To pageCount - 1
       TabName.Pages(i).Visible = False
   Next i
   If pageNo > 0 Then
       For i = pageNo - 1 To 0 Step -1
           TabName.Pages(i).Visible = False
       Next i
   End If
End Sub 


  
  - Gọi trong từng nút lệnh:
  
  

  Mã PHP:

  Private Sub cbHeThong_Click()
   Call PageDisplay(0, Me.TabMenu)
End Sub

Private Sub cmdBaoCao_Click()
   Call PageDisplay(3, Me.TabMenu)
End Sub

Private Sub cmdKhaiBao_Click()
   Call PageDisplay(1, Me.TabMenu)
End Sub

Private Sub cmdNhapLieu_Click()
   Call PageDisplay(2, Me.TabMenu)
End Sub

Private Sub cmdTroGiup_Click()
   Call PageDisplay(4, Me.TabMenu)
End Sub

Private Sub Form_Load()
   Call PageDisplay(0, Me.TabMenu)
End Sub 


• RE: Hiển thị theo tùy chọn

  feeling > 27-04-17, 12:12 PM

  Em muốn khi click chọn nút lệnh nào thì nó chỉ hiển thị page đó tương ứng và các page còn lại sẽ ẩn ah!
  Như hình dưới ạ (2 ví dụ thay đổi khi chọn)
  (Hình 1)
  
  (Hình 2)
  

• RE: Hiển thị theo tùy chọn

  tranthanhan1962 > 27-04-17, 01:14 PM

  Bạn xem Index của các page trong properties của tab. Thằng nào muốn hiện ra thì Visible = True, còn ẩn thì Visible = False.
  Ví dụ:
  

  Mã:

  Private Sub cbHeThong_Click()
    TabMenu.Pages(0).Visible = True
    TabMenu.Pages(1).Visible = False
    TabMenu.Pages(2).Visible = False
    TabMenu.Pages(3).Visible = False
    TabMenu.Pages(4).Visible = False
End Sub

  Tương tự xử lý các nút lệnh tương ứng.
  Thứ tự của Index các page là 0,1,2,3...
  Cũng có thể dùng tên page để xử lý (Mỗi page của tab tương đương một control trên form)
  

  Mã:

  Private Sub cbHeThong_Click()
   P1.Visible = True
   P2.Visible = False
   P3.Visible = False
   P4.Visible = False
   P5.Visible = False
End Sub
• Bài trước Bài tiếp