Chủ đề: Ẩn toolbar tự tạo?
-
12-05-2008, 10:25 PM #1Silver member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ẩn toolbar tự tạo?
Mình có đoạn code VBA tạo 2 nút ToolBar là "NUT 1" và "NUT 2"
Function CreatToolBar()
Dim cmb As CommandBar
Dim cbc As Office.CommandBarButton
Dim picPicture As IPictureDisp
For Each cbar In CommandBars
If cbar.Name = "MyToolBar" Then
cbar.Delete
End If
Next
Set cmb = Application.CommandBars.Add("MyToolBar")
cmb.Visible = True
Set cbc = cmb.Controls.Add(msoControlButton)
cbc.Caption = "Nut 1"
cbc.Style = msoButtonCaption
Set cbc = cmb.Controls.Add(msoControlButton)
cbc.Caption = "Nut 2"
cbc.Style = msoButtonCaption
End Function
Private Sub Form_Load()
CreatToolBar
End Sub
Trên form có thêm 2 CommandButton: C1 và C2
mình muốn khi bấm nút C2 thì Toolbar "NUT 2" bị ẩn đi, và bấm nút C1 thì "NUT 2" hiện lại.
Các bạn giúp mình với.View more random threads:
- phần mềm quản lý nhân sự
- Thiết lập mối quan hệ dữ liệu kiểu gì đây nhỉ?
- TIP : Chạy ảnh động trên Form ! Thật hay Đùa ?
- Nhập dữ liệu record vào table thì khi xuất sang access fon't chữ bị nhảy khônng đọc được
- In danh sách bản ghi theo ngày???
- Xin giúp đỡ về việc kết hợp giữa hai bảng
- Hỏi cách viết 1 hàn function tính điểm TB
- [Hỏi] Lấy hàng được bán nhiều nhất mỗi quý
- Kiểm tra trùng lặp khóa chinh trong Access
- Import hoặc link data từ 1 host khác như thế nào?
-
12-05-2008, 10:47 PM #2Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Ẩn toolbar tự tạo?
Gửi bởi quochoi_05
Nếu bạn khai báo commandbar trong một function hay một sub thì nó chỉ được hiểu trong hàm hoặc thủ tục đó. Do vậy bạn nên định nghĩa chúng ở khu vực Declaration của Module hoặc Form Class.
Để ẩn hiện một control trong commandbar, bạn có thể sử dụng các lệnh sau:
Hiện:
cmb.Controls(0).Visible = True
Ẩn:
cmb.Controls(0).Visible = False
Nếu bạn tạo một toolbar trực tiếp từ Access thì bạn có thể dùng lệnh sau:
Hiện:
DoCmd.ShowToolbar "Toolbar name", acToolbarYes
Ẩn:
DoCmd.ShowToolbar "Toolbar name", acToolbarNo
-
12-07-2008, 05:43 PM #3Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 3
Ðề: Ẩn toolbar tự tạo?
Anh Phat có lệnh nào mà cho ẩn tất cả các toolbars buil_in của access khong?
(Trong mục Tool/ ******* thì mình bỏ chọn mục Allow buil in ...)
-
12-08-2008, 05:12 PM #4Silver member
- Ngày tham gia
- Apr 2016
- Bài viết
- 4
Ðề: Ẩn toolbar tự tạo?
Gửi bởi thuydhpy
Hiện tại chỉ biết dùng DoCmd.ShowToolbar cho từng em thôi. Có điều phải biết tên em đó.
Để nghiên cú lại xem sao.
-
12-09-2008, 01:52 AM #5Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 3
Ðề: Ẩn toolbar tự tạo?
Gửi bởi thuydhpy
Nếu muốn không cho toolbar của Access tồn tại (và không thể hỉển thị được) thì đầu chương trình bạn xóa nó đi:
For Each cbar In CommandBars
cbar.Delete
Next
Muốn biết tên của từng em đó thì :
For Each cbar In CommandBars
Msgbox (cbar.Name)
Next
-
12-09-2008, 06:33 PM #6Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Ẩn toolbar tự tạo?
Gửi bởi muontennguoi
Mình tạo toolbar có nhiều nút, khi vào 1 form nào đó thì mình sẽ cho vài nút ẩn đi không thực hiện được.
Tùy từng dòng máy mà người tập có thể sử dụng máy rung khi đứng, nằm, ngồi. Hầu hết thời kì, mọi người thực hành các bài tập trên máy trong khi nó rung để tăng số lượng calo mà họ đốt cháy. Có thể...
Phương án sử dụng máy rung để giảm cân như thế nào tốt nhất?