vb点虐弹窗控件 vbs设置弹窗乱弹

vb点虐在自制的窗体控件中弹出一个窗口再返回一个值

先设计好Form1和Form2。在

成都创新互联是一家以网站设计,开发核心业务的专业网站制作公司，创新互联为客户提供：软文发稿、创新网站解决方案。我们的目标是提高客户网站项目的专业度，以创新和互联的思维增加用户体验并有效提高潜在客户。

Private Class Form2中输入

Public Event ChangeValue(ByVal value As String) '是string还是其它的看你需要了

在Form2的Closed事件：

Private Sub Form2_Closed() Handles Me.Closed

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

End Sub

在Form1中Button1的Click事件中：

Private Sub Button1_Click() Handles Button1.Click

Dim f2 As New Form2

AddHandler f2.ChangeValue,AddressOf ProcessValue

f2.Show()

End Sub

楼下的更简单啦

选择文件夹在工具箱 - 对话框里选择 FolderBrowserDialog 添加到设计器中

然后代码写在按钮事件里

FolderBrowserDialog1.ShowDialog()

textbox1.text =FolderBrowserDialog1.SelectedPath

选择文件在工具箱 - 对话框里选择 OpenFileDialog

把 OpenFileDialog1.ShowDialog()

TextBox1.Text = OpenFileDialog1.FileName

写到按钮事件下

如图

点击按钮会弹出通用对话框选择好路径后确定，编辑框里就会显示选择的路径

工具箱里有ContextMenu（.NET2.0以后名字有点变化，大概差不多），你加入窗体后就可以像编辑普通菜单那样编辑。

编辑好后，选中你要添加菜单的控件。属性窗口里有个ContextMenu属性，在里面选你刚才建立的ContextMenu

网页标题：vb点虐弹窗控件 vbs设置弹窗乱弹
浏览路径：http://cdiso.cn/article/ddjhhee.html