VB.NETGroupBox控件学习经验

VB.NET还是比较常用的,于是我研究了一下VB.NET GroupBox控件,在这里拿出来和大家分享一下,希望对大家有用。

成都创新互联专注于微山网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供微山营销型网站建设,微山网站制作、微山网页设计、微山网站官网定制、微信平台小程序开发服务,打造微山网络公司原创品牌,更为您提供微山网站排名全网营销落地服务。

编程添加VB.NET GroupBox控件以及它所包含的控件.虽然VB.NET GroupBox控件是在设计时用视图设计布局效果最好,但是无可避免地,很多特殊情况下也是需要在运行做添加控件到控件组中的,这里我们就用代码来完成上图一界面的绘制。

动态添加控件一般需要经过下面三个步骤:
1、创建要添加的控件实例
2、设置新控件的属性。
3、将控件添加到父控件的 Controls 集合。

在Form1代码的任意位置增加初始化控件的过程InitializeControl(),代码如下所示:

 
 
 
  1. Sub InitializeControl()  
  2. '首先添加Label和TextBox控件  
  3. Dim Label1 As New System.Windows.Forms.Label  
  4. Dim TextBox1 As New System.Windows.Forms.TextBox  
  5. 'Label1  
  6. Label1.Location = New System.Drawing.Point(8, 8)  
  7. Label1.Name = "Label1" 
  8. Label1.Size = New System.Drawing.Size(64, 16)  
  9. Label1.TabIndex = 1  
  10. Label1.Text = "户主姓名" 
  11. 'TextBox1  
  12. TextBox1.Location = New System.Drawing.Point(72, 7)  
  13. TextBox1.Name = "TextBox1" 
  14. TextBox1.Size = New System.Drawing.Size(128, 21)  
  15. TextBox1.TabIndex = 2 
  16. TextBox1.Text = "" 
  17. '把它们添加到父控件Form1的Controls集合中  
  18. Me.Controls.Add(TextBox1)  
  19. Me.Controls.Add(Label1)  
  20. '添加三个GroupBox控件  
  21. Dim GroupBox1 As New System.Windows.Forms.GroupBox  
  22. Dim GroupBox2 As New System.Windows.Forms.GroupBox  
  23. Dim GroupBox3 As New System.Windows.Forms.GroupBox  
  24. 'GroupBox1  
  25. GroupBox1.BackColor = System.Drawing.SystemColors.Control  
  26. GroupBox1.Location = New System.Drawing.Point(8, 40)  
  27. GroupBox1.Name = "GroupBox1" 
  28. GroupBox1.Size = New System.Drawing.Size(96, 104)  
  29. GroupBox1.TabIndex = 3 
  30. GroupBox1.TabStop = False 
  31. GroupBox1.Text = "性别" 
  32. ....... 

把上一页的代码复制添加后,把控件初始化过程InitializeControl()过程添加到Form1的New构造函数中就OK了。

【编辑推荐】

  1. 详解VB6.0和VB.NET窗体的区别
  2. 概括VB.NET创建WebService
  3. VB.NET Account对象简介
  4. 简单描述VB.NET数据窗体
  5. 深入解析VB.NET创建表示层

分享名称:VB.NETGroupBox控件学习经验
分享路径:http://www.stwzsj.com/qtweb/news23/11873.html

网站建设、网络推广公司-创新互联,是专注品牌与效果的网站制作,网络营销seo公司;服务项目有等

广告

声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联