Board logo

標題: [分享] [VB2010] txt 簡易 讀 寫 視窗 [打印本頁]
作者: mark15jill    時間: 2013-3-7 13:45     標題: [VB2010] txt 簡易 讀 寫 視窗

預設目錄：D:\123.txt
[attach]14290[/attach]
有問題可以問...
此帖僅提供基本讀寫功能，並無提供關鍵字搜尋功能
  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

  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

  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

  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

  61.         AddHandler bum1.Click, AddressOf button1_Click
  62.         AddHandler bum2.Click, AddressOf button2_Click


  65.     End Sub

  67.     Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
  68.         Dim kk1 As String
  69.         kk1 = te1.Text

  71.         Dim FileNum As Integer
  72.         Dim strTemp As String

  74.         FileNum = FreeFile()
  75.         FileOpen(FileNum, "D:\123.txt", OpenMode.Output)

  77.         strTemp = kk1
  78.         PrintLine(FileNum, strTemp)

  80.         FileClose(FileNum)


  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

  88.         FileNum = FreeFile()
  89.         FileOpen(FileNum, "D:\123.txt", OpenMode.Input)

  91.         Do Until EOF(FileNum)
  92.             te2.Text = LineInput(FileNum) & vbNewLine
  93.         Loop

  95.         FileClose(FileNum)
  96.     End Sub

  98. End Class
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)