锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net通用对话框 vbs对话框

IT技术窗体

VB.net怎么弹出文件夹路径选择框选择文件夹在工具箱 - 对话框 里选择 FolderBrowserDialog 添加 到设计器中
然后 代码写在按钮事件里
FolderBrowserDialog1.ShowDialog()
textbox1.text =FolderBrowserDialog1.SelectedPath
选择文件 在工具箱 - 对话框 里选择 OpenFileDialog
把 OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName
写到按钮事件下
【vb.net通用对话框 vbs对话框】如图
点击按钮会弹出 通用对话框选择好路径后 确定 ，编辑框里就会显示选择的路径
vb.net中用什么方法显示对话框？用msgbox（）显示对话框
msgbox的用法很多，基础的就是msgbox（“你要显示的内容”）
或者msgbox（“你要显示的内容”,16,"对话框名称"）'16是对话框的类型，还有几个键的组合代码，这个你可以查查，很多 ， 或者你也可以用提示给出的类型，比如MsgBoxStyle.Exclamation就是显示错误对话框，
VB.net怎么弹出如下类似的对话框（看图）？可以利用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)inputStrSpace(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)inputStrSpace(j)Space((8 - Len(inputStr)) Mod 2)End Function‘将以下代码复制在form1窗体中Private Sub Command1_Click()Form2.ShowEnd Sub
vb.net如何让父窗体工具栏的保存对话框在所有子窗体通用'代码中Button控件自行在窗体中添加并改名
***********************************父窗体代码vb.net通用对话框：
Public Class Form1
Public Sub From1_保存Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles From1_保存Button.Click
Select Case sender.name
Case "From1_保存Button"
MsgBox("提交vb.net通用对话框的窗体是From1")
Case "Form2_提交Button"
MsgBox("提交的窗体是From2")
End Select
Form2.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_显示子窗体.Click
Form2.ShowDialog()
End Sub
End Class
***********************************子窗体代码vb.net通用对话框：
Public Class Form2
Private Sub Form2_提交Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form2_提交Button.Click
Form1.From1_保存Button_Click(Form2_提交Button, New System.EventArgs)
End Sub
End Class
***********************************
方法满多的 ， 起码三四种，比如用一个全局变量保存当前提交窗体名，执行操作的代码读取这个全局变量就行 。最方便的应该是做过程
Public Sub DateBaseAdd(ByVal From As Form)
，然后父窗体跟子窗体都能调用这个全局过程，同时传入窗体名称
关于vb.net通用对话框和vbs对话框的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：如何查看服务器操作记录？ 怎么查看从服务器操作记录

    下一篇：游戏直播没有音乐声视频号，直播游戏没有游戏声音 pc