VB.NET命令窗口

Vb不是人機(jī)對(duì)話窗口，而是編程工具，可以編寫代碼進(jìn)行調(diào)試執(zhí)行或者生成可執(zhí)行文件。

成都創(chuàng)新互聯(lián)公司長(zhǎng)期為超過(guò)千家客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺(tái)，與合作伙伴共同營(yíng)造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為吉水企業(yè)提供專業(yè)的成都做網(wǎng)站、網(wǎng)站制作，吉水網(wǎng)站改版等技術(shù)服務(wù)。擁有10年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(fā)。

用Visual Studio .Net開發(fā)"Hello World!"程序：

我們知道"Hello World"一般是命令行程序，而這種程序在Visual Studio .Net中被稱為"控制臺(tái)程序"。下面是Visual Studio .Net編寫控制臺(tái)"Hello World！"程序的具體步驟：

（1）、啟動(dòng)Visual Studio .Net。

（2）、選擇菜單【文件】|【新建】|【項(xiàng)目】后，彈出【新建項(xiàng)目】對(duì)話框。

（3）、將【項(xiàng)目類型】設(shè)置為【Visual Basic項(xiàng)目】。

（4）、將【模板】設(shè)置為【控制臺(tái)應(yīng)用程序】。

（5）、在【名稱】文本框中輸入【Hello World】。

（6）、在【位置】的文本框中輸入【E:VS.NET項(xiàng)目】，然后單擊【確定】按鈕，則Visual Studio .Net會(huì)按照上面設(shè)定的參數(shù)創(chuàng)建一個(gè)控制臺(tái)應(yīng)用程序項(xiàng)目，具體如圖01所示。

圖01："Hello World"控制臺(tái)程序的【新建項(xiàng)目】界面

（7）、在【解決方案資源管理器】窗口中，雙擊Module1.vb文件，進(jìn)入Module1.vb文件的編輯界面。

（8）、Visual Studio .Net已經(jīng)為產(chǎn)生Main()函數(shù)。在系統(tǒng)創(chuàng)建的Main()函數(shù)中加入下面一行代碼就可以了：

Console.WriteLine ("Hello World!")

（9）、選擇【文件】|【保存Module1.vb】菜單或者按快捷鍵Ctrl＋S，保存所做的修改。

（10）、此時(shí)單擊快捷鍵Ctrl＋F5運(yùn)行程序就可以得到圖02所示運(yùn)行界面：

vb.net 保存excel彈出一個(gè)重命名對(duì)話框，另存為到其他盤

添加一個(gè)SaveFileDialog，在保存excle選擇時(shí)候添加

SaveFileDialog1.show（）

用法跟OpenFileDialog相同

VB.NET如何使用DOS命令

運(yùn)行一個(gè)可執(zhí)行程序，并且如果該程序仍然在運(yùn)行，則返回一個(gè)包含該程序的進(jìn)程

ID

的整數(shù)。

Public

Function

Shell(

_

ByVal

PathName

As

String,

_

Optional

ByVal

Style

As

AppWinStyle

=

AppWinStyle.MinimizedFocus,

_

Optional

ByVal

Wait

As

Boolean

=

False,

_

Optional

ByVal

Timeout

As

Integer

=

-1

_

)

As

Integer

參數(shù)

PathName

必選。String。要執(zhí)行的程序的名稱，以及任何必選的參數(shù)和命令行開關(guān)。PathName

也可以包含驅(qū)動(dòng)器和目錄路徑或文件夾。

如果您不知道程序的路徑，可以使用

My.Computer.FileSystem.GetFiles

方法進(jìn)行查找。例如，調(diào)用

My.Computer.FileSystem.GetFiles("C:\",

True,

"testFile.txt")

可以返回驅(qū)動(dòng)器

C:\

上任意處的名稱為

testFile.txt

的每個(gè)文件的完整路徑。

Style

可選。AppWinStyle。從

AppWinStyle

枚舉中選擇的值，指定要在其中運(yùn)行程序的窗口的樣式。如果省略

Style，則

Shell

將使用

AppWinStyle.MinimizedFocus，它啟動(dòng)程序后最小化并帶有焦點(diǎn)。

Wait

可選。Boolean。指示

Shell

函數(shù)是否應(yīng)等待程序完成的值。如果省略

Wait，Shell

將使用

False。

Timeout

可選。Integer。Wait

為

True

時(shí)要等待的毫秒數(shù)。如果省略

Timeout，則

Shell

使用

-1

表示沒有超時(shí)，并且

Shell

直到程序完成才會(huì)返回。因此，如果省略

Timeout

或?qū)⑵湓O(shè)置為

-1，則

Shell

可能永遠(yuǎn)不會(huì)將控制返回您的程序。

如果你要獲得顯示的結(jié)果，我知道的方法是使用一個(gè)dos管道（名字玄乎，實(shí)際上沒什么）

在命令的最后加一個(gè)

(filename)

這樣這個(gè)命令所有的顯示結(jié)果就背記錄在(filename)里面了

比如

dir

a.txt

這樣dir顯示的結(jié)果就是背全部記錄在a.txt里面

VB中重命名文件名

把D:\test\目錄下的所有jpg文件重命名為pic###.jpg的代碼：

Dim i As Integer

i = 1

Set fs = CreateObject("scripting.filesystemobject")

Set fd = fs.GetFolder("d:\test")

For Each f In fd.Files

If LCase(f.ShortName) Like "*.jpg" Then

f.Name = "pic" Format(i, "000") ".jpg"

i = i + 1

End If

Next

如果文件名已確定，可以用Set f=fs.GetFile("[完整路徑和文件名]")，然后用f.Name="[新文件名]"

另外提問的時(shí)候要注意把已知的條件和要達(dá)到的效果說(shuō)清楚，“已知文件名的若干文件”到底是什么樣的文件名，有沒有什么規(guī)律？是否在同一文件夾下？或者是否已將文件名存放在一個(gè)字符串?dāng)?shù)組中？不說(shuō)清楚別人怎么能幫你，只能給你一個(gè)實(shí)現(xiàn)的思路了

當(dāng)前題目：vb.net重命令文件 vbnet format
網(wǎng)站鏈接：http://jinyejixie.com/article26/dohhecg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供云服務(wù)器、、做網(wǎng)站、全網(wǎng)營(yíng)銷推廣、ChatGPT、軟件開發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)