锐客网

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

vb.net同级对话框 vb通用对话框的文件类型设置

代码IT技术

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
方法二，利用窗体实现：
【vb.net同级对话框 vb通用对话框的文件类型设置】’新建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中用什么方法显示对话框？用msgbox（）显示对话框
msgbox的用法很多，基础的就是msgbox（“你要显示的内容”）
或者msgbox（“你要显示的内容”,16,"对话框名称"）'16是对话框的类型，还有几个键的组合代码，这个你可以
查查
，很多，或者你也可以用提示给出的类型，比如MsgBoxStyle.Exclamation就是显示错误对话框，
vb.net类似这种设置对话框，用哪个控件实现的？左边的的应该是按钮来的吧?。?
然后右边的应该是Panel！根据点击所点击的按钮，来显示响应的Panel而已?。?
vb.net如何让父窗体工具栏的保存对话框在所有子窗体通用'代码中Button控件自行在窗体中添加并改名
***********************************父窗体代码：
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("提交的窗体是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
***********************************子窗体代码：
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同级对话框的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb通用对话框的文件类型设置、vb.net同级对话框的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：如何删除登录服务器记录？ 怎么清除登录服务器纪录

    下一篇：如何创建自己的KZ服务器？ kz怎么创造服务器