
正文
vb.net多列的弹框 vb列表框多项选择
提示:扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
VB.net怎么弹出如下类似的对话框(看图)?
可以利用msgbox 实现vb.net多列的弹框,也可以通过另外vb.net多列的弹框的窗体上画出表格实现
方法一,利用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
相关问答
Q1: VB.net怎么弹出文件夹路径选择框
选择文件夹 在工具箱 - 对话框 里选择 FolderBrowserDialog 添加 到设计器中
然后 代码写在 按钮事件里
FolderBrowserDialog1.ShowDialog()
textbox1.text =FolderBrowserDialog1.SelectedPath
选择文件 在工具箱 - 对话框 里选择 OpenFileDialog
把 OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName
写到按钮事件下
如图
点击按钮会弹出 通用对话框 选择好路径后 确定 ,编辑框里就会显示选择的路径
Q2: 请问vb.net中有支持多列显示的下拉框吗?
就用ComboBox,ComboBox由一个List和一个text组成,List里是一个个的对象有ValueMember和DisplayMember两个属性。你将DisplayMember属性改成usercode,username 即可。
Q3: vb.net 中有多个文本框,都是有竖直的滚动条,其中文本都不断改变,让所有的文本框都显示最后一行。
是这个办法vb.net多列的弹框的,只是要加一句:
TextBox1.SelectionLength = 0
TextBox1.SelectionStart = TextBox1.Text.Length
TextBox1.ScrollToCaret()
另外,文本框vb.net多列的弹框的内容修改后要再次执行上面vb.net多列的弹框的三句代码
Q4: 求大神指点 vb.net 怎么 弹出 多行输入框 inputbox("内容") 这个只能输入一行...
设计一个新窗体,这个窗体中可以有很多文本框,
当需要输入数据时,加载这个新窗体,从新窗体中获取数据
关于vb.net多列的弹框和vb列表框多项选择的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站。








