[分享] [VB2010] txt 簡易 讀 寫 視窗

mark15jill

預設目錄：D:\123.txt

下載 (196.28 KB)

2013-3-7 13:44

有問題可以問...
此帖僅提供基本讀寫功能，並無提供關鍵字搜尋功能

1. Imports System.IO
   
2. '方法1
   
3. Public Class Form1
   
4.     Dim lab As New Label
   
5.     Dim bum1, bum2 As New Button
   
6.     Dim te1, te2 As New TextBox
   
7.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   
8.         With Me
   
9.             .Controls.Add(lab)
   
10.             .Height = 600
    
11.             .Width = 800
    
12.             .FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
    
13.             With .Controls
    
14.                 .Add(te1) : .Add(te2) : .Add(bum1) : .Add(bum2)
    
15.             End With
    
16.         End With
    
17.         With te1
    
18.             .ScrollBars = ScrollBars.Both
    
19.             .BorderStyle = BorderStyle.Fixed3D
    
20.             .Width = (Me.Width - 40) / 2
    
21.             .Height = Me.Height - 150
    
22.             .Location = New Point(10, 100)
    
23.             .Multiline = True
    
24.         End With
    
25. 
    
26.         With te2
    
27.             .ScrollBars = ScrollBars.Both
    
28.             .BorderStyle = BorderStyle.Fixed3D
    
29.             .Width = (Me.Width - 40) / 2
    
30.             .Height = Me.Height - 150
    
31.             .Location = New Point(10 + te1.Width + te1.Location.X, 100)
    
32.             .Multiline = True
    
33.         End With
    
34.         With bum1
    
35.             .TextAlign = ContentAlignment.MiddleCenter
    
36.             .Text = "寫"
    
37.             .Width = 100
    
38.             .Height = 40
    
39.             .Location = New Point(((te1.Location.X + te1.Width) / 2) - 50, 50)
    
40.         End With
    
41. 
    
42.         With bum2
    
43.             .TextAlign = ContentAlignment.MiddleCenter
    
44.             .Text = "讀"
    
45.             .Width = 100
    
46.             .Height = 40
    
47.             .Location = New Point((Me.Width - te2.Location.X - 10) + ((te2.Width + te2.Location.X) / 4), 50)
    
48.         End With
    
49. 
    
50.         With lab
    
51.             .TextAlign = ContentAlignment.MiddleCenter
    
52.             .Location = New Point((Me.Width / 2) - 100, 10)
    
53.             .Width = 200
    
54.             .Height = 25
    
55.             .AutoSize = False
    
56.             .BackColor = Color.Peru
    
57.             .BorderStyle = BorderStyle.Fixed3D
    
58.             .Text = "先寫後讀"
    
59.         End With
    
60. 
    
61.         AddHandler bum1.Click, AddressOf button1_Click
    
62.         AddHandler bum2.Click, AddressOf button2_Click
    
63. 
    
64. 
    
65.     End Sub
    
66. 
    
67.     Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
    
68.         Dim kk1 As String
    
69.         kk1 = te1.Text
    
70. 
    
71.         Dim FileNum As Integer
    
72.         Dim strTemp As String
    
73. 
    
74.         FileNum = FreeFile()
    
75.         FileOpen(FileNum, "D:\123.txt", OpenMode.Output)
    
76. 
    
77.         strTemp = kk1
    
78.         PrintLine(FileNum, strTemp)
    
79. 
    
80.         FileClose(FileNum)
    
81. 
    
82. 
    
83.     End Sub
    
84.     Private Sub button2_Click(ByVal sender As Object, ByVal e As EventArgs)
    
85.         Dim FileNum As Integer
    
86.         Dim strTemp As String
    
87. 
    
88.         FileNum = FreeFile()
    
89.         FileOpen(FileNum, "D:\123.txt", OpenMode.Input)
    
90. 
    
91.         Do Until EOF(FileNum)
    
92.             te2.Text = LineInput(FileNum) & vbNewLine
    
93.         Loop
    
94. 
    
95.         FileClose(FileNum)
    
96.     End Sub
    
97. 
    
98. End Class

複製代碼