• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

OLE trong VB6

Các bài viết hướng dẫn, giúp các bạn hiểu và tiếp cận với Visual Basic nhanh hơn
Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4763
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 518 time

OLE trong VB6

Gửi bàigửi bởi truongphu » T.Ba 19/05/2009 8:13 pm

Tên bài viết: OLE trong VB6
Tác giả: truongphu
Cấp độ bài viết: sơ khai
Tóm tắt: Do Forum chúng ta chưa có bài viết nầy nên tôi tóm tắt nhằm mục đích giới thiệu là chính


Bài viết sơ khai: OLE trong VB6

Giới thiệu:
Object Linking and Embedding (OLE) = Đối tượng liên kết và nhúng
Trong Visual basic, đây là kỹ thuật dựa trên ngôn ngữ scripting, cho phép thao tác với các đối tượng khác (linking) và thậm chí chuyển tải chúng (embedding)

Trong một Project standard, phụ trách OLE Automation là file stdole2.tlb:
- chúng thi hành các câu lệnh liên kết với các ActiveX, ví dụ chèn MS Access 11.0 Object Library (MSACC.OLB)
- thực hiện chuyển tải đối tượng, vẽ lên Form OLE1 và insert object ví dụ MS Word Document, sẽ được nhúng (embedded) vào OLE1 nầy.

Sử dụng:
1- Kiểu Giao diện:
Vẽ lên Form OLE1, trên bảng Insert Object, chọn Create New hay Create from file...
Ví dụ, nếu chọn Create from file chẳng hạn là file Word: Nôi dung file Word sẽ hiện lên trong OLE1 (nhúng)
Khi chạy Project, nếu ta click double vào OLE1, sẽ gọi file Word ra (liên kết)

2- Dùng code:
Để sử dụng các đối tượng khác (ví dụ access, word...) thông qua OLE, bạn phải chèn Add Reference các ActiveX liên quan. Code scripting trong trường hợp nầy được gọi là Visual Basic for Application (VBA)
Code minh họa:

Mã: Chọn hết

  1. Dim excelApp as Object
  2. Set excelApp = CreateObject("Excel.Application")
  3. excelApp.Workbooks.Add
  4. excelApp.Range("A1:C6").Select
  5. excelApp.ActiveCell.Formula = "Hello World!"
  6. excelApp.Visible = True


Các bạn có thể tìm gặp trong forum chúng ta rất nhiều code VBA nầy về Access, Excel, Word...


o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
lipton150786
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 345
Ngày tham gia: T.Năm 18/11/2010 10:00 pm
Has thanked: 5 time
Been thanked: 29 time

Re: OLE trong VB6

Gửi bàigửi bởi lipton150786 » T.Hai 11/07/2011 10:51 am

cho hỏi trong Vb6 code như sau:

Mã: Chọn hết

       Open ls_FileName For Binary As #li_FileNum
       Me.OLE1(1).ReadFromFile li_FileNum

đoạn code này mục đích có phải đọc file binary không?
nếu chuyển sang VB.NET 2010 thì mình dùng cái gì để thay thế?


Quay về “[VB] Bài viết hướng dẫn”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.0 khách