首页 相关文章 VB数组小技巧一则

VB数组小技巧一则

一、设窗体上有若干个以Command1命名的命令按钮,现要求:点击其中一个按钮后,该按钮不可用,而其它的按钮均可用。以下几行代码可以实现这个要求,比一个一个的设置高效得多。其实,我也是看了土人的关于控件数组的一文后,认为我的方法更加简单,代码更简易。
  
  以下是实现的代码:
  PrivateSubCommand1_Click(IndexAsInteger)
  StaticaAsInteger
  Ifa0ThenCommand1(a-1).Enabled=True'用于恢复按钮可用
  Command1(Index).Enabled=False
  a=Index 1
  EndSub
  注:变量a主要是用来存储上一次单击的按钮Index,至于a-1和a 1是为了避免当单击index为0时的按钮时,会出现问题,所以用此法避开了。
  
  二、当用自制一个菜单时,可用如下办法实现移到哪项时,则哪项背景色就与其它的项目的背景色不同。就是说和真的菜单一样,当移到哪一项时,则那一项的背景色就会以蓝色背景显示。
  
  以下是实现的代码:
  PrivateSubForm_Load()<...[ 查看全文 ]

2016-02-19 标签:

VB数组小技巧一则的相关文章

手机页面
收藏网站 回到头部