vb.net弹框 vbnet tabcontrol

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怎么弹出文件夹路径选择框选择文件夹在工具箱 - 对话框 里选择 FolderBrowserDialog 添加 到设计器中
然后 代码写在按钮事件里
FolderBrowserDialog1.ShowDialog()
textbox1.text =FolderBrowserDialog1.SelectedPath
选择文件 在工具箱 - 对话框 里选择 OpenFileDialog
把 OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName
写到按钮事件下
如图
点击按钮会弹出 通用对话框选择好路径后 确定 vb.net弹框,编辑框里就会显示选择vb.net弹框的路径
VB.net怎么定期弹出主窗口?首先要添加两个窗体,假设第一个窗体名为Form1,第二个窗体名为Form2 。在Form1窗体中添加个按钮Command1 。按钮单击事件的代码为:
Private Sub Command1_Click()
Form2.Show '用show方法加载并且显示名为Form2的窗体
End Sub
show 方法后面省略了两个参数即Form2.Show 0或Form2.Show 1此参数可缺省 。可自行运行验证
【vb.net弹框 vbnet tabcontrol】vb.net弹框的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vbnet tabcontrol、vb.net弹框的信息别忘了在本站进行查找喔 。

    推荐阅读