大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你这2个按钮的目的不是一样吗
10年积累的成都做网站、成都网站建设经验,可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你,你也不认识我。但先网站设计后付款的网站建设流程,更有厦门免费网站建设让你可以放心的选择与我们合作。
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
用MessageBox。
'VB.NET
Imports System.Windows.Forms
MessageBox.Show("你想要显示的内容")
//C#
using System.Windows.Forms;
MessageBox.Show("你想要显示的内容");
还可以修改显示的标题,图标,按钮(参见对象浏览器)。
如果要更多功能,可以用TaskDialog API,非托管,在ComCtl32.dll 第六版中。
可以利用msgbox 实现,也可以通过另外的窗体上画出表格实现
方法一,利用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
用msgbox()显示对话框
msgbox的用法很多,基础的就是msgbox(“你要显示的内容”)
或者msgbox(“你要显示的内容”,16,"对话框名称")'16是对话框的类型,还有几个键的组合代码,这个你可以
查查
,很多,或者你也可以用提示给出的类型,比如MsgBoxStyle.Exclamation就是显示错误对话框,
Response.Write("Script Language=JavaScriptalert('消息!');/Script")
此语句没有错误,请检查其它的问题。
不管是什么,给你写一个在后台弹出那个框的代码
response.write("script language=javascriptconfirm("are you sure?")/script");