可以調(diào)用CMD
成都創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供雷州網(wǎng)站建設、雷州做網(wǎng)站、雷州網(wǎng)站設計、雷州網(wǎng)站制作等企業(yè)網(wǎng)站建設、網(wǎng)頁設計與制作、雷州企業(yè)網(wǎng)站模板建站服務,十多年雷州做網(wǎng)站經(jīng)驗,不只是建網(wǎng)站,更提供有價值的思路和整體網(wǎng)絡服務。
方法一:
Shell("cmd.exe?/c?call?c:\新建文本文檔.txt",?AppWinStyle.NormalFocus)
缺點:不但會打開文本文件,同時還會顯示一個cmd窗體。
方法二:
需要新建一個bat文件到資源里,輸入start C:\新建文本文檔.txt
代碼
shell?"bat文件的路徑.bat"
這樣就好了,兩種方法各有好壞。一個會顯示cmd窗體,一個需要bat文件。
現(xiàn)在工程里添加引用Microsoft.Office.Interop.Excel,然后可以使用如下代碼輸出。
Dim?oXl?As?Excel.Application?=?New?Excel.Application()
Dim?oWb?As?Excel.Workbook
Dim?oWs?As?Excel.Worksheet
On?Error?GoTo?Morn
oWb?=?oXl.Workbooks.Add()
oWs?=?oWb.Worksheets(1)
With?oWs
.Cells._Default(1,?1).Value?="a"
.Cells._Default(1,?2).Value?="b"
.Cells._Default(1,?3).Value?="c"
.Cells._Default(1,?4).Value?="d"
.Cells._Default(2,?1).Value?="32"
.Cells._Default(2,?2).Value?="1"
.Cells._Default(2,?3).Value?="90"
.Cells._Default(2,?4).Value?="合格"?????????????
End?With
oWs.Parent.Names.Add("CostRange",?"="??"A1:B39")
oWs.SaveAs(sFileName)
System.Windows.Forms.Cursor.Current?=?System.Windows.Forms.Cursors.Default
If?MsgBox("已將數(shù)據(jù)輸出到Excel文件中!?現(xiàn)在打開該文件?",?MsgBoxStyle.Question?+?MsgBoxStyle.YesNo,?"已完成")?=?MsgBoxResult.No?Then
oXl.Quit()
Else
oXl.Visible?=?True
End?If
oXl?=?Nothing
oWs?=?Nothing
oWb?=?Nothing
vb.net保存后在菜單文件中打開。
在菜單中文件中選擇生成EXE文件,然后打開Exe文件就可以了。
VB.NET是基于.NET框架的完全對向?qū)ο蟮木幊陶Z言,而vb6.0只是半面向?qū)ο蟮恼Z言,使用vb.net可以編制出功能更加強大的windows程序。