从品牌网站建设到网络营销策划,从策略到执行的一站式服务
这么久都没人回答啊,我用的是VB点虐 2010,刚写的代码,绝对好使
成都创新互联公司服务项目包括林州网站建设、林州网站制作、林州网页制作以及林州网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,林州网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到林州省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
'加载窗体Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
Dim l As Long, t As Long, w As Long, h As Long
l = groupBox1.Left
t = groupBox1.Top
w = groupBox1.Width
h =groupBox1.Height
Me.groupBox2.SetBounds(l, t, w, h) '设置好两个groupBox位置
Me.groupBox2.Visible = False '让两个groupBox都隐藏
MegroupBox1.Visible = False
End Sub
'点击窗体中第一个按钮,显示groupBox1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.groupBox1.Visible = True
Me.groupBox2.Visible = False
End Sub
'点击窗体中第二个按钮,显示groupBox2
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.groupBox2.Visible = True
Me.groupBox1.Visible = False
End Sub
可以使用数组列表(ArrayList)(数组)将同一类型的窗体存储在同一个数组列表中,引用时for each next 循环迭代
以一个项目为基础,在其工程上点右键,选添加,现有项,然后选择另外两个项目里的文件,用这种方式把所有的都添加上就行了
在你要引入的文件或文件夹上点右键,选包括在项目中
下次直接追问,要不我看不到
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图