hoangphuong2003
Banned
- Xu
- 0
Bài viết sau đây chúng tôi xin chia sẻ cùng bạn đọc các lập trình tìm văn bản trong VB 6.0
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.
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 ấ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.
Theo pcworld
Nguồn : Lập trình VB 6.0 tìm văn bản
__________________
Có thể bạn quan tâm:
Kiến thức về học lập trình mạng
Khóa học test
Tham gia các khóa học tại Aptech
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.
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 ấ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.
Theo pcworld
Nguồn : Lập trình VB 6.0 tìm văn bản
__________________
Có thể bạn quan tâm:
Kiến thức về học lập trình mạng
Khóa học test
Tham gia các khóa học tại Aptech
