Microsoft đã ngừng hỗ trợ ActiveX Controls, các controls cũ không hỗ trợ unicode, không có Task Pane. Tôi đã phát triển BSAC - Bluesofts ActiveX Controls để cho những người lập trình thiết kế phần mềm với giao diện chuyên nghiệp trong VBA.
Lập trình VBA tạo BS TreeView unicode và Task Pane
- Thread starter Nguyễn Duy Tuân
- Ngày gửi
vu_tuan_manh_linh
linhvtm84@gmail.com
Xin được hỏi bác Duy Tuân: sau khi tạo ra phần mềm sử dụng menu lệnh này, cài đặt trên máy tính không có A-Tools thì menu này còn hoạt động được không ạ?
Em hãy copy file BSAC.OCX trong thư mục hệ thống là
C:\Windows\SysWOW64
hoặc
C:\Windows\System32
Khi mang sang máy khác em phải copy file BSAC.OCX vào thư mục hệ thống của máy đó và Register nhé. Như vậy không cần cài A-Tools (bản chất A-Tools giúp mình cài BSAC mà thôi. Em có thể tạo bộ cài tự động bằng InnoSetup cho tiện dụng.
Lần chỉnh sửa cuối:
vu_tuan_manh_linh
linhvtm84@gmail.com
Thanks bác! Em đã hiểu!!
hpkhuong
######
Đã đăng ký thử OCX, khi show trong Toolbox (VBE) khi trỏ chuột qua lại nó hiện Unknown mà không hiện tên nha anh!
EM gửi hình hiện tường đó anh xem nhé!
hpkhuong
######
Đây nha anh. Chuột đang focus vào ngay Treeview -> hiện Unknown (Office 64 bit, Win 10 64 bit)
befaint
|||||||||||||
- Tham gia ngày
- 6 Tháng một 2011
- Bài viết
- 11,322
- Được thích
- 13,462
- Điểm
- 5,168
Anh thử dùng Steps Recoder của Windows để chụp cả trỏ chuột xem..
(Nhấn phín {win} rồi gõ psr rồi Enter).
Kiều Mạnh
Thành viên gạo cội
ĐOÁN BẬY CÁI COI
Hình như File *.OCX đó viết trên VB6 nên nó tèo trên Office x64 thì phải ...
Nếu nói sai Mạnh xin lỗi ... Nói lại
hpkhuong
######
ĐOÁN BẬY CÁI COI
Hình như File *.OCX đó viết trên VB6 nên nó tèo trên Office x64 thì phải ...
Nếu nói sai Mạnh xin lỗi ... Nói lại
BSAC.ocx lập trình trên Delphi cho hai nền tảng 32 và 64-bit. Để tôi test thêm control này trên Office 64 bit nữa nhé hpkhuong. Bạn thử trên máy Office 32-bit xem trước nhé.
Kiều Mạnh
Thành viên gạo cội
Mạnh mới thử trên Windows10x64 - Office2016x32 thấy ok đó nha
Còn File *.ocx không nhất thiết phải copy vào Folder hệ thống của Windows vẫn đăng ký ok ... thích để trên Ổ D hay E ok hết
Lần chỉnh sửa cuối:
hpkhuong
######
Anh thử code xem có view được trên office 32 bit không.
Mình thử test trên office 64 bit (vẫn chọn controls và vẽ vời được trên user form) nhưng khi F5 để run code-> Excel đóng luôn...
Và việc đăng ký thì chỉ đăng ký được vào thư mục System32, không đăng ký được trong thư mục 64 bit ( Đang xài office 64 bit)
HƯỚNG DẪN ĐĂNG KÝ ACTIVEX CONTROLS "BSAC.OCX" CHO WINDOWS
(Chỉ làm lần đầu tiên)
Có 3 tình huống copy vào thư mục Hệ thống của hệ điều hành
(*) Nếu Window 32 bit, Office 32-bit
Copy Office 32-bit\BSAC.ocx vào thư mục C:\Windows\System32\
(*) Nếu Window 64 bit, Office 32-bit
Copy Office 32-bit\BSAC.ocx vào thư mục C:\Windows\SysWOW64\
(*) Nếu Window 64 bit, Office 64-bit
Copy Office 64-bit\BSAC.ocx vào thư mục C:\Windows\System32\
Sau khi copy xong, hãy chạy chương trình "Command Prompt" quyền Administrator và đăng ký.
(Chỉ làm lần đầu tiên)
Có 3 tình huống copy vào thư mục Hệ thống của hệ điều hành
(*) Nếu Window 32 bit, Office 32-bit
Copy Office 32-bit\BSAC.ocx vào thư mục C:\Windows\System32\
(*) Nếu Window 64 bit, Office 32-bit
Copy Office 32-bit\BSAC.ocx vào thư mục C:\Windows\SysWOW64\
(*) Nếu Window 64 bit, Office 64-bit
Copy Office 64-bit\BSAC.ocx vào thư mục C:\Windows\System32\
Sau khi copy xong, hãy chạy chương trình "Command Prompt" quyền Administrator và đăng ký.
Kiều Mạnh
Thành viên gạo cội
Ý code theo hình phải không ... Thấy OK đó ha
Thử tools sau đăng ký xem sao ... File *.ocx để ổ nào tùy thích nha miễn sao trên HDD cài Win ( USB là thua)
Mạnh đang nghĩ nếu Ứng dụng tốt ta nghĩ ra 1 cách là đính kèm File *.ocx vào Excel xong mang đi máy nào là có luôn trong đó ... Nhưng khó là làm sao Code để xuất File *.ocx đó từ Excel ra Folder
Lần chỉnh sửa cuối:
hpkhuong
######
Đúng rồi anh. Run chạy bình thường ah anh? Mình chạy là Excel đóng luôn...
Sự kiện BSTaskPaneX1_OnVisible để báo người lập trình biết trạng thái ẩn/hiện.
Mã:
Private Sub BSTaskPaneX1_OnVisible(ByVal View As Boolean)
If Not View Then
MsgBox "Task Pane dang an (visible = False)."
Else
MsgBox "Task Pane dang hien thi (visible = True)."
End If
End SubKhi cần hiển thị lại thì chạy thủ tục:
Mã:
Sub ViewTaskPane()
UserForm3.BSTaskPaneX1.View = True
End Subbatman1
Thành viên gạo cội
- Tham gia ngày
- 8 Tháng chín 2014
- Bài viết
- 4,074
- Được thích
- 6,447
- Điểm
- 2,568
Gói ocx vào tập tin Excel? Thế thì nặng tập tin Excel.
Thì ghi nội dung ocx vào Excel rồi sau đó đọc ra thôi.
Tôi nghĩ ghi ocx ở dạng ảnh và ẩn ảnh đi. Sau đó đọc "ảnh" (ảnh nhái vì thực ra là nội dung ocx) và ghi ra đĩa.
Ai có cách hay khác không?
Tưởng cái này bán mà anh Tuân, hay là bản cho VB6?
Kiều Mạnh
Thành viên gạo cội
ý tưởng của em là vậy nhưng viết code ko biết bắt đầu từ đâu
Em có Tìm Anh Google hoài mà không thấy Code mẫu