<<
บทความก่อนหน้า | บทความถัดไป
ในบทความนี้
เป็นการสร้างโปรแกรม สำหรับ การบันทึกไฟล์ข้อความ
และอ่านไฟล์ข้อความ ( Text File ) แบบง่าย ๆ ด้วย VB.NET
2005
ขั้นตอนที่
1 การสร้าง
โปรเจ็กต์ใหม่
มีดังนี้
1.
สร้างโปรเจ็กต์ใหม่ โดยไปที่ เมนู File >> New >>
Project
2.
เลือก Visual Basic >> Windows Application
3.
กำหนดชื่อโปรเจ็กต์ เป็น >>> MyNotePad
4.
กำหนด Location เป็น >>> C:\MyProject
5.
กด OK
ขั้นตอนที่
2 การกำหนดคุณสมบัติต่าง
ๆ ของฟอร์มมีดังนี้
์
No |
Properties |
Value |
1 |
Name |
FrmMyNotepad |
2 |
FormBorderStyle |
FixedDialog |
3 |
Text |
โปรแกรมสมุดโน้ตของฉัน |
4 |
icon |
เลือกไฟล์รูป
icon (ถ้ามี) |
5 |
StartPosition |
Center
Screen |
ขั้นตอนที่
3 นำคอนโทรลต่าง
ๆ มาวางบนฟอร์ม พร้อมทั้งกำหนดคุณสมบัติดังนี้
1. MainMenu
:: ใช้สำหรับ แสดงเมนูต่าง ๆ โดยมีเมนูต่าง ๆ ดังนี้
สร้างเมนูหลักและเมนูย่อยดังรูป
2. OpenFiledialog
:: ใช้สำหรับ แสดงหน้าจอ ในการ Openไฟล์
3. SaveFiledialog
:: ใช้สำหรับ แสดงหน้าจอ ในการ Save ไฟล์
4. TextBox
:: ใช้สำหรับ แสดงข้อความ และ พิมพ์ข้อความ
กำหนดคุณสมบัติดังนี้
Object |
No |
Properties |
Value |
MainMenu1 |
File |
Name |
MFile |
| |
|
Text |
File |
| |
New |
Name |
MNew |
| |
|
Text |
New |
| |
Open |
Name |
MOpen |
| |
|
Text |
Edit |
| |
Save |
Name |
MSave |
| |
|
Text |
Save |
| |
Exit |
Name |
MExit |
| |
|
Text |
Exit |
| |
Edit |
Name |
MEdit |
| |
|
Text |
Edit |
| |
Cut |
Name |
MCut |
| |
|
Text |
Cut |
| |
Copy |
Name |
MCopy |
| |
|
Text |
Copy |
| |
Paste |
Name |
MPaste |
| |
|
Text |
Paste |
| |
Format |
Name |
MFormat |
| |
|
Text |
Format |
| |
Font |
Name |
MFont |
| |
|
Text |
Font |
| |
Help |
Name |
MHelp |
| |
|
Text |
Help |
| OpenFiledialog |
OpenFiledialog |
Name |
OFD |
| |
|
Tilte |
เลือกไฟล์ที่ต้องการอ่าน |
| SaveFiledialog |
SaveFiledialog |
Name |
SFD |
| |
|
Tilte |
กำหนดชื่อไฟล์ที่จะ
Save |
| TextBox |
Textbox |
Name |
TxtText |
| |
|
Text |
พิมพ์ข้อความที่ต้องการ |
| |
|
MultiLine |
True |
| |
|
ScrollBar |
Both |
ขั้นตอนที่
4 เขียนคำสั่งดังนี้
คำสั่ง |
คำอธิบาย |
'
ดัลเบิ้ลคลิกที่ Form แล้วเขียนคำสั่งข้างล่างนี้
Imports System.IO
Public Class FrmNotePad
Inherits System.Windows.Forms.Form
|
ประกาศ
คลาส System.IO เพื่อใช้งานคำสั่งที่ติดต่อกับไฟล์ข้อความ
ไว้ก่อน คำสั่ง Public Class |
| |
|
' ดัลเบิ้ลคลิกที่เมนู Open
แล้วเขียนคำสั่งข้างล่างนี้
Private Sub MOpen_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MOpen.Click
Dim fname As String
OFD.ShowDialog()
fname = OFD.FileName
Dim myfiles As StreamReader = New StreamReader(fname)
TxtText.Text = myfiles.ReadToEnd
myfiles.Close()
End Sub
|
1. ประกาศตัวแปร fname เพื่อเก็บชื่อไฟล์ที่ได้จาก
การเปิด filedialog (OFD)
2.
สั่งเปิด openfiledialog ด้วยคำสั่ง OFD.ShowDialog()
3. เก็บชื่อไฟล์ ไว้ในตัวแปร fname
4. กำหนดตัวแปร myfies เป็น StreamReader เพื่อ
อ่านไฟล์
5. แสดงข้อความที่ได้จากการอ่าน ด้วย เมธอด ReadToEnd
ลงใน TextBox |
| |
|
' ดัลเบิ้ลคลิกที่เมนู Save
แล้วเขียนคำสั่งข้างล่างนี้
Private Sub MSave_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MSave.Click
Dim fname As String
Try
SFD.ShowDialog()
fname = SFD.FileName
Dim
MyFileStream As FileStream = New _
FileStream(fname,
FileMode.OpenOrCreate, _ FileAccess.Write,
FileShare.None)
Dim
MyStreamWriter As StreamWriter = New_
StreamWriter(MyFileStream)
MyStreamWriter.WriteLine(TxtText.Text)
MyStreamWriter.Close()
Catch
ex As Exception
MsgBox(ex.Message)
End
Try
End Sub
|
1.
ประกาศตัวแปร fname เพื่อเก็บชื่อไฟล์ที่ได้จาก
การเปิด savefiledialog (SFD)
2.
สั่งเปิด Savefiledialog ด้วยคำสั่ง SFD.ShowDialog()
3. เก็บชื่อไฟล์ ไว้ในตัวแปร fname
4. กำหนดตัวแปร MyFileStream
เป็น FileStream เพื่อ สร้างไฟล์ข้อความใหม่
5. เขียนข้อความที่ได้จากการ TextBox ด้วย เมธอด
MyStreamWriter.WriteLine(TxtText.Text) ลงใน ไฟล์ |
12.
ทดสอบการทำงานของโปรแกรม โดยการ กด ปุ่ม Start หรือ กดปุ่ม
F5 บนแป้นพิมพ์
<<
บทความก่อนหน้า | บทความถัดไป
:: >>
|
ตอนที่ 11_1:: การสร้างโปรแกรม สมุดโน้ต แบบง่าย (MyNotePad)
