vb.net 怎么調(diào)用cmd執(zhí)行多行語(yǔ)句

shell "cmd /c dir c:\*.*",1

成都創(chuàng)新互聯(lián)是專業(yè)的中站網(wǎng)站建設(shè)公司，中站接單;提供成都網(wǎng)站制作、成都網(wǎng)站建設(shè),網(wǎng)頁(yè)設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行中站網(wǎng)站開(kāi)發(fā)網(wǎng)頁(yè)制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛(ài)的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來(lái)合作!

msgbox("執(zhí)行完畢")

另外CMD窗口是無(wú)法隱藏執(zhí)行的，當(dāng)然，你可以換另外一個(gè)思路，就是啟用一個(gè)新線程，然后將線程后臺(tái)執(zhí)行CMD語(yǔ)句，這樣前臺(tái)就看不到CMD窗口了

請(qǐng)參考下面的示例

shell "cmd /c dir",1'/c表示執(zhí)行完即關(guān)閉窗口

shell "cmd /k dir",1'/k表示執(zhí)行完停留

shell "cmd /c dir pause",1'多條語(yǔ)句可用連接

關(guān)于cmd的具體用法可以在命令提示符下敲入cmd/?看看

太多了，只列舉一些典型的：

CMD [/A | /U] [/Q] [/D] [/E:ON | /E:OFF] [/F:ON | /F:OFF] [/V:ON | /V:OFF]

[[/S] [/C | /K] string]

/C 執(zhí)行字符串指定的命令然后終斷

/K 執(zhí)行字符串指定的命令但保留

/S 在 /C 或 /K 后修改字符串處理(見(jiàn)下)

/Q 關(guān)閉回應(yīng)

/D 從注冊(cè)表中停用執(zhí)行 AutoRun 命令(見(jiàn)下)

/A 使向內(nèi)部管道或文件命令的輸出成為 ANSI

/U 使向內(nèi)部管道或文件命令的輸出成為 Unicode

/T:fg 設(shè)置前景/背景顏色(詳細(xì)信息，請(qǐng)見(jiàn) COLOR /?)

/E:ON 啟用命令擴(kuò)展(見(jiàn)下)

/E:OFF 停用命令擴(kuò)展(見(jiàn)下)

/F:ON 啟用文件和目錄名稱完成字符 (見(jiàn)下)

/F:OFF 停用文件和目錄名稱完成字符(見(jiàn)下)

/V:ON 將 ! 作為定界符啟動(dòng)延緩環(huán)境變量擴(kuò)展。如: /V:ON 會(huì)

允許 !var! 在執(zhí)行時(shí)允許 !var! 擴(kuò)展變量 var。var 語(yǔ)法

在輸入時(shí)擴(kuò)展變量，這與在一個(gè) FOR 循環(huán)內(nèi)不同。

/V:OFF 停用延緩的環(huán)境擴(kuò)展。

VB.NET多個(gè)文本框顯示多行數(shù)據(jù)

Dim mycon As New SqlConnection(connstrs)

Dim sqlStr As String = "SELECT * FROM [Column] FROM [Table]"

Dim cmd As New SqlCommand(sqlStr, mycon)

Dim reader = cmd.ExecuteReader()

Dim i As Integer = 1

While reader.Read()

Dim txt As New TextBox()

txt.Name = "txt" + i

txt.Size = New Size(100, 20) '文本框大小

txt.Location = New Point(50, i * 20 + 20)'left:50 top:隨便寫(xiě)的，自己看著調(diào)

txt.Text = reader.GetValue(0).ToString()

Me.Controls.Add(txt) 'Me 可以改為你要添加上去的對(duì)象

End While

'未經(jīng)過(guò)運(yùn)行，自己調(diào)試看看能否OK

求大神指點(diǎn) vb.net 怎么 彈出 多行輸入框 inputbox("內(nèi)容") 這個(gè)只能輸入一行...

一共有三個(gè)地區(qū)啊，第一就是彈出來(lái)窗口上面藍(lán)條下面的位置，顯示比如“請(qǐng)輸入”。第二就是彈出來(lái)窗口的標(biāo)題了，第三個(gè)位置就是可輸入部分顯示的示范內(nèi)容。

如inputbox("請(qǐng)輸入生日","標(biāo)題","1986-12-11")

