Question

VB 如何 把text的文字 保存到自定义的位置

VB 如何 把text的文字 保存到自定义的位置
就是把text的文的文字 保存的我想的位置 不是固定的位置
和 打开。 求代码 谢谢
不是。。 你不明白 就是 可以自己选择 放到哪里 每次都不一样。
不是说老是固定一个位置！！
没错 就是 鼠标点到哪 就哪 太聪明了

Answer 1

点击“工程”“部件”，找到microsoft common dialog control 6.0，添加这个控件。这个控件可以弹出一个标准的文件保存、打开、颜色设置、打印等对话框，就可以让用户选择保存路径了

拖一个控件到窗体上，放个按钮，代码如下：

Private Sub Command1_Click()

Dim FN As String

With Me.CommonDialog1
.FileName = "D:\f.txt" '设置默认文件名称，可以不要这句
.CancelError = True '设置报错。如果用户点击了对话框的“取消”按钮就产生一个错误（要不你无法知道用户点击了“保存”还是“取消”）
Err.Clear '如果用户点击“取消”导致错误，为了不和其他错误混淆，先清空错误报告
On Error Resume Next '运行过程中不报告错误

.ShowSave '弹出窗体（上面的工作都昨完后才执行此句，此时系统挂起，等待用户按“保存”或“取消”)
FN = .FileName '用户关闭了窗体后，从Filename属性获得用户输入的文件名
End With

If Err.Number = 0 Then MsgBox FN '从Err判断用户是否点击了“取消”

On Error GoTo 0 '这句和上面的On Error Resume Next对应，就是关闭那句话的功能

End Sub

关于Err的更多信息请另行查资料，本示例代码可以完整实现功能。

Answer 2

open "欲保存位置" for output as #1
print #1,text1.text
close #1

'==============================
open "欲打开文件位置" for input as #1
do while not eof(1)
line input #1,temp
str1=str1 & temp & vbcrlf
loop
text1.text=str1
close #1

Answer 3

代码我不写了，你说的就是要鼠标点击那里，就显示在哪里吗？
如果是这样的话，你可要做个窗体。在鼠标双击事件中，直接获得text的内容即可。

呵呵，我一般都是点到为止，不会写代码的，不好意思。希望能帮助到你。