大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
首先引入那个项目的命名空间,在代码最上方用Imports语句,比如
创新互联专注于企业成都全网营销、网站重做改版、乌海网站定制设计、自适应品牌网站建设、H5网站设计、购物商城网站建设、集团公司官网建设、成都外贸网站制作、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为乌海等各大城市提供网站开发制作服务。
Imports Project1
然后在需要用的地方写
Dim aform As New MyForm1()
然后通过aform对象的Show方法(弹出普通窗口)或ShowDialog(弹出窗口时后方窗口无响应)方法来显示窗口,最后调用Dispose方法释放对象内存。
看代码吧!在上次累加的基础上继续累加
窗体中包含一个Button1
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Static a As Integer
For i = 1 To 100 '运算100次
a = a + i
Next
End Sub
End Class
static 是声明静态变量,只要程序不退出,值就会一直保存
这样,你第一次点击 a的值就是5050
第二次点击a就变成了 10100
那个是类的字段,只会在类创建的时候执行一次,不会重复执行,如果需要重复打开inst可以用类似这种代码。
dim inst as Form2
private sub button3_Click....
if inst is Nothing or inst.IsDisposed then
inst= new Form2();
end if
inst.Show();
end sub