可以,給你個思路,將2個exe文件寫入資源文件中
成都創(chuàng)新互聯(lián)專注于觀山湖網(wǎng)站建設(shè)服務(wù)及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗。 熱誠為您提供觀山湖營銷型網(wǎng)站建設(shè),觀山湖網(wǎng)站制作、觀山湖網(wǎng)頁設(shè)計、觀山湖網(wǎng)站官網(wǎng)定制、小程序制作服務(wù),打造觀山湖網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供觀山湖網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。
VB寫的程序,可以在form
load事件中..
先從資源文件中釋放2個exe文件,比如寫在apppath目錄中,1.exe和2.exe
shell
"1.exe",1
shell
"2.exe",0
這樣,第1個程序是顯示出來運行了..第2個程序就在后臺運行.不顯示出來
,注意后面的參數(shù)。
以一個項目為基礎(chǔ),在其工程上點右鍵,選添加,現(xiàn)有項,然后選擇另外兩個項目里的文件,用這種方式把所有的都添加上就行了
在你要引入的文件或文件夾上點右鍵,選包括在項目中
下次直接追問,要不我看不到
Private Sub Command1_Click()
'將源文件中的內(nèi)容導(dǎo)入目標(biāo)文件中
Open "D:\1.txt" For Append As #1 '打開目標(biāo)文件
Open "D:\2.txt" For Input As #2 '打開源文件
While Not EOF(2)
Line Input #2, temp
Print #1, temp
Wend
Close #1
Close #2
End Sub
你需要先弄一個文本框
把T1.TXT和T2.TXT的內(nèi)容讀進(jìn)去
用一個按鈕事件 讀取文件T1.TXT和T2.TXT
Dim OpenFileDialog As New OpenFileDialog
Dim f As System.IO.FileStream
Dim r As System.IO.StreamReader
OpenFileDialog.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
If (OpenFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then
Dim FileName As String = OpenFileDialog.FileName
f = New System.IO.FileStream(FileName, IO.FileMode.Open, IO.FileAccess.Read)
r = New System.IO.StreamReader(f)
TextBox1.Text += r.ReadToEnd
r.Close()
End If
另一個按鈕保存 TextBox1.Text
Dim w As System.IO.StreamWriter
Dim f As System.IO.FileStream
Dim FileName As String
If (SaveFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
SaveFileDialog.FileName=T3.TXT
FileName = SaveFileDialog.FileName
f = New System.IO.FileStream(FileName, IO.FileMode.Create, IO.FileAccess.Write)
w = New System.IO.StreamWriter(f)
w.Write(textbox.Text)
w.Close()
End If
以追加方式打開student I.dat
以只讀方式打開另外兩個文件,
然后用循環(huán)把讀讀到的,寫入
student I.dat文件。
本文標(biāo)題:vb.net兩文件合并 vb將兩個文件合并
文章起源:http://vcdvsql.cn/article40/hehheo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供軟件開發(fā)、手機網(wǎng)站建設(shè)、App設(shè)計、Google、網(wǎng)站改版、定制網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)