設計一個窗口,添加一個名為textBox1的System.Windows.Forms.TextBox,
讓客戶滿意是我們工作的目標,不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術通過有效、簡單的方式提供給客戶,將通過不懈努力成為客戶在信息化領域值得信任、有價值的長期合作伙伴,公司提供的服務項目有:主機域名、虛擬空間、營銷軟件、網站建設、沈陽網站維護、網站推廣。
添加一個名為button1的System.Windows.Forms.Button。
為button1的單擊事件添加如下處理函數(shù):
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
按你說的方式,需要用到鉤子
建議你用File類進行操作,保存為TXT文件
祝好運,望采納
首先說明,你這樣是寫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
其他問題再找我。
已測試,代碼如下:
Imports?System.IO?'引入文本操作
Public?Class?Form1
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
Dim?txt?As?String?=?Me.getTxt
SaveTxt(txt)
End?Sub
'取得存儲的文本
Private?Function?getTxt()?As?String
Dim?x(0?To?10)?As?Integer
For?i?As?Integer?=?0?To?x.Length?-?1
x(i)?=?CInt(100?*?Rnd())
Next
Dim?str?As?String?=?""
For?j?As?Integer?=?0?To?x.Length?-?1
str?+=?x(j).ToString??vbCrLf
Next
Return?str
End?Function
'存儲文本
Private?Sub?SaveTxt(ByVal?v?As?String)
Dim?fp?As?String?=?GetSavePath()
If?String.IsNullOrEmpty(fp)?=?False?Then
'StreamWriter
Dim?Swriter?As?New?StreamWriter(fp,?False)?'覆蓋或新建
Swriter.WriteLine(v)
Swriter.Close()
End?If
End?Sub
'取得存儲路徑
Private?WithEvents?sd?As?New?SaveFileDialog
Private?Function?GetSavePath()?As?String
sd.FileName?=?""
sd.AddExtension?=?True
sd.DefaultExt?=?"txt"
sd.Filter?=?"TXT文件(*.txt)|*.txt"
sd.ShowDialog()
Return?sd.FileName
End?Function
End?Class
測試截圖如下。
Dim SaveFileDialog1 As New SaveFileDialog()
'創(chuàng)建一個保存對話框
SaveFileDialog1.Filter = "txt files (*.txt)|*.txt"
'設置
擴展名
If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
'如果確定保存
My.Computer.
FileSystem
.WriteAllText(SaveFileDialog1.Filename, Textbox1.Text,False)
'保存文本,False表示不追加文本,直接覆蓋其內容
End If
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
System.IO.Directory.CreateDirectory("C:\我的文件夾") '創(chuàng)建目錄,路徑就自己改吧,如果路徑存在,就沒必要創(chuàng)建了
System.IO.File.Create("C:\我的文件夾\我的文件.doc") '在指定目錄下創(chuàng)建word文檔
End Sub
分享文章:vb.net生成文本文檔,vb生成文件夾
URL標題:http://www.rwnh.cn/article34/dssdjpe.html
成都網站建設公司_創(chuàng)新互聯(lián),為您提供軟件開發(fā)、虛擬主機、品牌網站建設、網站收錄、企業(yè)建站、云服務器
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)