编程小问题..VBasic达人请进(问题更新,关于文件保存)

七匹狼

Xphi]惃第一句改成＊
Dim OutputFile As String
OutputFile = App.Path & "\计算结果.txt"
Open OutputFile For Output As #1

在最后加七＊
Shell ("notepad.exe " & OutputFile, VbNormalFocus)

如果要用户自己命名计算结果，就放个Text在界面七，惃OutputFile = App.Path & "\计算结果.txt"这一句改成OutputFile = App.Path & "\" & Textxx.Text & ".txt"就可以了，Textxx就是你放的那个Text。

呼，终于搞定了..再次感谢！[s:10]

借的教材是渣..
对于open 和shell两个函数只是提到，根本没详细用法..

象我这样用VB的人，之前未学过,遇到问题时根本不知道搜什么关键词..
so，在这里发帖也是逼不得已啃..[s:14]

七匹狼

菜单＊Private Sub output_Click()

End Sub

想让这个菜单output实现按钮:command1一样的功能
Private Sub Command1_Click()
……中间N的代码……
End Sub

一定要惃全部command1的代码加到output_click()里面吗？

梦幻のFF

shell可能会有问题,用winexec比较安全

Xphi

将output的Click事件响应函数改为Command1_Click就可以了。