Xin hướng dẫn lập chương trình VB6.0 để tìm văn bản. 
 

" />
  • Thứ Hai, 19/04/2010 09:09 (GMT+7)

    Lập chương trình VB6.0 để tìm văn bản

    Câu hỏi :

    Xin hướng dẫn lập chương trình VB6.0 để tìm văn bản. 
     



    Trả lời :

     Tùy thuộc vào mức độ tìm kiếm văn bản mà thuật giải giải quyết sẽ khác nhau. Ở mức độ đơn giản: giả sử tất cả các văn bản đều có định dạng *.doc của Word, mỗi văn bản được lưu lên file Word riêng biệt với tên nhận dạng dễ nhớ và dễ truy xuất sau này (thí dụ tên là mã số tài liệu theo qui định của bạn), các file tài liệu đều được đặt chung trong 1 thư mục (thí dụ c:\MyDocument) thì qui trình điển hình để xây dựng ứng dụng tìm và hiển thị văn bản bằng VB 6.0 như sau:
     1. Chạy VB 6.0, tạo Project loại "Standard EXE". Khi Form trống hiển thị, thiết kế form gồm 3 đối tượng cần dùng: 1 label, 1 textbox nhập tên tài liệu và 1 button hiển thị nội dung như hình.
     2. Thiết lập thuộc tính (Name) cho textbox là txtTenTL, thuộc tính (Name) cho button là btnDisp.
     3. Chọn menu Project.Reference để hiển thị cửa sổ "Reference", duyệt tìm trong danh sách và chọn mục "Microsoft Word x.0 Object Library" rồi chọn button Ok để "add" các đối tượng "Word Automation" vào Project ứng dụng.
     4. Nhấn đúp chuột vào button để tạo thủ tục xử lý Click chuột trên button và viết đoạn code VB 6.0 sau đây:
     
     Option Explicit
     'khai báo hằng miêu tả đường dẫn thư mục chứa các tài liệu
     Const DOCDIR = "c:\MyDocument\"
     'thủ tục xử lý click chuột trên button
     Private Sub btnDisp_Click()
     'khai báo các biến cần dùng
     Dim oWordApp As Word.Application
     Dim oMydoc As Word.Document
     Dim pname As String
     'tạo ứng dụng Word
     Set oWordApp = New Word.Application
     'xây dựng đường dẫn file tài liệu cần hiển thị
     pname = DOCDIR & txtTenTL.Text & ".doc"
     'mở file tài liệu
     Set oMydoc = oWordApp.Documents.Open(pname)
     'hiển thị cửa sổ Word
     oWordApp.Visible = True
     End Sub
     
     5. Chọn menu Run.Start để chạy ứng dụng, nhập thử tên 1 tài liệu rồi nhấn button "Hien thi" và bạn sẽ thấy cửa sổ Word hiển thị tài liệu Word cần xem/xử lý. Bạn làm việc với cửa sổ Word với mọi khả năng của Word đến khi tạo/in/lưu được tài liệu thì bạn có thể đóng cửa sổ Word lại và tiếp tục ứng dụng của bạn. 
     

    Chuyên mục: Lập trình