怎樣在VB.NET中設(shè)置多行文本框中顯示的行數(shù)

1、添加TextBox控件

2、設(shè)置TextBox屬性

3、編寫(xiě)代碼

4、運(yùn)行效果

VB.NET能夠多行注釋嗎？求高手

Dim clh As ColumnHeader '聲明列表頭

Dim rs As New ADODB.Recordset '聲明一個(gè)變量

lv.ColumnHeaders.Clear’Lv清空列表頭

lv.ListItems.Clear '清空列表

lv.GridLines = True '顯示格線

lv.FullRowSelect = True '整行選擇模式

lv.View = lvwReport ’設(shè)置視圖為列表視圖

rs.Open "select * from 入庫(kù)", Cnn '運(yùn)行查詢

For i = 0 To rs.Fields.Count - 1 ’for循環(huán)，所有記錄表的字段

Set clh = lv.ColumnHeaders.Add(, , rs.Fields(i).Name) ’添加列表頭與rs字段相同的名字

Next

lv.GridLines = True ’顯示網(wǎng)格

lv.FullRowSelect = True ’整行模式選擇

lv.View = lvwReport ’設(shè)置視圖為列表視圖

Set RsPage = rs ’復(fù)制rs

RsPage.PageSize = 40 ’每頁(yè)顯示40個(gè)記錄

Label5.Caption = RsPage.PageCount ’顯示頁(yè)的數(shù)量

If rs.EOF = True Then ’判斷是記錄的結(jié)束

Label7.Caption = 0 ’顯示0

Label5.Caption = 0 ’顯示0

For i = 1 To 4

Label1(i).Enabled = False ’禁用標(biāo)簽1-4

Next

Else '判斷不是記錄的結(jié)束

Label7.Caption = 1 ’顯示1

RsPage.MoveFirst '移到第一個(gè)記錄

Call ShowPage(RsPage, 1) ’顯示第一頁(yè)

End If

End Sub

Private Sub ShowPage(rs As Recordset, nPage As Integer)

rs.AbsolutePage = nPage '顯示參數(shù)nPage頁(yè)

lv.ListItems.Clear '列表清空

Dim item As ListItem ’聲明列表

For i = 1 To 40

If rs.EOF = True Then Exit Sub ’判斷是記錄的結(jié)束，退出函數(shù)

Set item = lv.ListItems.Add(, , Trim(rs.Fields(0).Value)) ’添加列表行，0字段的值

For j = 1 To rs.Fields.Count - 1

item.SubItems(j) = IIf(IsNull(rs.Fields(j)), "", Trim(rs.Fields(j))) ’填寫(xiě)行的其他字段

Next

rs.MoveNext '移到下一個(gè)記錄

Next

End Sub

Private Sub Command2_Click()

If Text2.Text "" Then

FrmPJsy.Show 'text2得值不為空時(shí)，F(xiàn)rmPJsy顯示

End If

End Sub

Private Sub lv_Click()

If lv.ListItems.Count = 1 Then ’如果行數(shù)不小于1

For i = 1 To lv.ListItems.Count

If lv.ListItems(i).Selected Then ’ 顯示記錄的每一段的內(nèi)容

Text1(6).Text = Trim(lv.ListItems(i).Text)

Text1(0).Text = Trim(lv.ListItems(i).SubItems(1))

Text1(1).Text = Trim(lv.ListItems(i).SubItems(2))

Text1(2).Text = Trim(lv.ListItems(i).SubItems(3))

Text1(3).Text = Trim(lv.ListItems(i).SubItems(4))

Text1(4).Text = Trim(lv.ListItems(i).SubItems(5))

Text1(5).Text = Trim(lv.ListItems(i).SubItems(6))

DTPicker1.Value = Trim(lv.ListItems(i).SubItems(7))

Text1(7).Text = Trim(lv.ListItems(i).SubItems(8))

Command1(1).Enabled = True ’按鈕可以使用

Command1(2).Enabled = True

End If

Next

End If

End Sub

分享標(biāo)題：vb.net多行,多行顯示vb
鏈接URL：http://chinadenli.net/article40/dsidheo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供云服務(wù)器、服務(wù)器托管、外貿(mào)網(wǎng)站建設(shè)、移動(dòng)網(wǎng)站建設(shè)、做網(wǎng)站、網(wǎng)站導(dǎo)航

廣告

聲明：本網(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)