UC知道VB 如何 把text的文字 保存到自定义的位置
来源：百度知道 编辑：UC知道 时间：2024/05/24 06:59:37
就是把text的文的文字 保存的我想的位置 不是固定的位置
和 打开。 求代码 谢谢
不是。。 你不明白 就是 可以自己选择 放到哪里 每次都不一样。
不是说老是固定一个位置！！
没错 就是 鼠标点到哪 就哪 太聪明了
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
代码我不写了，你说的就是要鼠标点击那里，就显示在哪里吗？
如果是这样的话，你可要做个窗体。在鼠标双击事件中，直接获得text的内容即可。
呵呵，我一般都是点到为止，不会写代码的，不好意思。希望能帮助到你。
点击“工程”“部件”，找到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