VB~~~~~~~~~~拜托了！！大家帮帮忙~~明天要考了！！高分求~~

来源：百度知道 编辑：UC知道 时间：2024/09/25 13:15:16
六、综合编程（每题25分，任选1题，共25分）
1.写出一个简单的文本文件编辑程序，文件的内容在左边的文本框中。用户界面如下图所示。
（1） 单击“Cut”按钮（Command1），将文本框Text1.text中选定的内容剪切到剪贴板；
（2） 单击“Copy”按钮（Command2），将文本框Text1.text中选定的内容复制到剪贴板；
（3） 单击“Paste”按钮（Command3），将剪贴板中的内容粘贴到文本框中当前插入点处；
（4） 单击“Open”按钮（Command4），打开“打开”对话框，输入要打开的文本文件名后，单击确定按钮后，文件在Text1中打开。
（5） 单击“Save”按钮（Command5），打开“保存文件”对话框，Text1.text中的内容以指定的路径及文件名保存。
（6） 单击“End”按钮（Command5），结束程序。
（可能要用到的单词：Clipboard，CommonDialog1,SetText,SelStar,SelLength,SelText,MultiLine,
ScrollBars,FileName)
部分程序代码如下：
Private Sub Command2_Click()
Clipboard.SetText Text1.SelText
End Sub
Private Sub Command5_Click()
CommonDialog1.Action=2
OpenCommonDialog1.filename For Output As 1
Print #1,Text1.Text
Close #1
End Sub

请分别编写其余四个按钮的单击事件。

Private Sub Command1_Click()
Clipboard.SetText Text1.SelText
Text1.Text = ""
End Sub

Private Sub Command3_Click()
Dim ls As String, rs As String
ls = Left(Text1.Text, Text1.SelStart)
rs = Mid(Text1.Text, Text1.SelStart + 1)
Text1.Text = ls & Clipboard.GetText & rs
End Sub

Private Sub Command4_Click()
Dim s
Text1.Text=""
CommonDialog1.Action=1
Open CommonDialog1.filename For Input As 1
Do While Not EOF(1)
Line Input #1, s
Text1.Text = Text1.Text + s + Chr(13) + Chr(10)
Loop
Close #1
End Sub

Private Sub Command6_Click()
End
End Sub