UC知道Vb高手们，希望你们帮帮我
来源：百度知道 编辑：UC知道 时间：2024/05/17 22:18:40
窗体一代码：
Private Sub Command1_Click()
Dim sfile, temp As String
sfile = InputBox("请输入要打开的文件名及路径:", "打开文件")
If Dir(sfile) <> "" Then
Open sfile For Input As #1 （这它说错了）
temp = StrConv(InputB(LOF(1), #1), vbUnicode)
Edittxt.Text = temp
Close #1
Editfrm.Caption = "文本编辑器--" & sfile
Else
MsgBox "指定的文件" & sfile & "未找到!", 48, "打开文件"
End If
End Sub
Private Sub Command2_Click()
Dim sfile, temp As String
sfile = InputBox("请输入要保存的文件名及路径:", "保存文件")
Open sfile For Output As #1
Print #1, Edittxt.Text
Close #1
MsgBox "文件保存成功!", 64, "保存文件'"
Editfrm.Caption = "文本编辑器--" & sfile
End Sub
Private Sub Command3_Click()
Dim value As Integer
Load Searchfrm
Searchfrm.Show 1
where = InStr(Edittxt.Text, search)
If where Then<
Private Sub Command1_Click()
Dim sfile, temp As String
sfile = InputBox("请输入要打开的文件名及路径:", "打开文件")
If Dir(sfile) <> "" Then
Open sfile For Input As #1 （这它说错了）
temp = StrConv(InputB(LOF(1), #1), vbUnicode)
Edittxt.Text = temp
Close #1
Editfrm.Caption = "文本编辑器--" & sfile
Else
MsgBox "指定的文件" & sfile & "未找到!", 48, "打开文件"
End If
End Sub
Private Sub Command2_Click()
Dim sfile, temp As String
sfile = InputBox("请输入要保存的文件名及路径:", "保存文件")
Open sfile For Output As #1
Print #1, Edittxt.Text
Close #1
MsgBox "文件保存成功!", 64, "保存文件'"
Editfrm.Caption = "文本编辑器--" & sfile
End Sub
Private Sub Command3_Click()
Dim value As Integer
Load Searchfrm
Searchfrm.Show 1
where = InStr(Edittxt.Text, search)
If where Then<
Open sfile For Input As #1 （这它说错了）
因为上面一句的问题了:If Dir(sfile) <> "" Then
改为:If sfile <> "" Then ,也就是去掉Dir()
1.Open sfile For Input As #1 （这它说错了）
这句本身没错
2.Commmand5.Caption = "取消只读" （这也错了）
控件名拼写错误,应为command5
3.Edittxt.Height = Editfrm.ScaleHeight - 440 （这它还说不对)!!!!!!
请确保,第一个窗体名为:"editfrm",窗体内的文本框名为"edittxt"
1、不要用Inputbox来输入预打开文件路径，用CommonDialogBox控件
2、如LS
3、如LS
PS：你这应该是书本上的样例吧。。
1、Open sfile For Input As #1 （这它说错了）
估计是你输入的文件路径或文件名不正确，因此无法打开文件。
2、Commmand5.Caption = "取消只读" （这也错了）
控件名称拼写错误，多了一个m，应该是Command5
3、Edittxt.Height = Editfrm.ScaleHeight - 440 !!!!（这它还说不对)!!!!!!
是否有“Edittxt”和“Editfrm”对象存在，不明白这二个对象名代表的是什么对象，如果没有这些对象，修改为已经存在的对象。对象包括窗体和控件。