重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
这么久都没人回答啊,我用的是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 循环迭代
以一个项目为基础,在其工程上点右键,选添加,现有项,然后选择另外两个项目里的文件,用这种方式把所有的都添加上就行了
在你要引入的文件或文件夹上点右键,选包括在项目中
下次直接追问,要不我看不到