vb.net弹出 vb弹出对话框

vb.net 弹出messagebox.yesno后点击yes则TextBox1.Enabled = False 锁定不可更改?Dim Message As String = "是否设置文本框为不可用?"
Dim Caption As String = "请选择是与否:"
Dim Buttons As MessageBoxButtons = MessageBoxButtons.YesNo
Dim Result As DialogResult
Result = MessageBox.Show(Message, Caption, Buttons)
If Result = System.Windows.Forms.DialogResult.Yes Then
TextBox1.Enabled = False
End If
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怎么弹出文件夹路径选择框选择文件夹在工具箱 - 对话框 里选择 FolderBrowserDialog 添加 到设计器中
然后 代码写在按钮事件里
FolderBrowserDialog1.ShowDialog()
textbox1.text =FolderBrowserDialog1.SelectedPath
选择文件 在工具箱 - 对话框 里选择 OpenFileDialog
把 OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName
写到按钮事件下
如图
点击按钮会弹出 通用对话框选择好路径后 确定,编辑框里就会显示选择的路径
vb.net的弹出式菜单怎么做工具箱里有ContextMenu(.NET2.0以后名字有点变化,大概差不多),vb.net弹出你加入窗体后就可以像编辑普通菜单那样编辑 。
编辑好后,选中你要添加菜单vb.net弹出的控件 。属性窗口里有个ContextMenu属性,在里面选你刚才建立vb.net弹出的ContextMenu
VB.net的弹出窗口问题Me.IsMdiContainer = True
Dim f As New Form2
f.MdiParent = Me
f.Show()
vb.net弹出的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vb弹出对话框、vb.net弹出的信息别忘了在本站进行查找喔 。

    推荐阅读