<< Chapter < Page Chapter >> Page >

Private Sub menuFileSave_Click()

Dim tenfile As String

CommonDialog1.ShowSave

tenfile = CommonDialog1.FileName

Open tenfile For Output As #1

Print #1, MDIForm1.ActiveForm.Text1.Text

Close #1

End Sub

Bước 10: Khi mục Open của menu được chọn, hộp thoại Open File được mở ra size 12{ drarrow } {} sự kiện mnuFileOpen_Click được xử lý như sau:

Private Sub mnuFileOpen_Click()

Dim tenfile As String, s As String

CommonDialog1.ShowOpen

tenfile = CommonDialog1.FileName

If UCase(Right(tenfile, 3))<>"TXT" Then Exit Sub

Call mnuFileNew_Click

Open tenfile For Input As #1

Do Until EOF(1)

Line Input #1, s

Me.ActiveForm.Text1.Text = Me.ActiveForm.Text1.Text&s&vbCrLf

Loop

Close #1

End Sub

Bước 11: Lưu dự án và chạy chương trình. Tạo mới, lưu, mở một số tài liệu. Nhận xét kết quả.

Bài tập 3-4

THAO TÁC VỚI ĐỐI TƯỢNG WORD

Mục đích: Windows có sẵn một số đối tượng khi ta cài đặt Windows hay khi cài một số phần mềm. Bài tập này giúp ta tìm hiểu cách thức truy xuất các đối tượng có sẵn này từ Visual Basic.

Tham chiếu đối tượng

Bước 1: Tạo thư mục Basic\Bt3-4. Khởi động một dự án mới trong thư mục này.

Bước 2: Trong bài tập này ta có tham chiếu đến đối tượng Word của Microsoft Word; do đó ta phải có thao tác tham chiếu đến đối tượng này trong màn hình soạn thảo VB bằng cách: Chọn Project\References trên menu. Trong cửa số References, thiết lập tham chiếu đến: Microsoft Word 9.0 Object Library và Microsoft Office 9.0 Library. Sau đó đóng cửa sổ References lại.

Bước 3: Ta có thể kiểm tra các đối tượng trên có được đưa vào hay chưa nhờ thao tác: Chọn View\Object Browser.

Xây dựng ứng dụng

Bước 4: Tạo giao diện chương trình có dạng sau:

123456

Hình III.3: Thao tác với đối tượng Word

Trong đó:

1: TextBox

Name: txtWord

Multiline: True

ScrollBar: 2-Vertical

2: CommandButton

Name: cmdLuu

Caption: Lưu

3: CommandButton

Name: cmdTruoc

Caption: Trước khi in

4: CommandButton

Name: cmdCTa

Caption: Kiểm lỗi.

5: CommandButton

Name: cmdThoat

Caption: Thoát

6: CommandButton

Name: cmdGiup

Caption: Trợ giúp

Bước 5: Để sử dụng được mô hình, ta phải khai báo một số biến đối tượng của Word. Trong phần [General]\ [Declarations], khai báo những biến sau:

Public ungdung As Word.Application

Public tailieu As Word.Document

Public trogiup As Office.Assistant

Bước 6: Khi chương trình thực hiện, điều ta muốn là một tài liệu mới của Word được tạo ra để ta có thể thao tác trên chúng một cách gián tiếp thông qua chương trình VB của mình. Tạo một tài liệu Word mới tương đương với việc tạo ra một thể hiện của đối tượng Document. Vì thế, chèn đoạn mã sau vào thủ tục Form_Load để tạo ra một tài liệu Word mới từ chương trình VB.

Set ungdung = CreateObject("Word.Application")

Set tailieu = ungdung.Documents.Add

Set trogiup = ungdung.Assistant

Bước 7: Nút Lưu có nhiệm vụ ghi tất cả những gì trên TextBox vào đối tượng Word mới tạo ra. Do đó, ta xử lý sự kiện cmdLuu_Click như sau:

' Ghi tai lieu moi

tailieu.Content.Text = txtWord.Text

MsgBox "Van ban duoc luu trong Word", vbOKOnly, "Word"

Bước 8: Nút Trước khi in có nhiệm vụ hiển thị tài liệu Word giống như khi chúng được in ra giấy; vì thế sự kiện cmdTruoc_Click được xử lý như sau:

Questions & Answers

what is variations in raman spectra for nanomaterials
Jyoti Reply
I only see partial conversation and what's the question here!
Crow Reply
what about nanotechnology for water purification
RAW Reply
please someone correct me if I'm wrong but I think one can use nanoparticles, specially silver nanoparticles for water treatment.
Damian
yes that's correct
Professor
I think
Professor
what is the stm
Brian Reply
is there industrial application of fullrenes. What is the method to prepare fullrene on large scale.?
Rafiq
industrial application...? mmm I think on the medical side as drug carrier, but you should go deeper on your research, I may be wrong
Damian
How we are making nano material?
LITNING Reply
what is a peer
LITNING Reply
What is meant by 'nano scale'?
LITNING Reply
What is STMs full form?
LITNING
scanning tunneling microscope
Sahil
how nano science is used for hydrophobicity
Santosh
Do u think that Graphene and Fullrene fiber can be used to make Air Plane body structure the lightest and strongest. Rafiq
Rafiq
what is differents between GO and RGO?
Mahi
what is simplest way to understand the applications of nano robots used to detect the cancer affected cell of human body.? How this robot is carried to required site of body cell.? what will be the carrier material and how can be detected that correct delivery of drug is done Rafiq
Rafiq
what is Nano technology ?
Bob Reply
write examples of Nano molecule?
Bob
The nanotechnology is as new science, to scale nanometric
brayan
nanotechnology is the study, desing, synthesis, manipulation and application of materials and functional systems through control of matter at nanoscale
Damian
Is there any normative that regulates the use of silver nanoparticles?
Damian Reply
what king of growth are you checking .?
Renato
What fields keep nano created devices from performing or assimulating ? Magnetic fields ? Are do they assimilate ?
Stoney Reply
why we need to study biomolecules, molecular biology in nanotechnology?
Adin Reply
?
Kyle
yes I'm doing my masters in nanotechnology, we are being studying all these domains as well..
Adin
why?
Adin
what school?
Kyle
biomolecules are e building blocks of every organics and inorganic materials.
Joe
anyone know any internet site where one can find nanotechnology papers?
Damian Reply
research.net
kanaga
sciencedirect big data base
Ernesto
Introduction about quantum dots in nanotechnology
Praveena Reply
what does nano mean?
Anassong Reply
nano basically means 10^(-9). nanometer is a unit to measure length.
Bharti
do you think it's worthwhile in the long term to study the effects and possibilities of nanotechnology on viral treatment?
Damian Reply
absolutely yes
Daniel
how did you get the value of 2000N.What calculations are needed to arrive at it
Smarajit Reply
Privacy Information Security Software Version 1.1a
Good
Got questions? Join the online conversation and get instant answers!
Jobilize.com Reply

Get the best Algebra and trigonometry course in your pocket!





Source:  OpenStax, Giáo trình visual basic. OpenStax CNX. Jul 29, 2009 Download for free at http://cnx.org/content/col10777/1.1
Google Play and the Google Play logo are trademarks of Google Inc.

Notification Switch

Would you like to follow the 'Giáo trình visual basic' conversation and receive update notifications?

Ask