[¤À¨É] [VB2010] txt ²©ö Ū ¼g µøµ¡

mark15jill

¹w³]¥Ø¿ý¡GD:\123.txt

¤U¸ü (196.28 KB)

2013-3-7 13:44

¦³°ÝÃD¥i¥H°Ý...
¦¹©«¶È´£¨Ñ°ò¥»Åª¼g¥\¯à¡A¨ÃµL´£¨ÑÃöÁä¦r·j´M¥\¯à

1. Imports System.IO
   
2. '¤èªk1
   
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 = "¼g"
    
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 = "¥ý¼g«áŪ"
    
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

½Æ»s¥N½X