十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
按你说的方式,需要用到钩子
创新互联建站坚持“要么做到,要么别承诺”的工作理念,服务领域包括:网站制作、成都网站设计、企业官网、英文网站、手机端网站、网站推广等服务,满足客户于互联网时代的固原网站设计、移动媒体设计的需求,帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴!
建议你用File类进行操作,保存为TXT文件
祝好运,望采纳
用StreamReader和StreamWriter读写文本文件,在读取的过程中判断字符串即可。
首先说明,你这样是写TXT,不是DOC,虽然Word可以打开,但根本就不是Word文件。当然不能存储图片了。请参考我以下的代码。建一个Command1。
================
Dim
ap
As
Word.Application,
doc
As
Document
Private
Sub
Form_Load()
'这个过程不必做修改,是建立一个新的Word文档
Set
ap
=
CreateObject("word.application")
ap.Visible
=
True
Set
doc
=
ap.Documents.Add
End
Sub
Private
Sub
Command1_Click()
doc.Content.InsertAfter
Text:="请输入你要输入的内容"
'插入文字,请使用这种格式
doc.Shapes.AddPicture
FileName:="D:\a.jpg"
'插入图片,请使用这种格式,路径自己写
End
Sub
其他问题再找我。
设计一个窗口,添加一个名为textBox1的System.Windows.Forms.TextBox,
添加一个名为button1的System.Windows.Forms.Button。
为button1的单击事件添加如下处理函数:
Sub Button1Click(sender As Object, e As EventArgs)
'f是你的文本文件的文件名
Const f As String="t.txt"
Dim sw As System.IO.StreamWriter=Nothing
Try
If Not System.IO.File.Exists(f) Then
sw=System.IO.File.CreateText(f)
Else
sw=New System.IO.StreamWriter(f,True)
End If
sw.WriteLine(textBox1.Text)
Finally
If sw IsNot Nothing Then
sw.close()
End If
End Try
End Sub