Trang chủ
Bài viết mới
Diễn đàn
Bài mới trên hồ sơ
Hoạt động mới nhất
VIDEO
Mùa Tết
Văn Học Trẻ
Văn Học News
Media
New media
New comments
Search media
Đại Học
Đại cương
Chuyên ngành
Triết học
Kinh tế
KHXH & NV
Công nghệ thông tin
Khoa học kĩ thuật
Luận văn, tiểu luận
Phổ Thông
Lớp 12
Ngữ văn 12
Lớp 11
Ngữ văn 11
Lớp 10
Ngữ văn 10
LỚP 9
Ngữ văn 9
Lớp 8
Ngữ văn 8
Lớp 7
Ngữ văn 7
Lớp 6
Ngữ văn 6
Tiểu học
Thành viên
Thành viên trực tuyến
Bài mới trên hồ sơ
Tìm trong hồ sơ cá nhân
Credits
Transactions
Xu: 0
Đăng nhập
Đăng ký
Có gì mới?
Tìm kiếm
Tìm kiếm
Chỉ tìm trong tiêu đề
Bởi:
Hoạt động mới nhất
Đăng ký
Menu
Đăng nhập
Đăng ký
Install the app
Cài đặt
Chào mừng Bạn tham gia Diễn Đàn VNKienThuc.com -
Định hướng Forum
Kiến Thức
- HÃY TẠO CHỦ ĐỀ KIẾN THỨC HỮU ÍCH VÀ CÙNG NHAU THẢO LUẬN Kết nối:
VNK X
-
VNK groups
| Nhà Tài Trợ:
BhnongFood X
-
Bhnong groups
-
Đặt mua Bánh Bhnong
CÔNG NGHỆ
Công Nghệ Thông Tin
Thủ Thuật Tin học
Lập trình VB 6.0 tìm văn bản
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Trả lời chủ đề
Nội dung
<blockquote data-quote="hoangphuong2003" data-source="post: 76434" data-attributes="member: 1882"><p><strong>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</strong></p><p><strong></strong></p><p style="text-align: center"><img src="https://thanglong-aptech.com/wp-content/uploads/2011/01/afhgkx.jpg" alt="" class="fr-fic fr-dii fr-draggable " data-size="" style="" /></p><p></p><p>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.</p><p>2. Thiết lập thuộc tính (Name) cho textbox là txtTenTL, thuộc tính (Name) cho button là btnDisp.</p><p>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.</p><p>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:</p><p>Option Explicit</p><p>'khai báo hằng miêu tả đường dẫn thư mục chứa các tài liệu</p><p>Const DOCDIR = "c:MyDocument"</p><p>'thủ tục xử lý click chuột trên button</p><p>Private Sub btnDisp_Click()</p><p>'khai báo các biến cần dùng</p><p>Dim oWordApp As Word.Application</p><p>Dim oMydoc As Word.Document</p><p>Dim pname As String</p><p>'tạo ứng dụng Word</p><p>Set oWordApp = New Word.Application</p><p>'xây dựng đường dẫn file tài liệu cần hiển thị</p><p>pname = DOCDIR & txtTenTL.Text & ".doc"</p><p>'mở file tài liệu</p><p>Set oMydoc = oWordApp.Documents.Open(pname)</p><p>'hiển thị cửa sổ Word</p><p>oWordApp.Visible = True</p><p>End Sub</p><p>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.</p><p></p><p>Theo pcworld</p><p>Nguồn : <em>Lập trình VB 6.0 tìm văn bản</em></p><p>__________________</p><p>Có thể bạn quan tâm:</p><p>Kiến thức về <em>học lập trình mạng</em></p><p>Khóa <em>học test</em></p><p>Tham gia các khóa học tại <em>Aptech</em></p></blockquote><p></p>
[QUOTE="hoangphuong2003, post: 76434, member: 1882"] [B]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 [/B] [CENTER][IMG]https://thanglong-aptech.com/wp-content/uploads/2011/01/afhgkx.jpg[/IMG][/CENTER] 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 : [I]Lập trình VB 6.0 tìm văn bản[/I] __________________ Có thể bạn quan tâm: Kiến thức về [I]học lập trình mạng[/I] Khóa [I]học test[/I] Tham gia các khóa học tại [I]Aptech[/I] [/QUOTE]
Tên
Mã xác nhận
Gửi trả lời
CÔNG NGHỆ
Công Nghệ Thông Tin
Thủ Thuật Tin học
Lập trình VB 6.0 tìm văn bản
Top
