Thanks bác! Em đã hiểu!!
Anh thử dùng Steps Recoder của Windows để chụp cả trỏ chuột xem..
ĐOÁN BẬY CÁI COI
Đ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
Mạnh mới thử trên Windows10x64 - Office2016x32 thấy ok đó nha
Ý code theo hình phải không ... Thấy OK đó ha
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 SubSub ViewTaskPane()
UserForm3.BSTaskPaneX1.View = True
End SubGó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ưởng của em là vậy nhưng viết code ko biết bắt đầu từ đâu
Nhưng trước tiên bạn phải chọn phương pháp chứ. Bạn định "gói" vào Excel như thế nào?
Em đính kèm File *.OCX vào Excel vậy có cách nào mình viết code xuất File đó ra Folder được ko Anh
Thế này thì tôi cũng chưa biết. Vì thế tôi tự tạo cho mình cách khác: Đặt trên sheet 1 Image (developer -> Insert -> ActiveX Controls -> Image) -> dùng code để chèn tập tin bất kỳ (text, jpg, exe, dll, ocx, xml ...) vào Image. Khi cần thì bung tập tin từ Image ghi vào đĩa cứng rồi sử dụng. Sau khi sử dụng thì xóa tập tin trên đĩa (hoặc không xóa)
vậy mình xuất file đó ra bằng code hay sao Anh ... Anh chỉ cho em học với
Trong tập tin ví dụ nếu nhấn "Play video clip" thì sẽ xem một clip hay.
Hình như còn thiếu file nào đó anh.
Nhầm tập tin. Đã đính kèm lại
Hay đó Anh để Em nghiên cứu kỹ có khó khăn chỗ nào em hỏi mong anh chỉ thêm
Sub AddFileToSheet()
Dim MyPicture, FilePath As String
Dim SaveFile
FilePath = ThisWorkbook.Path & "\BSAC.ocx"
SaveFile = ("D:\BSAC.ocx")
MyPicture = "PictureName"
Call FileToBitmapFile(FilePath, SaveFile, MyPicture) ''Chay Tot
''Call FileToBitmapFile(FilePath, FilePath, MyPicture) ''lam treo File Excel ???
End SubNói nôm na thì là: Do chỉ có thể nhập ảnh vào Image nên ta soạn một tập tin BMP với nội dung tập tin nguồn (DLL, OCX, TXT, EXE ...) với tư cách là những bai mầu của bitmap 24bit (với bitmap 24bit thì mỗi pixel được đại diện bởi 3 bai R, G, B - 3 bai * 8 bit = 24bit). Tôi dùng 24bit vì dạng này đơn giản nhất. Tất nhiên mỗi bitmap BMP ngoài các bai mầu còn có header - các cấu trúc xác định bitmap: width, height, số bit, độ lớn của tập tin v...v. Sau header thì đến chuỗi bai dài dằng dặc xác định mầu của mỗi pixel. Nếu không có header thì vd. không biết các bai kia có ý nghĩa thế nào. Vì nếu bitmap trắng-đen thì chỉ cần 1bit (0 = đen, 1 = trắng) để ghi mầu của pixel nên trong 1 bai ghi được mầu của 8 pixel. Nếu là 24bit thì phải 3 bai mới ghi được mầu của 1 pixel. Nếu là 2 bit, 4bit, 8 bit thì lại còn phức tạp nữa. Không có header thì cũng không biết ảnh có width, height như thế nào. Code chẳng qua soạn cái header kia còn mảng bai mầu thì ta lấy chính nội dung của tập tin nguồn.
Call FileToBitmapFile(FilePath, FilePath, MyPicture)Mình đã kiểm tra lại phiên bản BSAC v1.1.3.1 chạy tốt trong môi trường Office 64-bit nhé.
