绵阳梓潼网站制作公司

vb.net中的消息框,vbs对话框

VB.net怎么弹出如下类似的对话框（看图）？

可以利用msgbox 实现，也可以通过另外的窗体上画出表格实现

创新互联建站是一家专业提供仙居企业网站建设,专注与成都网站设计、网站制作、HTML5、小程序制作等业务。10年已为仙居众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。

方法一，利用msgbox：

Private Sub Command1_Click()Dim a As Long, b As Long, c As LongMsgBox "┌────┬────┬────┐" vbCrLf _ "│ 库存1 │ 库存2 │ 库存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function

方法二，利用窗体实现：

’新建form2窗体‘将以下代码复制到form2窗体中Private Sub Form_Load()ShowPrint "┌────┬────┬────┐" vbCrLf _ "│ 库存1 │ 库存2 │ 库存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function‘将以下代码复制在form1窗体中Private Sub Command1_Click()Form2.ShowEnd Sub

VB 类似 MsgBox 的输入框函数是啥？

VB类似MsgBox的输入框函数是InputBox 函数。

InputBox 函数，在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。

InputBox 函数示例：

本示例说明使用 InputBox 函数来显示用户输入数据的不同用法。如果省略 x 及 y

坐标值，则会自动将对话框放置在两个坐标的正中。如果用户单击“确定”按钮或按下“ENTER”按键，则变量 MyValue

保存用户输入的数据。如果用户单击“取消”按钮，则返回一零长度字符串。

Dim Message, Title, Default, MyValue

Message = "Enter a value between 1 and 3"   ' 设置提示信息。

Title = "InputBox Demo"   ' 设置标题。

Default = "1"   ' 设置缺省值。

' 显示信息、标题及缺省值。

MyValue = InputBox(Message, Title, Default)

' 使用帮助文件及上下文。“帮助”按钮便会自动出现。

MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)

' 在 100, 100 的位置显示对话框。

MyValue = InputBox(Message, Title, Default, 100, 100)

.net 中如何弹出信息框

用MessageBox。

'VB.NET

Imports System.Windows.Forms

MessageBox.Show("你想要显示的内容")

//C#

using System.Windows.Forms;

MessageBox.Show("你想要显示的内容");

还可以修改显示的标题，图标，按钮（参见对象浏览器）。

如果要更多功能，可以用TaskDialog API，非托管，在ComCtl32.dll 第六版中。

vb.net中用什么方法显示对话框？

用msgbox（）显示对话框

msgbox的用法很多，基础的就是msgbox（“你要显示的内容”）

或者msgbox（“你要显示的内容”,16,"对话框名称"）'16是对话框的类型，还有几个键的组合代码，这个你可以

查查

，很多，或者你也可以用提示给出的类型，比如MsgBoxStyle.Exclamation就是显示错误对话框，

VB.net 对话框

你这2个按钮的目的不是一样吗

Dim fbd As New FolderBrowserDialogfbd.Description = "请选择文件夹。"fbd.RootFolder = Environment.SpecialFolder.Desktop '根目录

fbd.SelectedPath = "C:\Windows" '默认打开文件夹

fbd.ShowNewFolderButton = True '是否可以创建新文件夹

If fbd.ShowDialog(Me) = DialogResult.OK Then

textbox1.text=fbd.SelectedPath

End If

asp.net (vb) 怎么弹出消息对话框！

Response.Write("Script Language=JavaScriptalert('消息！');/Script")

此语句没有错误，请检查其它的问题。


分享文章：vb.net中的消息框,vbs对话框
网页地址：http://myzitong.com/article/hdppeg.html

其他资讯