求文档: VB文本阅读器设计代码

发布网友发布时间：2022-09-07 06:27

共1个回答

热心网友时间：2024-10-19 09:29

Dim s As Integer '定义一变量，用来确认文档内容是否改变
Dim yuan As String '定义一变量，用来存储打开文件的文件名

Private Sub Exit_Click()
Dim i As Integer
If s = 1 Then
i = MsgBox("文字已改变，是否保存", 52, "提示")
If i = vbYes Then
Save
End If
End If
End
End Sub

Private Sub Form_Resize()
RichTextBox1.Width = Form1.ScaleWidth '当窗体调整大小时，文本框自动调整大小，
RichTextBox1.Height = Form1.ScaleHeight '与窗体大小相同
'RichTextBox2.Width = Form1.ScaleWidth
'RichTextBox2.Height = Form1.ScaleHeight
End Sub

Private Sub New_Click()
Dim a As Integer
yuan = "" '如果yuan中存储了文件路径，此处清空，以免在存储时，直接存储到默认文件内
If s = 1 Then
a = MsgBox("文字已变化，是否保存", 52, "提示")
If a = vbYes Then
Save
End If
End If
RichTextBox1.Text = ""

End Sub

Private Sub Open_Click()
CommonDialog1.Filter = "文本文档(.txt)|*.txt"
CommonDialog1.Action = 1
yuan = CommonDialog1.FileName
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Input As #1
Do Until EOF(1)
Line Input #1, sss
RichTextBox1.Text = RichTextBox1.Text + sss + vbCrLf
Loop
Close #1
End If
End Sub

Private Sub RichTextBox1_Change()
s = 1
End Sub

Private Sub Save1_Click()
If yuan = "" Then
Save
Else
Open yuan For Output As #1
Print #1, RichTextBox1
Close #1
End If
End Sub

Private Sub Save2_Click()
Save
End Sub

Private Sub Time_Click()
'RichTextBox1.Text = RichTextBox1.Text & Str(Time) & Str(Data)
End Sub

Private Sub WordWrap_Click()
'If WordWrap.Checked = True Then
'RichTextBox2.Text = RichTextBox1.Text
'RichTextBox1.Visible = False
'RichTextBox2.Visible = True
'WordWrap.Checked = False
'Else
'RichTextBox1.Text = RichTextBox2.Text
'RichTextBox1.Visible = True
'RichTextBox2.Visible = False
'WordWrap.Checked = True
'End If
End Sub
Private Sub Save()
CommonDialog1.Filter = ".txt|*.txt"
CommonDialog1.Action = 2
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As #1
Write #CommonDialog1.FileName, RichTextBox1
Close #1
End If
End Sub