vb.net多行,多行显示vb

vb.net 怎么调用cmd执行多行语句

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

成都创新互联是专业的中站网站建设公司，中站接单;提供成都网站制作、成都网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行中站网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

msgbox("执行完毕")

另外CMD窗口是无法隐藏执行的，当然，你可以换另外一个思路，就是启用一个新线程，然后将线程后台执行CMD语句，这样前台就看不到CMD窗口了

请参考下面的示例

shell "cmd /c dir",1'/c表示执行完即关闭窗口

shell "cmd /k dir",1'/k表示执行完停留

shell "cmd /c dir pause",1'多条语句可用连接

关于cmd的具体用法可以在命令提示符下敲入cmd/?看看

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

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

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

/C 执行字符串指定的命令然后终断

/K 执行字符串指定的命令但保留

/S 在 /C 或 /K 后修改字符串处理(见下)

/Q 关闭回应

/D 从注册表中停用执行 AutoRun 命令(见下)

/A 使向内部管道或文件命令的输出成为 ANSI

/U 使向内部管道或文件命令的输出成为 Unicode

/T:fg 设置前景/背景颜色(详细信息，请见 COLOR /?)

/E:ON 启用命令扩展(见下)

/E:OFF 停用命令扩展(见下)

/F:ON 启用文件和目录名称完成字符 (见下)

/F:OFF 停用文件和目录名称完成字符(见下)

/V:ON 将 ! 作为定界符启动延缓环境变量扩展。如: /V:ON 会

允许 !var! 在执行时允许 !var! 扩展变量 var。var 语法

在输入时扩展变量，这与在一个 FOR 循环内不同。

/V:OFF 停用延缓的环境扩展。

VB.NET多个文本框显示多行数据

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:随便写的，自己看着调

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

Me.Controls.Add(txt) 'Me 可以改为你要添加上去的对象

End While

'未经过运行，自己调试看看能否OK

求大神指点 vb.net 怎么 弹出 多行输入框 inputbox("内容") 这个只能输入一行...

一共有三个地区啊，第一就是弹出来窗口上面蓝条下面的位置，显示比如“请输入”。第二就是弹出来窗口的标题了，第三个位置就是可输入部分显示的示范内容。

如inputbox("请输入生日","标题","1986-12-11")

怎样在VB.NET中设置多行文本框中显示的行数

1、添加TextBox控件

2、设置TextBox属性

3、编写代码

4、运行效果

VB.NET能够多行注释吗？求高手

Dim clh As ColumnHeader '声明列表头

Dim rs As New ADODB.Recordset '声明一个变量

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

lv.ListItems.Clear '清空列表

lv.GridLines = True '显示格线

lv.FullRowSelect = True '整行选择模式

lv.View = lvwReport ’设置视图为列表视图

rs.Open "select * from 入库", Cnn '运行查询

For i = 0 To rs.Fields.Count - 1 ’for循环，所有记录表的字段

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

Next

lv.GridLines = True ’显示网格

lv.FullRowSelect = True ’整行模式选择

lv.View = lvwReport ’设置视图为列表视图

Set RsPage = rs ’复制rs

RsPage.PageSize = 40 ’每页显示40个记录

Label5.Caption = RsPage.PageCount ’显示页的数量

If rs.EOF = True Then ’判断是记录的结束

Label7.Caption = 0 ’显示0

Label5.Caption = 0 ’显示0

For i = 1 To 4

Label1(i).Enabled = False ’禁用标签1-4

Next

Else '判断不是记录的结束

Label7.Caption = 1 ’显示1

RsPage.MoveFirst '移到第一个记录

Call ShowPage(RsPage, 1) ’显示第一页

End If

End Sub

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

rs.AbsolutePage = nPage '显示参数nPage页

lv.ListItems.Clear '列表清空

Dim item As ListItem ’声明列表

For i = 1 To 40

If rs.EOF = True Then Exit Sub ’判断是记录的结束，退出函数

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))) ’填写行的其他字段

Next

rs.MoveNext '移到下一个记录

Next

End Sub

Private Sub Command2_Click()

If Text2.Text "" Then

FrmPJsy.Show 'text2得值不为空时，FrmPJsy显示

End If

End Sub

Private Sub lv_Click()

If lv.ListItems.Count = 1 Then ’如果行数不小于1

For i = 1 To lv.ListItems.Count

If lv.ListItems(i).Selected Then ’ 显示记录的每一段的内容

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