UC知道VB制作保存代码，我是外行，刚接触，但是急需此代码，详细内容如下：
来源：百度知道 编辑：UC知道 时间：2024/06/25 01:02:45
简单说：当在Text1（做才输入筐）中输入数字等。。然后按Command1（把这个做成确定按钮吧），别人在Text1中输入的东西就转换成TXT文件另存在别指定盘里或文件。说的意思已经很简单很好理解了。望有能力的人给予相应代码答复，。在另加分数
给你一个代码:
Private Sub Command1_Click()
dim data
data=text1.text
Open "d:\text1.txt" For Output As #1
Print #1, data
Close #1
answer = MsgBox("已经保存网页源代码到d:\text1.txt中", 0, "友情提示")
Print answer
End Sub
哦,其实很简单了!!
用一个commanddalog控件就可以了...........
我把自己的这段代码给你复制过来了...........
如果需要完整的代码,发邮件my7091818@163.com
Private Sub Command1_Click()
baocun: '如果保存过程中点错为取消，可以重新保存
CommonDialog1.Flags = 0
CommonDialog1.ShowSave
fname = CommonDialog1.FileName
On Error GoTo f1
If fname <> " " Then
Open fname For Output As #1
Print #1, Text11.Text
Close #1
End If
dnc_Click
Exit Sub
f1: '如果出错，可以重新保存
i = MsgBox("你真的不要保存数据了吗？", vbYesNo)
If i = 7 Then
GoTo baocun
End If
Text11.SetFocus
End Sub