我用VB写了个记事本的程序，这句代码 Open CommonDialog1.FileName For Output As #1和Print #1,Text1
我用VB写了个记事本的程序，这句代码 Open CommonDialog1.FileName For Output As #1 和这句代码是什么意思 Print #1,Text1
以输出模式，打开通用对话框中选择的文件，文件号是1
Print #1,Text1
将文本框Text1中的文本，写入到文件号为1的文件中。
...Open CommonDialog1.FileName For Output As #1和Print #1,Text1...
Open CommonDialog1.FileName For Output As #1 以输出模式，打开通用对话框中选择的文件，文件号是1 Print #1,Text1 将文本框Text1中的文本，写入到文件号为1的文件中。
VB编写记事本
Open CommonDialog1.FileName For Input As #1 Dim abc As String linefromfile = StrConv(InputB(LOF(1), 1), vbUnicode)Text1.Text = linefromfile Close #1 End Sub Private Sub Drive1_Change()Dir1.Path = Drive1.Drive End Sub Private Sub Form_Load()Drive1.Drive = "f:\\"Dir1...
VB保存文本文件的问题
Open CommonDialog1.FileName For output As #1 Print #1, Text1.Text Close #1 这样就行了，append是添加，output是覆盖！！
vb中保存一个文本框中的文字怎么设置???谢谢!
Open CommonDialog1.FileName For Output As 1 Write #1, Text1.Text
怎么用vb做记事本
Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeySpace Then RichTextBox1.SelFontName = CommonDialog1.FontName End If End Sub 至此,我们的记事本可以编译使用了。点击菜单“文件”-“生成XXX.EXE”,回到桌面运行我们的记事本看看,是不是颇有成就感? 当然,这样的...
请求帮助,vb输出文件名的问题!!!
给你来个简单的代码，你一看就明白啦~~o(∩_∩)o...Open CommonDialog1.FileName For Input As #1 '打开一个文件 f=split(CommonDialog1.FileName,".")newfile=f(0) & "_转换" & f(1) '这里包括文件名和文件的后缀名 Open newfile For Output As #2 '输出这个文件 ...
如何用VB代码运行CMD里面或者记事本的程序
Open App.Path & "\\1.bat"For Output as 1 Print 1,"你的DOS命令"Print 1,"你的DOS命令2"Print 1,"你的DOS命令3"Print 1,"你的DOS命令4"Print 1,"你的DOS命令5"Print 1,"你的DOS命令6"Print 1,"你的DOS命令7"Close 1 Shell App.Path & "\\1.bat"'即可运行了，如果需要VB接受...
如何用VB代码实现以下功能:按下命令按钮,把文本框中的内容保存到桌面新...
Private Sub command1_Click()Dim k As String k = Text1.Text Open "C:\\Users\\Administrator\\Desktop\\评语录入.txt" For Append As #1 '把这里的路径改为你桌面路径Print #1, k Close #1 MsgBox "保存成功！", vbInformation, " 提示！"End Sub ...
如果想在D盘里新建一个记事本,在VB的代码窗口里应如何写代码
有2种方法,一种是调用fso的流操作,另一种比较简单 dim filename as string filename="d:\\test.text"open filename for output as 1 print 1,"这里写入文件内容"close 1
VB一段保存和打开的程序,求解释,如有错误,请帮忙修改
没有 Else '执行到这儿说明该文件不存在，但flg代表什么就不清楚了 Open CommonDialog1.FileName For Output As #1 '打开文件, '保存代码 Close #1 End IfEnd SubPrivate Sub MenuOpen_Click() CommonDialog1.ShowOpen '弹出打开文件的对话框End Sub ...
