当前位置: 首页 > 开发语言 > VB.net > VB.net 使用变量代替控件名

VB.net 使用变量代替控件名

时间:2021-01-03 19:39来源:未知 点击:
分享到:
VB.net 使用变量代替控件名
       我们在VB.net中进行程序设计的时候,会碰见需要控制多个同种类型控件的情况,例如下图有12个相同类型的group控件,里面又包含多个子控件。由于这些控件具有相同的功能,所以在程序写法上也趋于一致。但是,按照常规的设计方法,由于有8个button控件,那么我们就需要写8个button_click事件函数,这个我们的程序设计,带来了极大的不便。
图片
    既然,这些控件具有相同的功能,而且程序的写法上也趋于一直,我们有理由相信VB.net会给我们提供一个非常完美的解决方法,让我慢慢道来。
    1、将8个
 button_click事件合为1个事件函数
    我们首先将8个button控件进行命名,分别为
 butPort1_Update、 butPort2_Update至 butPort8_Update,双击其中1个button控件,进行如下修改,这样变将8个button控件的click事件函数合成了1个控件事件函数。
图片
    
    2、对产生click事件的控件进行区分

    当我们把这些事件写在一起的时候,接着面临的问题就是区分由于哪个控件发生了click事件,而调用此函数,我们可以借助sender.name来解决。
    Dim iPort As Int16 = Mid(sender.name, 8, 1)

    3、用变量代替控件名
    其它的控件如何操作呢?我们现在可以采取变量代替控件名的方法来具体实现,VB.net提供了Controls方法,通过它可以遍历当前窗体中所有的控件,但这个方法与原先的VB有区别,现在VB.net里面采用层次化的方法予以实现,就是说我们不能直接使用me.controls("")找到我们希望替代的控件,而必须要找到它的上一层父控件。说的直白一点,下图中有1个group控件,里面包含12个子控件,我们要访问这12个子控件,要用到的是它的父控件那个group控件,而不是我们的窗体。
图片
    程序实现:
    a、给
 8个gruop控件的父控件命名为 tabPort;
    b、给8个gruop控件命名,分别为 gupPort1、 gupPort2至 gupPort8;  
    c、给里面的子控件命名,本文仅以后三个控件为例,分别为
 txtPortX_Baud、 txtPortX_StopBit、 txtPortX_ParityBit,其中X表示1-8;
    程序如下:
图片 
  
    这样,我们就可以在后面的程序中,通过使用
 txtPort_Baud、 txtPort_StopBit、 txtPort_ParityBit变量来操纵相应的控件了。

原创性文章,转载请注明出处 http://user.qzone.qq.com/2756567163  

(责任编辑:admin)
推荐教程
关于我们--广告服务--免责声明--本站帮助-友情链接--版权声明--联系我们--网站地图          黑ICP备17004983号-1