Public Event ChangeValue(ByVal value As String) '是string还是其它的看你需要了
RaiseEvent ChangeValue(TextBox1.Text)'如果是数值类型的话用下面这个：
'RaiseEvent ChangeValue(Val(TextBox1.Text))
End Sub
在Form中定义x：
Dim x As String '是String还是数值类型看你需要了,要和上面的统一
在Form1中写一个处理值的函数.值哪来?别管它
Private Sub ProcessValue(ByVal value As String) '记得统一
x = value
在Form1中Button1的Click事件中：
Private Sub Button1_Click() Handles Button1.Click
楼下的更简单啦
可以利用msgbox 实现,也可以通过另外的窗体上画出表格实现
方法一,利用msgbox：
方法二,利用窗体实现：
选择文件夹?在工具箱?-?对话框?里选择?FolderBrowserDialog?添加?到设计器中
然后?代码写在?按钮事件里
FolderBrowserDialog1.ShowDialog()
textbox1.text?=FolderBrowserDialog1.SelectedPath
选择文件?在工具箱?-?对话框?里选择?OpenFileDialog
把?OpenFileDialog1.ShowDialog()
TextBox1.Text?=?OpenFileDialog1.FileName
写到按钮事件下
如图
以上就是土嘎嘎小编为大家整理的vb.net弹出框控件相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！