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弹框的信息别忘了在本站进行查找喔 。
推荐阅读
- 网红直播渔具,渔具直播间背景图
- html5数据库交互,html5如何连接数据库
- 密码加密python爬虫,加密 python
- 女儿和爸爸玩益智游戏中班,女儿和爸爸玩益智游戏中班
- linux用什么命令注销 linux系统注销命令
- oracle数据库中国市场营收,oracle数据库价格
- 包含postgresql9.5创建集群的词条
- 直播实时翻译软件电脑推荐,直播实时翻译怎么实现的
- vb.net多维数组限制 多维数组怎么赋值