重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你在第一个窗口里写 Form2.ShowDialog()
创新互联公司2013年开创至今,先为耒阳等服务建站,耒阳等地企业,进行企业商务咨询服务。为耒阳企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
这样就可以了,关掉form2的时候form1的代码就会继续执行
首先要添加两个窗体,假设第一个窗体名为Form1,第二个窗体名为Form2。在Form1窗体中添加个按钮Command1。按钮单击事件的代码为:
Private Sub Command1_Click()
Form2.Show '用show方法加载并且显示名为Form2的窗体
End Sub
show 方法后面省略了两个参数即Form2.Show 0或Form2.Show 1此参数可缺省。可自行运行验证
首先要添加两个窗体,假设第一个窗体名为Form1,第二个窗体名为Form2。
在Form1窗体中添加个按钮Command1。按钮单击事件的代码为:
Private Sub Command1_Click()
Form2.Show//用show方法加载并且显示名为Form2的窗体
End Sub
show 方法后面省略了两个参数即Form2.Show 0或Form2.Show 1此参数可缺省。
扩展资料
VB窗体的三个基本概念:
编VB程序首先要创建一个良好的可视化界面。每个程序界面是由窗体(Form) 和一些必要的控件元素(Control) 构成的。由于VB属于面向对象编程,所以一般将窗体与控件都称为对象。
需要先了解一下三个基本概念:对象的属性、方法和事件。
属性:指对象(窗体,控件)的大小、颜色、方位等一系列外观或内部构造的特征。
方法:指对象(窗体,控件)所进行的操作。
事件:指对象(窗体,控件)对外部条件的响应。
现今的Windows视窗操作系统,与以前Dos最显著的区别就是其拥有一个为用户所能接受的图形界面。在这个可视化的图形界面中,户能方便地使用多个程序,而这一切就象在针对一个个窗口进行操作。
先设计好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
楼下的更简单啦